如何快速实现:不定行数连续阶梯型偏移.

运行下面的宏.
Sub test()
r1 = 2: c = 0
For r2 = 2 To Range("a65536").End(xlUp).Row
n = Cells(r2, 2).Value
Cells(r1, 6).Resize(n, 2).Value = Cells(r2, 1).Resize(, 2).Value
Cells(r1, 8 + c).Resize(n).Value = Cells(r2, 3).Value
r1 = r1 + n
c = c + 1
Next
End Sub