多表合并

richuanchq

将各班人员成绩汇总到一张汇总表上，人员姓名前要加上所属班级名称。示例班级少，实际比较多。

lsc900707

论坛里有很多实例可供参考。

lsc900707

1. Sub gj23w98()
   
2.     Dim brr(1 To 10000, 1 To 5)
   
3.     For Each sht In Sheets
   
4.         If sht.Name <> ActiveSheet.Name Then
   
5.             With sht
   
6.                 arr = .[a1].CurrentRegion
   
7.             End With
   
8.             For i = 3 To UBound(arr)
   
9.                 If Len(arr(i, 2)) Then
   
10.                     m = m + 1
    
11.                     brr(m, 1) = m
    
12.                     brr(m, 2) = sht.Name
    
13.                     For j = 3 To 5
    
14.                         brr(m, j) = arr(i, j - 1)
    
15.                     Next
    
16.                 End If
    
17.             Next
    
18.         End If
    
19.     Next
    
20.     If m > 0 Then
    
21.         Range("a3:e" & Rows.Count).ClearContents
    
22.         [a3].Resize(m, 5) = brr
    
23.     End If
    
24. End Sub
    

复制代码

lsc900707

附件供参考：