多表数据汇总，谢谢！

mzbao

1. Private Sub CommandButton1_Click()
   
2. Dim c%, r%, i%
   
3. 
   
4. For Each sh In Worksheets
   
5.     If sh.Name <> "汇总" Then
   
6.         With sh
   
7.             c = .[A10000].End(xlUp).Row
   
8.             r = [A10000].End(xlUp).Row
   
9.             Cells(r + 1, 2).Resize(c - 3, 9).Value = .Range("B4:J" & c).Value
   
10.             For i = r + 1 To r + c - 3
    
11.                 Cells(i, 1) = .[B1] & "-" & .Cells(i - r + 3, 1)
    
12.             Next i
    
13.         End With
    
14.     Else
    
15.         Exit Sub
    
16.     End If
    
17. Next
    
18. 
    
19. End Sub

复制代码

这个只汇总“汇总”表前面的表

蓝桥玄霜

把第6句If Sht.Name <> "汇总" Then  改为：（别的工作表的名字为"不要汇总" 的话）
If Sht.Name <> "汇总" and Sht.Name<>"不要汇总" Then

wanggfcn

mzbao 发表于 2012-8-22 10:16
这个只汇总“汇总”表前面的表

老师！您好！谢谢您的回复！比较完美，但是如果我在所有“汇总”前面的工作表都增加几列，请问代码怎样改？谢谢！

wanggfcn

suwenkai 发表于 2012-8-22 09:43
参考一下。

老师！您好！谢谢您！但是“汇总”工作表以后的也汇总进去了，我想不要汇总进去。谢谢！有办法吗？另外如果前面的几个工作表都增加几列，请问怎样修改代码？谢谢！

莫悠悠

多表汇总，好东东

suwenkai

修改了代码，可以自动增加列了。参考一下。

mzbao

wanggfcn 发表于 2012-8-22 11:14
老师！您好！谢谢您的回复！比较完美，但是如果我在所有“汇总”前面的工作表都增加几列，请问代码怎样改 ...

在代码里改变这句就可以了
   Cells(r + 1, 2).Resize(c - 3, 9).Value = .Range("B4:J" & c).Value
等号前为汇总表，将Resize(c - 3, 9)的数字9为从B列到最后一列的列数，现在你的为9列，你需要增加几列，就将9改成 9+增加列数，比如增加2列，则将9改成11
等号后为被汇总的表，Range("B4:J" & c)，将括号中的J改变为增加后的最后一列，比如增加2列，则将J改成L

KCFONG

wanggfcn 发表于 2012-8-22 11:27
老师！您好！谢谢您！但是“汇总”工作表以后的也汇总进去了，我想不要汇总进去。谢谢！有办法吗？另外如 ...

另外如果前面的几个工作表都增加几列
把新的档案上传

wanggfcn

mzbao 发表于 2012-8-22 12:04
在代码里改变这句就可以了
   Cells(r + 1, 2).Resize(c - 3, 9).Value = .Range("B4:J" & c).Value
等 ...

谢谢老师！太棒了！EXCEL之家乃藏龙卧虎之地！

minren118

mzbao 发表于 2012-8-22 10:12
这么多人帮忙做了，我是最慢的一个了。不过还是传上来，和其他人的基本一样，只是在序号里改变为产品名-序号 ...

对比几家的结果，你的处理速度是最快的，看来用字典真的很快，有些不太明白的地方。UBound(arr, 2)这个代表什么意思？