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

Question

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

Answer 1

写好了,代码如下:Option ExplicitSub 提取不重复值()
    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 运行示例:

Answer 2

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