请帮看下，这个循环应该怎么写呢

zldlsdz

Sub 统计()
Dim i%, h%, j%, k%, arr, brr
    arr = Sheet2.Range("A2:HJ184")
    brr = Sheet1.Range("B2:Hk182")
    h = Sheet2.Range("A2").CurrentRegion.Columns.Count
        For k = 1 To h
            Sheet1.Cells(2, k + 2) = Sheet2.Cells(2, k)
            For j = 1 To UBound(brr)
            If arr(j + 2, k) = brr(k, 1) Then
                brr(j + 2, k + 2) = 1
            End If
        Next j
    Next k
End Sub
想实现：1.数据库里面第二行的数据复制到统计表的C2之后，
             2.如果数据库里面每列人名单与统计表B列的名单匹配后，在相对应的列填“1”，不存在填“0”。
以上是自己写的一个，遇到的问题是：循环与数组大小不匹配，下界越标；查找是否存在不太会写。
请帮帮忙！

zldlsdz

循环的对应关系好像没弄明白，求大神指点。

shiruiqiang

1、发现有同名的，其次，最后的统计数据怎么来的？

帮修改了一下，将统计表独立提取出来，选择文件进行统计明细，以免下次还要复制粘贴。汇总的自己搞一下吧，外人不确定
字典嵌套好搞一点。

shiruiqiang

新手路过，不包售后

zldlsdz

shiruiqiang 发表于 2023-5-19 20:33
新手路过，不包售后

字典还是比较蒙的状态。且顺序变了，收起来慢慢研究。但还是要表示感谢！！

tel3033

供参考……

tel3033

1. Sub 统计()
   
2. Dim i%, j%, arr
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("数据库")
   
5.         arr = .[a2].CurrentRegion
   
6.         For i = 3 To UBound(arr)
   
7.             For j = 1 To UBound(arr, 2)
   
8.                 d(arr(i, j) & "|" & arr(1, j)) = ""
   
9.             Next
   
10.         Next
    
11.     End With
    
12.     With Sheets("统计表")
    
13.         arr = .[b2:hl181]
    
14.         For i = 2 To UBound(arr)
    
15.             For j = 2 To UBound(arr, 2)
    
16.                 s = arr(i, 1) & "|" & arr(1, j)
    
17.                 If d.exists(s) Then
    
18.                     arr(i, j) = 1
    
19.                 Else
    
20.                     arr(i, j) = 0
    
21.                 End If
    
22.             Next
    
23.         Next
    
24.     .[b2].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
    
25.     End With
    
26. Set d = Nothing
    
27. End Sub
    

复制代码

zldlsdz

tel3033 发表于 2023-5-19 21:40
供参考……

感谢感谢！