数组赋值报错

ttbb523 · 发表于 2023-2-5 19:16

drr = Sheets("sheet2").Range(Cells(2, i * 11 - 10), Cells(3, i * 11 - 1))
Sheets("kdj").Range(Cells(2, i * 11 - 10), Cells(3, i * 11 - 1)) = drr
第二步报程序或对象出错
就改了工作表名称，没有搞懂

ttbb523 · 发表于 2023-2-5 19:33

是工作表的问题，不能对其他工作表操作
鼠标激活kdj工作表后，本语句可以执行
在找原因不能操作其他工作表

3190496160 · 发表于 2023-2-5 22:26

Sheets("kdj").Range(Sheets("kdj").Cells(2, i * 11 - 10), Sheets("kdj").Cells(3, i * 11 - 1)) = drr

ttbb523 · 发表于 2023-2-5 23:23

3190496160 发表于 2023-2-5 22:26
Sheets("kdj").Range(Sheets("kdj").Cells(2, i * 11 - 10), Sheets("kdj").Cells(3, i * 11 - 1)) = drr

还是不行啊，只能先激活工作表kdj，才能赋值，不知道原因

ttbb523 · 发表于 2023-2-5 23:25

3190496160 发表于 2023-2-5 22:26
Sheets("kdj").Range(Sheets("kdj").Cells(2, i * 11 - 10), Sheets("kdj").Cells(3, i * 11 - 1)) = drr

可以了，谢谢
这是什么原因啊，为什么在单元格表达里面还要添加工作表名称啊

ttbb523 · 发表于 2023-2-5 23:30

3楼精准解决问题，谢谢
就是不知道为什么里面还要添加工作表名称就可以将数组赋值给另一个工作表

taller · 发表于 2023-2-6 03:16

Sheet().Range(如果参数使用Range对象，那么必须和是前面的Sheet()保持一致)

参考 https://learn.microsoft.com/en-us/office/vba/api/excel.range(object)?WT.mc_id=M365-MVP-33461

		自动登录	找回密码
密码			免费注册

[求助] 数组赋值报错

评分