vb.net如何使删除excel某列文本重复值并赋值数组

你可以使用VB.NET中的Interop.Excel库来完成这个任务。以下是一个示例代码，可以实现删除Excel中某列的文本重复值，并将结果赋值给数组：

'导入Interop.Excel命名空间
Imports Microsoft.Office.Interop.Excel

'打开Excel文件
Dim appExcel As New Application
Dim workbook As Workbook = appExcel.Workbooks.Open("D:\test.xlsx")
Dim worksheet As Worksheet = workbook.Sheets("Sheet1")

'获取列数据
Dim range As Range = worksheet.Range("A1:A10")
Dim values As Object(,) = range.Value2

'去重
Dim dict As New Dictionary(Of Object, Object)
For i As Integer = 1 To values.GetLength(0)
    Dim value As Object = values(i, 1)
    If Not dict.ContainsKey(value) Then
        dict.Add(value, Nothing)
    End If
Next
Dim uniqueValues As Object() = dict.Keys.ToArray()

'将结果赋值给数组
Dim result As Object(,) = New Object(uniqueValues.Length - 1, 0) {}
For i As Integer = 0 To uniqueValues.Length - 1
    result(i, 0) = uniqueValues(i)
Next

在上述代码中，我们首先打开Excel文件并获取指定的列数据。然后，我们使用一个字典对象来进行去重操作，最终将去重后的结果赋值给数组。你可以根据自己的需求调整代码以适配你的Excel文件和数据。