VBA按指定日期段提取三列不重复数据到一列（按列竖向提取），请大师指导代码如何写

[renzhe]

三列数据区域：A2:A100，B2:B100，C2:C100 提取顺序：A－B－C 提取到：F列 提取内容：不重复值（唯一值）。

[milaoshu1020]

写好了,代码如下:

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

运行示例:

[liulang0808]

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