如何用vba实现同一工作表中，将多个工作簿数据汇总到1个新工作簿中。

现状：（1）1个excel表中有多个工作簿，假定工作簿名称有201201、201202、201203、201301、201302、201303
（2）每个工作簿中的列字段固定且顺序一致，如：产品、销售量、销售金额
（3）每个工作簿中的行字段不完全一致，且顺序不一样。如：
201201表中
产品 销售量 销售金额
A1
A2
A3
201202表中
产品 销售量 销售金额
A2
A3
A4
A5
目标：1、能选择同一年度中任意一个或多个月份的数据自动汇总
目标2、如果后续增加201204工作簿时，也可以选择改工作簿数据。

如果只求总金额
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

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/22ppvsmps.html