85问答库 > VBA中出现“438”错误，对象不支持该属性或方法。请帮忙看看，谢谢

VBA中出现“438”错误，对象不支持该属性或方法。请帮忙看看，谢谢

2025-06-27 06:48:51

推荐回答（2个）

回答1：

rng.Select '选择该区域
Selection.Copy
Range("p5").PasteSpecial xlPasteAll

如果你不要自制格式，只要数据，直接用数组更好些
Dim rng As Range
Dim arr
c = ActiveSheet.Range("IV1").End(xlToLeft).Column '取最后一个非空单元格
Set rng = Range(Cells(2, 1), Cells(2, c)).Offset(1, 0) '提取要选择的区域
arr = rng
Range("P5").Resize(1, UBound(arr, 2)) = arr

回答2：

ActiveSheet.rng.Copy Destination:=ActiveSheet.RangeCells(2, 1), Cells(2, c))