[已解决]2个条件的分类汇总VBA代码修改求助

安全网

zjdh 发表于 2015-12-21 19:04
Sub TJ()
    Set d = CreateObject("scripting.dictionary")
    Set d1 = CreateObject("scripting.dic ...

x = 2 To UBound(arr, 1)能否帮忙解释下这个的意思了？

zjdh

安全网 发表于 2015-12-22 09:33
..Resize(d.Count, 5).Sort key1:=.  '按公司名称排序，帮忙看看第3行的数据不能参与排序是什么原因 ...

可能有些系统缺省状态是有标题栏的，将第三行当标题栏了，你就增加一个参数试试:
.[b3].Resize(9, 5).Sort key1:=.[b3], Header:=xlNo

zjdh

UBound(arr, 1)，即数组的第一维数量，与  UBound(arr) 是一回事

安全网

zjdh 发表于 2015-12-22 21:01
UBound(arr, 1)，即数组的第一维数量，与  UBound(arr) 是一回事

那个2是什么意思了？

zjdh

安全网 发表于 2015-12-23 09:58
那个2是什么意思了？

以此类推啊