找了半天没有找到办法，求助一下各位EXCEL大佬

先把数据都复制到同一列然后用数据透析表

Option Explicit
Sub abc()
　Dim i, j, a, d
　Set d = CreateObject("scripting.dictionary")
　For j = 1 To 6 Step 3
　　a = Cells(1, j).Resize(Cells(1, j).End(xlDown).Row, 2).Value
　　For i = 2 To UBound(a)
　　　d(a(i, 1)) = d(a(i, 1)) + a(i, 2)
　　Next
　Next
　[g2].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
End Sub

选中G2单元格，数据-合并计算，添加引用位置A2:B12和D2:E14，勾选最左列