需要使用vbscript将excel单元格值写入数组

我需要使用vbscript将excel单元格的值存储到数组中，然后需要将此数组中的distint值写入其他excel

Ex:
Iftakhar
Iftakhar
Akash
Balwan
Sanjay
Iftakhar
Balwan

在这里，如果Takhar和Balwan的名字不止一次出现，我希望这些名字只打印一次

我已经整理了下面一段来自Google的代码，它创建了一个简单的数组（不使用excel值）并打印不同的值：

 Dim aStudents 
 aStudents = Array("Arup", "John", "Mike", "John", "Lisa", "Arup")
 WScript.Echo Join(aStudents)
 Dim aUniqStudents 
 aUniqStudents = uniqFE(aStudents)
 WScript.Echo Join(aUniqStudents)

 ' returns an array of the unique items in for-each-able collection fex
 Function uniqFE(fex)
 Dim dicTemp : Set dicTemp = CreateObject("Scripting.Dictionary")
 Dim xItem
 For Each xItem In fex
    dicTemp(xItem) = 0
 Next
 uniqFE = dicTemp.Keys()
 End Function

Dim arrExcelValues()

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("D:\Read Excel.xls")
objExcel.Visible = True

i = 1
x = 0

Do Until objExcel.Cells(i, 1).Value = ""
ReDim Preserve arrExcelValues(x)
arrExcelValues(x) = objExcel.Cells(i, 1).Value
i = i + 1
x = x + 1
Loop

objExcel.Quit

For Each strItem in arrExcelValues
  Wscript.Echo strItem
Next

我安排了另一个只将excel值存储到数组中，而不打印不同的值：

 Dim aStudents 
 aStudents = Array("Arup", "John", "Mike", "John", "Lisa", "Arup")
 WScript.Echo Join(aStudents)
 Dim aUniqStudents 
 aUniqStudents = uniqFE(aStudents)
 WScript.Echo Join(aUniqStudents)

 ' returns an array of the unique items in for-each-able collection fex
 Function uniqFE(fex)
 Dim dicTemp : Set dicTemp = CreateObject("Scripting.Dictionary")
 Dim xItem
 For Each xItem In fex
    dicTemp(xItem) = 0
 Next
 uniqFE = dicTemp.Keys()
 End Function

Dim arrExcelValues()

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("D:\Read Excel.xls")
objExcel.Visible = True

i = 1
x = 0

Do Until objExcel.Cells(i, 1).Value = ""
ReDim Preserve arrExcelValues(x)
arrExcelValues(x) = objExcel.Cells(i, 1).Value
i = i + 1
x = x + 1
Loop

objExcel.Quit

For Each strItem in arrExcelValues
  Wscript.Echo strItem
Next

---

我是编程新手，有人可以研究一下，把两个代码合并成一个代码，这样我就能得到想要的结果。

所以不是“为我做我的工作”类型的网站。您尝试合并这两个脚本的内容是什么？结果与您期望的结果有何不同？大家好，我尝试了以下代码，我能够在消息框中显示结果，但无法在excel中编写。我在第30行收到错误-“类型不匹配‘Join’”。PFB脚本，请有人帮忙。