"paste"运行时出现VBA运行时错误438

Question

我刚刚熟悉 VBA 和我的代码

For k = 3 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(k).Activate
ActiveSheet.Cells(11, 2).Select

lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("A5:" & "A" & CStr(lLastRow)).Copy
' ThisWorkbook.Sheets(1).Cells("B" & CStr(lFirstRow) & ":B" & CStr(lLastRow)).Select
ThisWorkbook.Sheets(1).Activate
ActiveSheet.Cells(lFirstRow, 2).Select
Selection.Paste
'Selection.PasteSpecial Paste:=xlPasteValues
'Selection.PasteSpecial Paste:=xlPasteFormats
lFirstRow = lFirstRow + lLastRow
Next k

当“Selection.Paste”行出现时，会出现“运行时错误 438。对象不支持此属性或方法”。有什么问题？:(
我尝试使用特殊粘贴，激活工作表并选择单元格(不是范围)，使用 Cstr，但没有任何改变

Answer 1

试试 Selection.PasteSpecial xlPasteAllPaste 本身适用于多个对象，最值得注意的是 Worksheet 但不适用于 Range 对象，这就是您的 Selection 。

要粘贴到 Range ，您确实必须使用 PasteSpecial 方法及其可用参数，例如 xlPasteAll ； xlPasteValues； xlPasteFormulas； xlPasteFormats 和其他您可以通过在 VBE 中光标位于 F1 内时按 PasteSpecial 来查看。