arr = Sheets(1).UsedRange 报错

眉长苏同学 · 发表于 2023-5-26 16:13

各位大神，我使用.xls运行代码时可以正常运行，使用.xlsm则运行不了会报错。

leeson7502 · 发表于 2023-5-26 16:17

提示: 作者被禁止或删除内容自动屏蔽

longming3 · 发表于 2023-5-26 16:31

如果为空表会报错，加判断是否为空表

taller · 发表于 2023-5-27 02:21

上传示例文件是最好的求助方法

yuwd3 · 发表于 2023-5-27 08:23

眉长苏同学发表于 2023-5-26 16:08
加了wb.，运行报错424:要求对象

wb是指你工作溥的名称，要用具体的名称

liulang0808 · 发表于 2023-5-27 09:12

arr = Sheets(1).UsedRange
改成
arr = workSheets(1).UsedRange
看看是否可行

如果还有问题，建议上传附件

getset · 发表于 2023-5-27 21:21

数组arr要读的是一个range的单元格内容，正常写法是arr=range().cells.value，那我们就分析错误的可能，就是range需要连续，而usedrang是有可能不连续的，而current range又可能覆盖不了，所以建议使用xlup和xltoleft取得最后一行和最后一列后，再写成arr=sheets(标签或index).cells(1,1).resize(lastrow,lastcolun).value

彼岸归航 · 发表于 2023-5-28 09:53

Sheet1或者Sheets("工作表名称")

眉长苏同学 · 发表于 2023-5-31 22:40

getset 发表于 2023-5-27 21:21
数组arr要读的是一个range的单元格内容，正常写法是arr=range().cells.value，那我们就分析错误的可能，就 ...

用了你的方法，成功了，感谢感谢。

getset · 发表于 2023-6-7 16:00

眉长苏同学发表于 2023-5-31 22:40
用了你的方法，成功了，感谢感谢。

不客气，有机会经常交流

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

leeson7502 leeson7502 当前离线性别保密 UID 66230 阅读权限 0 注册时间 2005-2-19 在线时间小时最后登录 1970-1-1 积分 446 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2023-5-26 16:17 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] arr = Sheets(1).UsedRange 报错