在sheet2删除行时下标越界，肯请指点

838225419 · 发表于 2024-1-25 15:48

本帖最后由 838225419 于 2024-1-25 15:55 编辑

在sheet2删除行时下标越界，肯请指点

qline302 · 发表于 2024-1-25 20:36

去除红色部分文字即可。因为表名里没有带"sheet"字符的表。
Sheets("sheet" & i).Range(s).EntireRow.Delete

shiruiqiang · 发表于 2024-1-25 20:37

没有工作表叫“sheet2”啊

shiruiqiang · 发表于 2024-1-25 20:40

ykcbf1100 · 发表于 2024-1-25 21:17

代码有问题，你可以用For Each Sht In Sheets循环，然后，排除掉“表一"就可以了。

838225419 · 发表于 2024-1-26 08:29

shiruiqiang 发表于 2024-1-25 20:40

运行400错误

838225419 · 发表于 2024-1-26 08:33

本帖最后由 838225419 于 2024-1-26 08:44 编辑

ykcbf1100 发表于 2024-1-25 21:17
代码有问题，你可以用For Each Sht In Sheets循环，然后，排除掉“表一"就可以了。

老师，您好，代码没错，如果将表名改为sheet1、sheet2、sheet3、sheet4则运行正常，但是表名改为汉字就出现错误，烦请老师指导，
Sheets("sheet" & i) 如何修改，拜托

ykcbf1100 · 发表于 2024-1-26 08:39

838225419 发表于 2024-1-26 08:33
老师，您好，代码没错，如果将表名改为sheet1、sheet2、sheet3、sheet4则运行正常，但是表名改为汉字就出 ...

你的附件请重新上传，我现在无法下载

838225419 · 发表于 2024-1-26 08:41

ykcbf1100 发表于 2024-1-26 08:39
你的附件请重新上传，我现在无法下载

谢谢老师，已重新上传，麻烦您

ykcbf1100 · 发表于 2024-1-26 08:55

838225419 发表于 2024-1-26 08:41
谢谢老师，已重新上传，麻烦您

增加行的代码，表一和表六是同步的，和其它表不同步；
删除行的代码已改好。

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

[求助] 在sheet2删除行时下标越界，肯请指点