(资料图片)

1、Sub 汇总() js1 = 2 Do While Cells(js1, 1) & Cells(js1, 2) <> "" js2 = 2 Do While Cells(js2, 9) & Cells(js2, 10) <> Cells(js1, 1) & Cells(js1, 2) If Cells(js2, 9) & Cells(js2, 10) = "" Then Exit Do js2 = js2 + 1 Loop Cells(js2, 9) = Cells(js1, 1) Cells(js2, 10) = Cells(js1, 2) Cells(js2, 11) = Cells(js1, 3) Cells(js2, 12) = Cells(js1, 4) Cells(js2, 13) = Cells(js2, 13) + Cells(js1, 5) js1 = js1 + 1 LoopEnd Sub建立辅助列：=a2&b2&c2&d22、复制到另一列、删除重复值；3、提取没有重复的ABCD值；4、按照提取后的项目进行汇总。

本文到此分享完毕，希望对大家有所帮助。