作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/01 02:45:39
excel怎样取sheet1 A1列的数字 让sheet2中A列对应产生相应的行数填充sheet1 $B1内容 sheet1 A2类推
sheet1
A B
1 3 a
2 2 b
3 4 c
sheet2
A
1 a
2 a
3 a
4 b
5 b
6 c
7 c
8 c
9 c
其中sheet1中A列的中的数字大小不定且没有规律 怎样让sheet2中A列显示和sheet1中A列对应个数的B中的内容
这道题目有点意思,我试了下,用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