EXCEL中如何通过宏实现不同行数批量数据的转置粘贴

2024-11-22 07:02:44

推荐回答（3个）

回答（1）：

类似转置，行列关系靠计算获取。

Sub yy()
Dim arr, i&, j&, k&, m&, n&
arr = Sheets("A").UsedRange
ReDim brr(1 To 10000, 1 To 3)
For i = 1 To UBound(arr)
For j = 1 To arr(i, 3)
k = k + 1
m = Application.Ceiling(k / 3, 1) * 2
n = IIf(k Mod 3 = 0, 3, k Mod 3)
brr(m - 1, n) = arr(i, 1)
brr(m, n) = arr(i, 2)
Next
Next
Sheets("B").[a1].Resize(m, 3) = brr
End Sub

回答（2）：

把表发来，转换前，和转换后(个别列举)标注下

回答（3）：

根据A列的序号，判断其行号。