如何将2D Excel表格"展平"或"折叠"为1D？

=INDEX($A$1:$B$5,INT((ROW()-1)/COLUMNS($A$1:$B$5))+1,MOD(ROW()-1,COLUMNS($A$1:$B$5))+1)

=OFFSET($A$1,INT((ROW()-1)/COLUMNS($A$1:$B$5)),MOD(ROW()-1,COLUMNS($A$1:$B$5)))

=SMALL(($A$1:$B$5),ROW()-ROW($A$1)+1)

Sub FlattenArray()
    Dim arr As Variant
    Dim i As Long, j As Long
    Dim k As Long
    
    ' 获取2D表格数据
    arr = Range("A1:B5").Value
    
    ' 计算1D数组长度
    k = UBound(arr, 1) * UBound(arr, 2)
    
    ' 创建1D数组
    ReDim flatArr(1 To k) As Variant
    
    ' 将2D表格数据展平为1D数组
    For i = 1 To UBound(arr, 1)
        For j = 1 To UBound(arr, 2)
            k = k + 1
            flatArr(k) = arr(i, j)
        Next j
    Next i
    
    ' 将1D数组输出到新的工作表中
    Range("C1").Resize(k).Value = WorksheetFunction.Transpose(flatArr)
End Sub