VBA可見細胞漿料錯誤1004

Question

我有粘貼可見細胞時所得到一個1004錯誤VBA代碼：

Range類的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 

任何人都可以提出一個解決辦法？

Answer 1

在Copy之前移動ClearContents - 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