在Excel VBA中使用SQL的“分组依据”功能对数据进行分组

您的代码很好；您只需要修改SQL查询。

strSQL = "SELECt [Table1$].[F_Number], [Table2$].[A_Country], SUM([Table1$].[A_Weight]) " & _         "FROM [Table1$], [Table2$] " & _         "WHERe [Table2$].[A_Number] = [Table1$].[A_Number] " & _         "GROUP BY [Table1$].[F_Number], [Table2$].[A_Country]"