按字典訪問方法求和

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

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

子測試（）

將ls設為整數

將ll設為整數

將ss設為整數

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

列（“A:A”）。挑選

申請。CutCopyMode = False

活動工作表。範圍（“a: a”）。‘高級篩選操作:= xlfiltercopy，復制到範圍:= range（“xfd 1“），unique:= true‘篩選A列中的非重復數據並將其放在最後壹列。

活動工作表。範圍（“xfd: xfd“）。刪除重復的列:= 1，標題:= xlno刪除篩選出的重復數據，因為標題將自行生成（EXCEL2016版本）。

ll =應用。工作表function . CountA（active sheet。範圍（“XFD:XFD“）

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

ss = ss + 1

活動表。範圍（“C“& amp；ss）=活動表。範圍（“XFD”& amp；ss）和amp“=“& amp；申請。工作表function . SumIf（active sheet。範圍（“A:A”），活動表。範圍（“XFD”& amp；ss）、活性薄片。範圍（“B:B“）

循環直到ss = ll

末端接頭

百度自動生成序列號，這在VBA是不可用的。