Sub 将指定范围的数据排列到D列()
    Dim arr1, arr2, i%, x
    arr1 = Range("A1:C3")
    ReDim arr2(1 To UBound(arr1, 1) * UBound(arr1, 2), 1 To 1)
    For Each x In Application.Transpose(arr1)
        i = i + 1
        arr2(i, 1) = x
    Next x
    Range("D1").Resize(i, 1) = arr2
End Sub

Sub 将指定范围的数据排列到D列()
    Dim arr1, arr2, i%, x
    arr1 = Range("A1:C3")
    ReDim arr2(1 To UBound(arr1, 1) * UBound(arr1, 2), 1 To 1)
    For Each x In Application.Transpose(arr1)
        i = i + 1
        arr2(i, 1) = x
    Next x
    Range("D1").Resize(i, 1) = arr2
End Sub