复制到同工作簿另一个工作表显示下标越界原因

ajgdm122 · 发表于 2023-3-14 14:39

同一个工作簿，表内容复制到本表的其他地方就可以，选择其他表格黏贴就显示下标越界？要如何修改？程序在模块

杨建营 · 发表于 2023-3-14 14:58

工作表名称的问题。中间少个空格。

ajgdm122 · 发表于 2023-3-14 15:07

杨建营发表于 2023-3-14 14:58
工作表名称的问题。中间少个空格。

我把空格删掉了，表名字的空格也删掉了，又变成了应用程序定义或对象定义错误，为啥啊？

杨建营 · 发表于 2023-3-14 15:23

删掉空格也可以复制啊。

3190496160 · 发表于 2023-3-14 15:38

复制到另一张表出现下标越界.rar (312.6 KB, 下载次数: 3)

ajgdm122 · 发表于 2023-3-14 19:26

杨建营发表于 2023-3-14 15:23
删掉空格也可以复制啊。

Sub 提取做资料用的数据()
Dim n%
n = Sheets("工地明细").Cells(Rows.Count, 3).End(xlUp).Row
Sheets("工地明细").Range("A2").Resize(n - 1, 3).Copy Sheets("资料2").Range("A2")

End Sub
修改成上面的就不会出错了

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

[求助] 复制到同工作簿另一个工作表显示下标越界原因