Question

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中的内容

Answer 1

这道题目有点意思，我试了下，用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 Sub

Answer 2

“怎样让sheet2中A列显示和sheet1中A列对应个数的B中的内容”应该是“怎样让sheet2中B列显示和sheet1中A列对应个数的B中的内容”吧？

在表二的B1输入公式
=INDEX(Sheet1!A:A,MATCH(C1,Sheet1!B:B,0),)
或者
=VLOOKUP(C1,IF({1,0},Sheet1!$B$1:$B$100,Sheet1!$A$1:$A$100),2,0)
下拉填充

补充：上面的C1应该是A1，做完测试忘改了

Answer 3

我也来一段
Sub test()
Dim i&, j&, R&
R = 1
With Sheets("sheet1")
For i = 1 To .Range("A65536").End(xlUp).Row
j = .Cells(i, 1).Value
Sheet2.Range("a" & R).Resize(j, 1) = .Cells(i, 2)
R = R + j
Next i
End With
End Sub

Answer 4

你在sheet2的A1位置建入=sheet1!A1即可以实现你想要的操作要加分啊