Excelvba字典相同累積

思路是過濾掉不重復的數據，然後對不重復的數據進行分類求和，用SUMIF進行單條件求和。

錄制篩選後的宏，刪除重復的宏，將該宏作為自己的宏進行編輯，並刪除錄制的宏。

子測試()

將ls作為整數維數

將ll標註為整數

將ss標註為整數

Ls = activesheet。單元格(行。計數，1)。結束(xlup)。計算a列中的行數。

列(" A:A ")。挑選

申請。CutCopyMode = False

活動工作表。範圍(" a: a ")。'高級篩選操作:= xlfiltercopy，復制到範圍:= range ("xfd1 ")，unique: = true '篩選A列中的非重復數據，並將其放在最後壹列。

活動工作表。range ("xfd: xfd ")。'刪除重復的列:= 1，頭:= xlno '刪除篩選出的重復數據，因為頭將自行生成(EXCEL2016版本)。

ll =應用程序。worksheet function . CountA(active sheet。範圍(" XFD:XFD "))

做什麽？將過濾後的數據類別相加並輸出。

ss = ss + 1

ActiveSheet。範圍(" C " & ampss) = ActiveSheet。範圍(“XFD”& amp；ss)& amp；" = " & amp申請。worksheet function . SumIf(active sheet。範圍(" A:A ")，ActiveSheet。範圍(“XFD”& amp；ss)、ActiveSheet。範圍(" B:B "))

循環直到ss = ll

末端接頭

百度自動生成序列號，這在VBA是沒有的。