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

发布网友发布时间：2022-09-18 12:18

共2个回答

热心网友时间：2023-10-21 18:43

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吗，刚突然断了，不让我进去了

热心网友时间：2023-10-21 18:44

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com