[原创]可选择的多表汇总方法

laosanjie

楼主的这个“东东”很好啊！下载收藏学习了！谢谢楼主！！！

wx-x

不错，奖励2.5分。

duducat2002

太棒了，正好用上了，谢谢楼主！

富戈

利用  for each sh in ActiveWorkbook.Sheets 的方式比较通用，如果你的工作表不是  1月  2月 …… ，而是其他的名称，那么就要修改程序了，因此采用如上面的循环那么就不用修改程序。

Sub 富戈()
    Sheet4.[a4].CurrentRegion.ClearContents
    On Error Resume Next
   
    Dim sh As Worksheet
   
    For Each sh In ActiveWorkbook.Sheets
        If sh.Name <> "汇总" Then
            With sh
                j = .[a65536].End(xlUp).Row
                k = .[iv1].End(xlToLeft).Column
                pp = pp & "'" & sh.Name & "'!R1C1:R" & j & "C" & k & ","
            End With
        End If
    Next
    pp = Left$(pp, Len(pp) - 1)
    arr = Split(pp, ",")
   
    Sheet4.[a4].Consolidate arr, xlSum, True, True
    Sheet4.[a4] = Sheet1.[a1]
   
End Sub

知足乐也

我试试看!看效果怎么样?

xianyg

非常好，太实用了。

dftn888

原帖由 富戈 于 2008-8-22 17:05 发表
利用&nbsp; for each sh in ActiveWorkbook.Sheets 的方式比较通用，如果你的工作表不是&nbsp; 1月&nbsp; 2月 …… ，而是其他的名称，那么就要修改程序了，因此采用如上面的循环那么就不用修改程序。Sub 富戈()&nbs ...

找你的代码原表非常正确，把表改过不知道怎样改代码，劳您大驾看看。

imeaning

不哦错
学习了

fanhongnc

学习下

hangye

thanks