同一工作簿下所有工作表按相同名称汇总求和

jjip123 · 发表于 2024-12-24 15:15

ykcbf1100 发表于 2024-12-24 15:12
你应该规范分表的结构，不然，数据处理就变得麻烦易错。
本来你分表中没有合计以下几行“无用”的数据， ...

我把其他表下面的删除了，这个怎么改？

ykcbf1100 · 发表于 2024-12-24 15:16

jjip123 发表于 2024-12-24 15:15
我把其他表下面的删除了，这个怎么改？

换成这句：r = sht.Cells(Rows.Count, 1).End(3).row

ykcbf1100 · 发表于 2024-12-24 15:17

本帖最后由 ykcbf1100 于 2024-12-24 15:19 编辑

jjip123 发表于 2024-12-24 15:15
我把其他表下面的删除了，这个怎么改？

这句可以换成这样：r=UBound(arr)

jjip123 · 发表于 2024-12-24 15:19

我把其他表，无用的合计这些行全删除了，麻烦大神帮我看一下！

ykcbf1100 · 发表于 2024-12-24 15:54

jjip123 发表于 2024-12-24 15:19
我把其他表，无用的合计这些行全删除了，麻烦大神帮我看一下！

改好了。。。

jjip123 · 发表于 2024-12-24 15:56

ykcbf1100 发表于 2024-12-24 15:17
这句可以换成这样：r=UBound(arr)

大神，我在这个表格前面加了一个目录工作表，表里是对应的名字。加了这个工作表后这个代码提示下标越界

jjip123 · 发表于 2024-12-24 15:56

这个附件加了目录工作表！

ykcbf1100 · 发表于 2024-12-24 16:21

jjip123 发表于 2024-12-24 15:56
这个附件加了目录工作表！

改好了。。。

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

[求助] 同一工作簿下所有工作表按相同名称汇总求和