excel 自动排序 vba 公式 函数 设置 wps答:Sub test()Dim mAry, i As Long, j As Long, arr, brr, tmp1, tmp2Dim d As ObjectSet d = CreateObject("scripting.dictionary")mAry = [a1].CurrentRegionFor i = 2 To UBound(mAry, 1) d(mAry(i, 2)) = d(mAry(i, 2)) + mAry(i, 3)Nextarr = d.keys: brr = d....