[已解决]请教一下大家多个工作表内容汇总，分表数据更新 总表同步更新！

xc087

1如图所示

最佳答案

月排行榜 / 总排行榜

zjdh

2013-7-27 09:01

实验.rar (10.57 KB, 下载次数: 166)

2013-7-27 09:01 上传

点击文件名下载附件

跳转到最佳答案楼层

xc087

数据表

xc087

大家帮忙研究下，自己先顶起来

xzsychenwei

用个笨办法

爱疯

1. Sub test()
   
2.     Dim n, A, B(1 To 10 ^ 4, 1 To 5), i, j, s, shName
   
3. 
   
4.     For n = 1 To Sheets.Count - 1
   
5.         A = Sheets(n).Range("A1").CurrentRegion
   
6.         shName = Sheets(n).Name
   
7.         For i = 2 To UBound(A)
   
8.             s = s + 1
   
9.             For j = 1 To UBound(A, 2)
   
10.                 B(s, j) = A(i, j)
    
11.             Next j
    
12.             B(s, UBound(B, 2)) = shName
    
13.         Next i
    
14.     Next
    
15. 
    
16.     With Sheets(n)
    
17.         .Range("a2:e65536").ClearContents
    
18.         .Range("a2").Resize(s, 5) = B
    
19.     End With
    
20. End Sub

复制代码

实验2.rar (10.8 KB, 下载次数: 33)

2013-7-27 08:25 上传

点击文件名下载附件

建议以现在结构统计。
原总表删了，现在汇总在sheet1。

zjdh

实验.rar (10.57 KB, 下载次数: 166)

2013-7-27 09:01 上传

点击文件名下载附件

zjdh

1. Sub 刷新()
   
2.     With Sheets("总表")
   
3.         .Range("B3:J10").ClearContents
   
4.         ARR = .Range("A3:J10")
   
5.         For Each Sh In Sheets
   
6.             If Sh.Name <> "总表" Then
   
7.                 BRR = Sh.UsedRange
   
8.                 Set C = .Range("A1:J1").Find(Sh.Name)
   
9.                 CL = C.Column
   
10.                 For I = 1 To UBound(ARR)
    
11.                     For J = 2 To UBound(BRR)
    
12.                         If ARR(I, 1) = BRR(J, 1) Then
    
13.                             For K = 0 To 2
    
14.                                 ARR(I, CL + K) = BRR(J, K + 2)
    
15.                             Next
    
16.                         End If
    
17.                     Next
    
18.                 Next
    
19.             End If
    
20.         Next
    
21.     .Range("A3").Resize(UBound(ARR), UBound(ARR, 2)) = ARR
    
22.     End With
    
23. End Sub

复制代码

xc087

zjdh 发表于 2013-7-27 09:01

非常感谢，现在还有点问题，1，当任意一个分表（零件表）增加新的发动机编号和零件信息时（新编号在任意分表都未出现过），总表没有增加相应的发动机编号，及相关零件信息
现在这个表的做法 可以教我吗，还有很多零件 估计有46个，发动机编号在今后会统计到上万个。

xc087

爱疯 发表于 2013-7-27 08:27
建议以现在结构统计。
原总表删了，现在汇总在sheet1。

您好，我想达到的目的是 在总表检索一个  发动机编号就可以  很清楚的知道 所使用的零部件及相关信息，以便售后检修

xc087

zjdh 发表于 2013-7-27 09:27

老师，怎么使 总表的发动机编号列  随 零件表发动机更新而更新呢？可以介绍相关资料学习吗？