求大神帮助，很多分表汇总到汇总表，汇总表能显示分表表名和合计金额

jjmysjg

都截图呀！！！

lsc900707

附件供测试参考：

约定的童话

曹银强 发表于 2018-7-24 09:59
sub tt()
for each sh in sheets
n=n+1

干练的 代码啊，小弟学习了！！！

约定的童话

曹银强 发表于 2018-7-24 09:59
sub tt()
for each sh in sheets
n=n+1

修复了两个小错误，人性化了一下
Sub 汇总()
For Each sh In Sheets
n = n + 1
If sh.Name <> "汇总" Then Sheets("汇总").Cells(n, 1) = sh.Name
Sheets("汇总").Cells(n, 2) = Application.Sum(sh.Range("c:c"))
Next
[B1] = "汇总金额"
End Sub

opiona

http://club.excelhome.net/thread-1409141-1-1.html

笑眯眯330

zhangzhang 发表于 2018-7-24 09:52
Public Sub TEST()
Dim Sht As Worksheet
Dim Rng As Range

您好大神，我的这个案例中每一张表格的列数量不一样，也是需要简单汇总列示，麻烦帮我看一下，谢谢
http://club.excelhome.net/thread-1426012-1-1.html