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

zyx_216

单位是个电商，和很多物流公司合作，物流公司会按公司的模板把订单号运单号和代收款金额发给我们，我们需要把每个物流公司的表格合并到一个工作簿，然后在汇总页进行汇总，合并的话通过论坛里的大神写的代码实现， 但是首页汇总确成了难题，样式如下，还请大神帮忙

不知道为什么

如图

microyip

http://club.excelhome.net/thread-1310803-1-1.html 参考变通一下

zhangzhang

Public Sub TEST()
Dim Sht As Worksheet
Dim Rng As Range
Dim LastR As Long

For Each Sht In ThisWorkbook.Worksheets
    If Sht.Name <> "汇总" Then
        Set Rng = Sht.Range("A1").CurrentRegion
        Set Rng = Rng.Offset(1, 2).Resize(Rng.Rows.Count - 1, 1)
        LastR = Range("A1048576").End(xlUp).Row + 1
        Range("A" & LastR) = Sht.Name
        Range("B" & LastR) = Application.WorksheetFunction.Sum(Rng)
    End If
Next Sht

End Sub

不知道为什么

代码

曹银强

sub tt()
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")
end sub

chaohuahch

如图！代码供测试。

zyx_216

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

非常感谢
我还想问下，有什么方法可以在每个表的C1001单元格做一个'=sum(c2:c1000)'

zyx_216

microyip 发表于 2018-7-24 09:51
http://club.excelhome.net/thread-1310803-1-1.html 参考变通一下

刚开始接触宏，我实在是看不太懂，抱歉

zhangzhang

zyx_216 发表于 2018-7-24 10:11
非常感谢
我还想问下，有什么方法可以在每个表的C1001单元格做一个'=sum(c2:c1000)'

有什么方法可以在每个表的C1001单元格做一个'=sum(c2:c1000)'  这种方法不太好