複製粘貼問題

此代碼工作兩三次，然後得到「PasteSpecial方法的範圍類失敗」錯誤。我知道當沒有任何內容被複制時我會得到這個錯誤，但考慮到它是在上面複製的，我不明白爲什麼它不起作用。複製粘貼問題

當我逐步調試並觀察它時，它會在粘貼行之後循環回到開頭，而不是遍歷Sub的末尾。

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

任何想法？謝謝大家提前！

來源

2013-05-10 user2371229

請通過標記正確答案來「關閉」問題。這是人們在幫助別人時喜歡的東西。這將有助於同樣的問題，以確定正確的解決方案 – Santosh 2013-05-28 01:10:21

請嘗試以下代碼：複製和粘貼操作可以組合在一行中。下面的代碼複製從單元格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

來源

2013-05-10 19:14:09 Santosh

複製粘貼問題

回答

相關問題