vb.net中excel如何用select取某列唯一值

你可以使用以下代码来选择某列中的唯一值：

Dim oXL As New Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRange As Excel.Range

oWB = oXL.Workbooks.Open("路径/文件名.xlsx")
oSheet = oWB.Worksheets("Sheet1")

'选择A列中的唯一值
oRange = oSheet.Range("A1:A" & oSheet.UsedRange.Rows.Count)
oRange.Select()
oXL.Selection.Copy()
oSheet.Range("B1").Select()
oSheet.Paste()
oRange.RemoveDuplicates(Columns:=1, Header:=xlNo)

oWB.Save()
oWB.Close()
oXL.Quit()

releaseObject(oSheet)
releaseObject(oWB)
releaseObject(oXL)

这段代码会将A列中的唯一值复制到B列中，并且去除重复项。你可以根据需要修改代码中的路径、文件名和列号。