VBA可见单元粘贴错误1004

Question

我有一个VBA代码，在粘贴可见单元格时得到1004错误：

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

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