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

要将2D Excel表格展平或折叠为1D，可以使用Excel的一些内置函数。以下是一些常用的方法：

使用INDEX和COLUMN函数

可以使用INDEX和COLUMN函数将2D表格展平为1D数组。假设表格数据在A1:B5范围内，可以使用以下公式将其展平为1D数组：

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

这个公式使用了INT和MOD函数来计算行和列的索引，以便在2D表格中查找对应的值。

使用OFFSET和ROW函数

可以使用OFFSET和ROW函数将2D表格展平为1D数组。假设表格数据在A1:B5范围内，可以使用以下公式将其展平为1D数组：

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

这个公式使用了INT和MOD函数来计算行和列的索引，以便在2D表格中查找对应的值。

使用SMALL和ROW函数

可以使用SMALL和ROW函数将2D表格展平为1D数组。假设表格数据在A1:B5范围内，可以使用以下公式将其展平为1D数组：

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

这个公式使用了ROW函数来计算当前行的索引，以便在2D表格中查找对应的值。

使用VBA宏

可以使用VBA宏将2D表格展平为1D数组。以下是一个简单的VBA宏示例：

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

这个宏使用了两个嵌套的循环来遍历2D表格中的每个元素，并将其添加到1D数组中。最后，宏将1D数组输出到新的工作表中。

以上就是将2D Excel表格展平或折叠为1D的一些常用方法。