关于EXCEL 根据数量自动复制相应的行的公式

这个可以通过一个宏来处理
你应该是想把其中一个表上的数据复制到另一个表中吧
Sub a()
Dim b As Range, c As Integer, d As Integer, e As Integer, f As Integer, g As Integer
d = Sheet1.UsedRange.Rows.Count
g = 1
For c = 1 To d
e = Sheet1.Cells(c, 2)
For f = 1 To e
Sheet2.Cells(g, 1) = Sheet1.Cells(c, 1)
Sheet2.Cells(g, 2) = "1"
g = g + 1
Next f
Next c
End Sub