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

VBA可见细胞粘贴错误1004

1 个答案: