子母表合并

Piano青墨

sheet1母表格是班级A列是班级B列是班级名称。sheet2子表是A列是班级B列是班级里的人名。用VBA把sheet1中A等于sheet2中A的班级才运行到sheet3中，跑到sheet3一个表中同时按照班级分配好（例如三班没有就不在sheet3中显示）。

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr, crr()
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("学校")
   
7.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.         arr = .Range("a2:d" & r)
   
9.         For i = 1 To UBound(arr)
   
10.             d(arr(i, 1)) = i
    
11.         Next
    
12.     End With
    
13.     With Worksheets("班级")
    
14.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
15.         brr = .Range("a2:c" & r)
    
16.     End With
    
17.     ReDim crr(1 To UBound(brr), 1 To 6)
    
18.     For i = 1 To UBound(brr)
    
19.         crr(i, 1) = brr(i, 1)
    
20.         crr(i, 5) = brr(i, 2)
    
21.         crr(i, 6) = brr(i, 3)
    
22.         If d.exists(brr(i, 1)) Then
    
23.             m = d(brr(i, 1))
    
24.             crr(i, 2) = arr(m, 2)
    
25.             crr(i, 3) = arr(m, 3)
    
26.             crr(i, 4) = arr(m, 4)
    
27.         End If
    
28.     Next
    
29.     With Worksheets("运行结果")
    
30.         .UsedRange.Offset(1, 0).Clear
    
31.         .Range("a2").Resize(UBound(crr), UBound(crr, 2)) = crr
    
32.     End With
    
33. End Sub
    

复制代码

chxw68

详见附件。

Piano青墨

非常感谢，我还有个问题，我有发一个帖子，如果是相同班级，怎么分配