VBA入门到进阶常用知识代码总结29

第29集 VBA数组与字典综合应用之下棋法 126、 多列汇总 Sub 多列汇总() Dim brr(1 To 10000, 1 To 3) Dim Brow Dim arr, x, k Dim d As New Dictionary arr = Range(“a2:c” & Range(“a65536”).End(xlUp).Row) For x = 1 To UBound(arr) If d.

>>阅读原文<<