当&Quot;Paste&Quot;运行时出现VBA运行时错误438 [英] VBA Run-time error 438 appears when "paste" runs
本文介绍了当&Quot;Paste&Quot;运行时出现VBA运行时错误438的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我刚刚熟悉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
使"运行时错误438.对象不支持此特性或方法"出现在"Selection.Paste"行的后面。有什么问题吗? 我尝试使用特殊粘贴、激活工作表和选择单元格(不是区域)、使用CSTR,但没有任何变化
推荐答案
尝试Selection.PasteSpecial xlPasteAll
Paste
本身作用于多个对象,最明显的是Worksheet
,但不作用于Range
对象,而Selection
就是Selection
。
要粘贴到Range
,您确实必须使用PasteSpecial
方法及其‘可用参数’,如xlPasteAll
;xlPasteValues
;xlPasteFormulas
;xlPasteFormats
,当光标位于VBE中的PasteSpecial
时按F1
即可查看。
这篇关于当&Quot;Paste&Quot;运行时出现VBA运行时错误438的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文