这个拆分附表的代码哪里出错了

zhong4314 · 发表于 2022-12-3 21:24

zjdh 发表于 2022-12-3 20:31
在你的代码上稍作修改
Sub 拆分多个工作表()
Dim danyuange1 As Range, danyuange2 As Range

你好，老师，我想问问

1）GOTO 10 是什么意思，不太理解哦
2）我执行了代码后发现“成都***” 合计金额不太对哈：

zjdh · 发表于 2022-12-3 21:53

本帖最后由 zjdh 于 2022-12-3 21:55 编辑

我这运行正常啊
无标题.jpg

Goto 10 : 跳转语句，跳到序号10语句

zjdh · 发表于 2022-12-3 21:58

Excel-VBA每日训练1 - 副本.rar (15.41 KB, 下载次数: 3)

zhong4314 · 发表于 2022-12-3 22:53

zjdh 发表于 2022-12-3 21:58

谢谢大哥，GOTO 10是不是当Instr（*****）>0，执行了then后的语句之后，就调到10位置的danyuange1 next执行下一个单元格位置是吧，直到没有Instr（***）>0为止就再执行 Add(after:= ******）的语句是吧，

如果是这样子是不是说明我之前两个For each的顺序调转了，所以需要强制性地用GOTO去执行，你觉得我这样说对吗？

zjdh · 发表于 2022-12-4 09:32

基本正确

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

这个拆分附表的代码哪里出错了

评分