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

lj1226189

Sheet4.[a4].CurrentRegion.ClearContents
On Error Resume Next
For i = Cells(2, 2) To Cells(2, 4)
    m = i & "月"
    With Sheets(m)
        j = .[a65536].End(xlUp).Row
        k = .[iv1].End(xlToLeft).Column
        pp = pp & "'" & m & "'!R1C1:R" & j & "C" & k & ","
    End With
Next
pp = Left$(pp, Len(pp) - 1)
arr = Split(pp, ",")
    Sheet4.[a4].Consolidate arr, xlSum, True, True
    Sheet4.[a4] = Sheet1.[a1]

su45

 pp = pp & "'" & m & "'!R1C1:R" & j & "C" & k & ","
主要是为生成arr数组服务的，存放的是“一月”“二月”“三月”表中的数据区域，表与表的数据区域用“,”隔开。

pp = Left$(pp, Len(pp) - 1)

消除PP字符串中最后一个分隔符“,”

 Sheet4.[a4].Consolidate arr, xlSum, True, True

将若干工作表中若干区域的数据合并计算至单个工作表上的单个区域。arr, xlSum, True, True是参数。具体参阅VBA的帮助。

kezhiye

下了,感谢了

kezhiye

请问能不能修改成不是全部字段的汇总,也就是说,只要汇总指定的字段,比如配料1,配料5和配料7,别的字段则不显示.

TGB

学会了这个东东,汇总就简单了,可以不用循环了!

kezhiye

对呀,但各个分表里难免有些摘要备注之类的字段,而这些这段汇总表里不需显示啊

wangtian

好,衷心地感谢.

syssys

文件下不了呀

uoyeliam

谢谢，感觉应该很有用

leo-shan

楼主如果能从头到尾详细解释就好啦~~~~~~~~~~~~