Question

我有一个ID（例如只有一个X和一个Y）但我希望每个ID重复十次，旁边有相应的数字。

我对VBA的经验非常有限但是这个问题似乎只能通过VBA解决。

VBA代码是什么？

Answer 1

如果我理解正确，您只想将文件中的每一行复制10次。

试试这个：

Sub Macro1()

Dim i As Integer
Dim lastRow As Integer
Dim row As Integer

With ActiveSheet
lastRow = .Cells(.Rows.Count, "A").End(xlUp).row
End With

Range("A1").Activate

For row = 1 To lastRow
    For i = 1 To 9
        Rows(ActiveCell.row).Select
        Selection.Copy
        Selection.Insert Shift:=xlDown
        ActiveCell.Offset(1, 0).Activate
    Next i
    ActiveCell.Offset(1, 0).Activate
Next row

End Sub

重复两个变量

1 个答案: