类似转置，行列关系靠计算获取。
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
把表发来，转换前，和转换后(个别列举)标注下
根据A列的序号，判断其行号。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024