如果只求总金额
Sub dkdkdfj()
Set w = Workbooks("***.xls")
For Each t In ActiveSheet.[a1:a10] '要统计的表格名称(即时间)输入a1:a10
jg = Application.WorksheetFunction.Sum(w.Sheets(t).Range("c:c")) + jg'如果销售金额在C列
If t = "" Then Exit For
Next
msgbox jg
End Sub
如果表头相同，可以使用合并计算功能。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024