Question

尝试在A列中复制粘贴一系列值，共33次。这是我到目前为止所得到的，但此代码使用每个粘贴的值集创建一个空行。想要在没有空白的情况下创建它。

此外，我希望有一个额外的列与每个粘贴的值匹配，并在行A中排列33个不同的标签。

非常感谢帮助！感谢。

Private Sub Repeat_Command()
Dim i As Integer
Range("A2:A10").Select
Selection.Copy
For i = 1 To 33
    Range("A" & 1 + i * 10).Select
    ActiveSheet.Paste
Next i
End Sub

Answer 1

这将在每个副本之间没有空格复制：

Sub KopyKat()
    Dim r As Range, i As Long, n As Long

    Set r = Range("A2:A10")
    For i = 1 To 33
        n = Cells(Rows.Count, 1).End(xlUp).Row + 1
        r.Copy Cells(n, 1)
    Next i
End Sub

使用此技术会自动查找第一个可用的目标单元格，因此您可以根据需要更改 A2：A10 。

在同一列中复制和值（x次）

1 个答案: