excel怎样取sheet1 A1列的数字 让sheet2中A列对应产生相应的行数填充sheet1 $B1内容 shee

这道题目有点意思,我试了下,用VBA代码可以实现,如下
如果不知道怎么弄,留下Email我可以把Excel文件发给你.
Sub test()
Dim i As Integer,j As Integer,total As Integer
total = 1
For i = 1 To Sheet1.Range("A:A").End(xlDown).Row
j = Sheet1.Cells(i,1).Value
Sheet2.Range("a" & total & ":a" & (total + j - 1)).Value = Sheet1.Cells(i,2)
total = total + j
Next i
End Su