三列資料區域：A2:A100，B2:B100，C2:C100
提取順序：A－B－C
提取到：F列
提取內容：不重復值（唯一值）。
uj5u.com熱心網友回復：
寫好了,代碼如下:
Option Explicit
Sub 提取不重復值()
Dim objRange As Range
Set objRange = Sheet1.Range("A2:C100")
Dim dctData As Object
Set dctData = CreateObject("scripting.dictionary")
Dim objSubRange As Range
For Each objSubRange In objRange
dctData.Item(CStr(objSubRange.Value)) = Null
Next
Dim i As Integer
i = 2
Dim varKey As Variant
For Each varKey In dctData
Sheet1.Cells(i, "F") = varKey
i = i + 1
Next
MsgBox "提取完成!"
End Sub
下載地址:
鏈接：https://pan.baidu.com/s/18Ds2VICCOVnd5UgU9q9DRQ
提取碼：cr2g
運行示例:
uj5u.com熱心網友回復：
Sub test()arr = Range("A2:C100")
Set d = CreateObject("scripting.dictionary")
For j = 1 To UBound(arr)
For i = 1 To UBound(arr, 2)
d(arr(j, i)) = ""
Next i
Next
[d2].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
MsgBox "提取完成!"
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/25172.html
標籤：VBA