怎么实现同一个excel文件多个sheet中数据的汇总

liwei190321

汇总多个sheet中的数据.rar (9.66 KB, 下载次数: 28)

2017-2-27 18:10 上传

点击文件名下载附件

如题，表格在附件里，请高人指点！！！
另外随着时间的变化，每个月份都要添加一个sheet，汇总这里的公式可以自动变更吗？

ccnu425

这个需要写vba自定义函数了。

11200637

按照月份添加辅助列，=IFERROR(VLOOKUP($A2,INDIRECT(C$1&"!A1",TRUE):INDIRECT(C$1&"!B100",TRUE),2,0),0)

可以友

Sub aa()
For Each Rng In Sheets
If Rng.Name = "汇总" Then GoTo 100
ii = Rng.Application.CountA(Range("A:A"))
For j = 2 To Sheets("汇总").Application.CountA(Range("A:A"))
For i = 2 To ii
If Rng.Cells(i, 1) = Sheets("汇总").Cells(j, 1) Then Sheets("汇总").Cells(j, 2) = Sheets("汇总").Cells(j, 2) + Rng.Cells(j, 2)
Next
Next
100:
Next
End Sub

cql841024

正遇到这个问题，学习了。

CQL750831

新人来访，学习学习！

tianjiao195

=SUMPRODUCT(SUMIF(INDIRECT(ROW($1:$4)&"月!a:a"),a2,INDIRECT(ROW($1:$4)&"月!b:b")))