如何通過VBA提取excel的某壹列中所包含的不同的值。

用數據字典，dictionary value，item 。 value不允許重復。

Sub test()

Dim name()

Set dic = CreateObject("Scripting.Dictionary")

a = [a65536].End(xlUp).Row

For Each Cell In Worksheets("Sheet1").Range("A1:A" & a)

If Not dic.exists(Cell.Value) Then

dic.Add Cell.Value, Cell.Value

On Error Resume Next

End If

Next

name = dic.items

For i = 1 To dic.Count

Worksheets("Sheet1").Cells(i, 2) = name(i - 1)

Next

End Sub