[已解决]VBA 汇总表格数据

xhuang

HI，各位

      大家好，求VBA 汇总表格数据，数据如附件。

book1.zip (59.05 KB, 下载次数: 12)

2014-11-19 09:38 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qh8600

2014-11-19 09:55

book1.rar (57.03 KB, 下载次数: 32)

2014-11-19 09:55 上传

点击文件名下载附件
楼主试试

跳转到最佳答案楼层

qh8600

book1.rar (57.03 KB, 下载次数: 32)

2014-11-19 09:55 上传

点击文件名下载附件
楼主试试

X2030

1. Sub test()
   
2.     Dim sh As Worksheet, arr, i%, j%
   
3.     i = 6
   
4.     Range("d6:y" & Rows.Count) = ""
   
5.     For Each sh In Sheets
   
6.         If sh.Name <> ActiveSheet.Name Then
   
7.             arr = sh.Range("a3").CurrentRegion.Offset(1)
   
8.             If UBound(arr) Then
   
9.                 Cells(i, 4).Resize(UBound(arr), 22) = arr
   
10.             End If
    
11.             i = i + UBound(arr) - 1
    
12.         End If
    
13.     Next
    
14. End Sub

复制代码

xhuang

qh8600 发表于 2014-11-19 09:55
楼主试试

非常感谢，结果可以出来，

但有一点小问题，还需再帮忙一下，如下

帮忙消除，有：E的生产型号，显示，如：041018E1  出来显示：4.18E+08

生产型号	下单工厂型号
4.10E+05	4.10E+05
041045A2	041045A2
041083F1	041083F1
041652A4	041652A4
4.18E+08	4.18E+08

qh8600

xhuang 发表于 2014-11-19 11:14
非常感谢，结果可以出来，

但有一点小问题，还需再帮忙一下，如下

1. Sub demo()
   
2.     Dim ar, br(1 To 60000, 1 To 22)
   
3.     For x = 2 To Sheets.Count
   
4.         If Sheets(x).Name <> "Summary" Then
   
5.             m = Sheets(x).Cells(Rows.Count, 1).End(3).Row
   
6.             If m > 4 Then
   
7.                 ar = Sheets(x).Range("A4:V" & m)
   
8.                 For i = 1 To UBound(ar)
   
9.                     n = n + 1
   
10.                     For j = 1 To UBound(ar, 2)
    
11.                         br(n, j) = ar(i, j)
    
12.                     Next
    
13.                 Next
    
14.             End If
    
15.         End If
    
16.     Next
    
17.     Sheet1.Columns("d:e").NumberFormatLocal = "@"
    
18.     Sheet1.Range("d6").Resize(n, 22) = br
    
19. End Sub
    

复制代码