복사하여 붙여 넣기 문제

Question

이 코드는 두 번 또는 세 번 작동 한 다음 "범위 클래스의 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