多工作表合并（含表名）

亚洲之鹰2009

把几张相同格式的表合并到一张名为“总表”当中，已经有代码，缺少将表名也合并进去的代码，请高手帮忙修改下代码！谢谢！ help.rar (14.27 KB, 下载次数: 76)

2018-4-27 13:05 上传

点击文件名下载附件

另：我想在   ’总表‘    这张表放在所有表的最前面，代码如何修改！

lenghonghai601

1. Sub 多工作表合并()
   
2. Dim sht As Worksheet
   
3. myr = 2: Cells.Clear
   
4. Range("b1").Resize(1, 4) = Array("料品名称", "单位", "销货量", "销货额")
   
5. For Each sht In Worksheets
   
6.     If sht.Name <> "总表" Then
   
7.         x = sht.Range("a65536").End(xlUp).Row
   
8.         sht.Range("a2").Resize(x - 1, 4).Copy Range("b" & myr)
   
9.         myr = Range("b65536").End(xlUp).Row + 1
   
10.     End If
    
11. Next sht
    
12. Worksheets("总表").Move before:=Sheet2
    
13. End Sub
    

复制代码

netpoplar

1、表名要合并到哪里？
2、thisworkbook.worksheets("总表").Move before:=Sheets(I)

abc123281

1. Sub 多工作表合并()
   
2.     Dim arr, brr(1 To 10000, 1 To 5)
   
3.     Sheets("总表").Cells.Clear
   
4.     For Each ws In Worksheets
   
5.       If ws.Name <> "总表" Then
   
6.         With ws
   
7.           rw = .[a65536].End(xlUp).Row
   
8.           arr = .Range("a2:d" & rw)
   
9.            For i = 1 To UBound(arr)
   
10.               n = n + 1
    
11.               brr(n, 1) = ws.Name
    
12.               For j = 1 To 4
    
13.                 brr(n, j + 1) = arr(i, j)
    
14.               Next
    
15.            Next
    
16.         End With
    
17.       End If
    
18.     Next
    
19.     With Worksheets("总表")
    
20.       .[a1].Resize(1, 5) = [{"工作表名","料品名称","单位","销货量","销货额"}]
    
21.       .[a2].Resize(n, 5) = brr
    
22.       .Cells.EntireColumn.AutoFit
    
23.       .UsedRange.Borders.LineStyle = 1
    
24.     End With
    
25. End Sub

复制代码

abc123281

helpabc123.rar (22.69 KB, 下载次数: 113)

2018-4-27 13:51 上传

点击文件名下载附件

lsc900707

用数组写了一个，附件供参考：

亚洲之鹰2009

lsc900707 发表于 2018-4-27 14:00
用数组写了一个，附件供参考：

非常感谢！不过执行程序后表头没过来，哪句代码要修改？

亚洲之鹰2009

abc123281 发表于 2018-4-27 13:51

非常感谢！高手如云哪！

lsc900707

亚洲之鹰2009 发表于 2018-4-27 14:15
非常感谢！不过执行程序后表头没过来，哪句代码要修改？

有很多方法的，自己想想办法呀，毕竟你也是eh中级了。

ruhong18

lsc900707 发表于 2018-4-27 14:00
用数组写了一个，附件供参考：

你好，我想增加列数，怎么修改呢？要增加到P列，帮忙改下代码，感谢~