VBA 可见单元格粘贴错误 1004

Question

我有一个 VBA 代码在粘贴可见单元格时出现 1004 错误:

PasteSpecial method of Range class failed

我可以注释掉粘贴，它会复制可见的单元格，以便我可以手动粘贴它们，但自动粘贴会导致错误。我已经确认工作表名称是正确的，并尝试了各种类型的特殊粘贴，只是 .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