VBA实现多表关联的行转列

如果要在Excel中使用VBA代码实现多表关联的行转列，可以尝试以下步骤：

1. 打开Excel文件，按下Alt+F11打开VBA编辑器。
2. 在VBA编辑器中，选择Insert -> Module，创建一个新的模块。
3. 在新模块中添加以下代码：

Sub RowToColumn()
    Dim i As Long
    Dim j As Long
    Dim k As Long
    Dim lRow As Long
    Dim lCol As Long
    Dim lCol2 As Long
    Dim vArray As Variant
    
    '设置要转换的数据范围
    lRow = Range("A1").End(xlDown).Row
    lCol = Range("A1").End(xlToRight).Column
    lCol2 = 1
    
    '创建一个数组，用于存储转换后的数据
    ReDim vArray(1 To lRow * lCol, 1 To 2)
    
    '将数据行转列
    For i = 1 To lRow
        For j = 1 To lCol
            k = k + 1
            vArray(k, 1) = Cells(i, j)
            vArray(k, 2) = Cells(1, j)
        Next j
    Next i
    
    '将转换后的数据填充到另一个区域
    Range("D1:E1").Value = Array("Value", "Column")
    Range("D2").Resize(k, 2).Value = vArray
    
    '删除原始数据
    Range("A1").Resize(lRow, lCol).ClearContents
    
End Sub

4. 在Excel中选择要转换的数据范围，然后运行上面的代码即可。

该代码将选定的区域中的行转换为列，并将结果输出到另一个区域中。要修改输出结果的位置，请更改代码中的“Range（”D1：E1“）”和“Range（”D2“）”。