汇总后面的工作表相同列标题的数在一个工作表里

shufeabb

汇总后面的工作表相同列标题的数在一个工作表里.zip (24.19 KB, 下载次数: 14)

2012-7-26 10:35 上传

点击文件名下载附件

zhaogang1960

请测试

1. Sub Macro1()
   
2.     Dim arr, brr(), sh As Worksheet, i&, j&, m&, n&, d As Object, c
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Range("A1").CurrentRegion
   
5.     For j = 1 To UBound(arr, 2)
   
6.         d(arr(1, j)) = j
   
7.     Next
   
8.     ReDim brr(1 To 60000, 1 To UBound(arr, 2))
   
9.     For Each sh In Sheets
   
10.         If sh.Name <> ActiveSheet.Name Then
    
11.             arr = sh.Range("A1").CurrentRegion
    
12.             n = m
    
13.             For j = 1 To UBound(arr, 2)
    
14.                 c = d(arr(1, j))
    
15.                 If c <> "" Then
    
16.                     m = n
    
17.                     For i = 2 To UBound(arr)
    
18.                         m = m + 1
    
19.                         brr(m, c) = arr(i, j)
    
20.                     Next
    
21.                 End If
    
22.             Next
    
23.         End If
    
24.     Next
    
25.     ActiveSheet.UsedRange.Offset(1).ClearContents
    
26.     Range("A2").Resize(m, UBound(brr, 2)) = brr
    
27. End Sub
    

复制代码

zhaogang1960

请看附件
汇总后面的工作表相同列标题的数在一个工作表里.rar (24.56 KB, 下载次数: 62)

2012-7-26 11:02 上传

点击文件名下载附件

shufeabb

你们真的是value person呀
超有价值的。

LMY123

同薄相同标题行，自动复制