Question

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

Dim rng As Range

c = ActiveSheet.Range("IV1").End(xlToLeft).Column '取最后一个非空单元格
Set rng = Range(Cells(2, 1), Cells(2, c)).Offset(1, 0) '提取要选择的区域
rng.Select '选择该区域
ActiveSheet.rng.Copy Destination:=ActiveSheet.Range("P5") ， ‘’‘这句有错误

Answer 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

追问

能加你QQ吗，刚突然断了，不让我进去了

Answer 2

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