使用Excel VBA复制和编号行"n“次

Sub CopyAndNumberRows()
    Dim i As Integer
    Dim n As Integer
    Dim copyRange As Range
    Dim pasteRange As Range
    
    n = InputBox("请输入复制和编号的次数：")
    
    ' 设置复制的行范围，这里假设要复制第2行到第5行
    Set copyRange = Range("2:5")
    
    ' 设置粘贴的起始行范围，这里假设要粘贴到第7行开始
    Set pasteRange = Range("7:7")
    
    ' 循环复制和粘贴
    For i = 1 To n
        copyRange.Copy pasteRange
        ' 将粘贴的行范围进行编号
        pasteRange.Offset(0, -1).Value = i
        Set pasteRange = pasteRange.Offset(copyRange.Rows.Count, 0)
    Next i
End Sub