字典与数组

kuangben8

如果需要的人员没有重复值的话，直接数组即可。

1. Sub 汇总()
   
2.     Dim arr, brr, i%, j%, crr
   
3.     arr = Worksheets("数据").Range("A1").CurrentRegion
   
4.     brr = Worksheets("需要的人员").Range("A1").CurrentRegion
   
5.     ReDim crr(1 To UBound(brr, 1) - 1, 1 To 2)
   
6.     For i = 2 To UBound(brr, 1)
   
7.         crr(i - 1, 1) = brr(i, 1)
   
8.         For j = 2 To UBound(arr, 1)
   
9.             If arr(j, 1) = brr(i, 1) Then
   
10.                 crr(i - 1, 2) = crr(i - 1, 2) + arr(j, 2)
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     With Worksheets("需要的数据")
    
15.         .Range("A1").CurrentRegion.Offset(1, 0).ClearContents
    
16.         .Range("A2").Resize(UBound(crr, 1), 2) = crr
    
17.     End With
    
18. End Sub

复制代码

zymwhy

liujialin0o0 发表于 2019-1-18 15:32
Sub t()
arr = Sheets(1).[A1].CurrentRegion
brr = Sheets(2).Range("A1:B" & Sheets(2).Cells(Rows.Cou ...

今天花不够了，明天给，谢谢。

zymwhy

kuangben8 发表于 2019-1-18 15:44
如果需要的人员没有重复值的话，直接数组即可。

老师，网上讲数组转置行限制在65536内，所以超过限制的数据用数组最好，不要用字典获得key和item值转置是不是这样呢？

zhuyufan

chxw68 发表于 2019-1-18 15:08
仅供参考。

老师你好，有个问题能帮忙看下怎么解决么，贴子最近一个

kuangben8

zymwhy 发表于 2019-1-18 16:44
老师，网上讲数组转置行限制在65536内，所以超过限制的数据用数组最好，不要用字典获得key和item值转置是 ...

转置限制是在你用transpose函数导致，超过65536时，可以事先定义对应维度的数组，然后直接写入，就像我定义的crr二维数组。不用转置，直接写入单元格。

02761752696

学习   学习   

zymwhy

举 一反三，再仔细比较以上老师写的代码还是有细微差异的，比如需要的人员在数据中没有是什么情况。慢慢领悟。