使用 VBA 将纵向数据转换为横向数据的示例代码

Sub TransposeData()

Dim inputRange As Range

Dim outputRange As Range

Dim inputArray As Variant

Dim outputArray As Variant

Dim i As Long

Dim j As Long

Dim numRows As Long

Dim numCols As Long

'设置输入区域范围

Set inputRange = Range("a1:b2")

'获取输入数据到数组

inputArray = inputRange.Value

'确定输出数据的大小

numRows = UBound(inputArray, 1)

numCols = UBound(inputArray, 2)

'创建输出数组

ReDim outputArray(1 To numCols, 1 To numRows)

'转换数据

For i = 1 To numRows

For j = 1 To numCols

outputArray(j, i) = inputArray(i, j)

Next j

Next i

'设置输出区域范围

Set outputRange = Range("B1").Resize(numCols, numRows)

'将转换后的数据写入输出区域

outputRange.Value = outputArray

End Sub