2017-02-11 2 views
1

나는 눈에 보이는 셀을 붙여 넣을 때 1004 오류가 발생하는 VBA 코드가 : 범위 클래스의 VBA 보이는 셀 붙여 넣기 오류 1004

PasteSpecial 방법은

내가 붙여 주석 처리 실패

및 보이는 셀을 복사하여 수동으로 붙여 넣을 수 있지만 자동 붙여 넣기로 인해 오류가 발생합니다. 시트 이름이 정확하고 다양한 종류의 붙여 넣기를 시도했음을 확인했으며 단지 .Paste입니다.

'Copies Column A visible rows 
Sheets("Sheet1").Range("$A$2:$A$" & lastRow).SpecialCells (xlCellTypeVisible).Copy 

'Empties sheet 
Sheets("Sheet2").Cells.ClearContents 

'Pastes to sheet2 
Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues 

사람이 솔루션을 제안 할 수 있습니다 :

이 내 코드?

+0

이 오류는 통합 문서를 저장하지 않은 경우 발생할 수 있습니다. 저장 한 다음 값을 붙여 넣으십시오. http://stackoverflow.com/questions/17281872/error-pastespecial-method-of-range-class-failed – Matts

답변

3

Copy보다 먼저 이동하십시오. ClearContents 메서드는 클립 보드를 비우는 작업입니다.

'Empties sheet 
Sheets("Sheet2").Cells.ClearContents 

'Copies Column A visible rows 
Sheets("Sheet1").Range("$A$2:$A$" & lastRow).SpecialCells(xlCellTypeVisible).Copy 

'Pastes to sheet2 
Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues 
+0

http://stackoverflow.com/questions/13988783/range-clearcontents-clears-the-system-clipboard- workaround-vba-excel –

+0

당신은 나의 영웅입니다. 이 문제가 해결되었습니다. – Katie