把不同名工作表同一行复制到总表中

tiger0816

我有一个工作簿，有很多不同名的工作表 。我要把总表以后工作表的C47:I47 复制到总表中 ，请老师们帮个忙，谢谢。（C47:I47单元格是公式，复制到总表中时要是值。总表位于工作表的第7个）

TomingTang

工作表名貌似没有规律，可以用vba，请上传附件。

tiger0816

附件上传了，谢谢

TomingTang

tiger0816 发表于 2014-7-22 16:24
附件上传了，谢谢

1. Sub 汇总()
   
2.     Dim i%, j%, arr(1 To 100, 1 To 7), drow%
   
3.     Dim sht As Worksheet
   
4.     j = 1
   
5.     For Each sht In Worksheets
   
6.         If Not (InStr(sht.Name, "表") > 0 And InStr(sht.Name, "类") > 0) Then
   
7.             With sht
   
8.                 drow = .[c65536].End(3).Row
   
9.                 If drow > 1 Then
   
10.                 For i = 1 To 7
    
11.                     arr(j, i) = .Cells(drow, 2 + i).Value
    
12.                 Next
    
13.                 j = j + 1
    
14.                 End If
    
15.             End With
    
16.         End If
    
17.     Next
    
18.     Worksheets("总表").[b2].Resize(UBound(arr), 7) = arr
    
19. End Sub
    

复制代码

现在汇总的条件是 把 工作表名中有 “表” 和“类”字的都不进行汇总。请查看。

TomingTang

附件，请查看。

tiger0816

万分感谢，帮了大忙了。但是好像要把基础表的某一项也统计进出了

tiger0816

还有一个问题，汇总表现在要从B5开始添该如何改，谢谢 通用零件AUTO.rar (63.28 KB, 下载次数: 0)

2014-7-23 09:49 上传

点击文件名下载附件

tiger0816

我重新上传附件，请教师帮我看一下如何改，谢谢 通用零件AUTO.rar (184.1 KB, 下载次数: 4)

2014-7-23 10:11 上传

点击文件名下载附件

TomingTang

貌似已经改好咯，你的附件。

tiger0816

十分感谢，十分感谢