新人求问 根据一列数值 判断复制该行多少次

请加QQ1106880439 ，可以免费帮助你完成。

Option Explicit
Sub fuzhi()
Dim i, j, k, m, n As Integer
k = [a65536].End(xlUp).Row
j = k + 1
For i = 2 To k
m = CInt(Cells(i, 3))
If m <> 1 Then
For n = 1 To m
Rows(i).Copy Cells(j, 1)
j = j + 1
Next n
End If
Next i
End Sub