Question

这段代码可以工作两三次，然后我得到一个“Range类失败的PasteSpecial方法”错误。我知道当没有任何复制时我得到了这个错误，但考虑到它被复制在上面，我不明白为什么它不起作用。

当我逐步调试并观察它时，它会在粘贴行之后循环回到开头，而不是遍历Sub的结尾。

Sub AddRows()
   Range("A11").End(xlDown).EntireRow.Copy
   Range("A11").End(xlDown).Offset(1, 0).PasteSpecial xlPasteAll
   Application.CutCopyMode = False
End Sub

有什么想法吗？提前谢谢大家！

Answer 1

尝试以下代码：复制和粘贴操作可以合并为一行。下面的代码将范围从单元格A11复制到具有数据的最后一个单元格，并将数据粘贴到下面的下一个单元格中。

 Sub AddRows()


    Dim lastRow As Long
    lastRow = Range("A" & Rows.Count).End(xlUp).Row

    Dim rng As Range
    Set rng = Range("A11:A" & lastRow)

    ' Next row
    rng.Copy Cells(lastRow + 1, 1)

    'if you want data to be pasted to Column B use below
    'rng.Copy rng.Offset(0, 1)
End Sub

复制和粘贴问题

1 个答案: