求助汇总数据到总表

hl19881005

各位大神，求助VBA的汇总数据到总表的问题：
需求：
1、把除了总材料表的其他所有的表都汇总到总材料表中，只汇总一级标题往后的，总表最好可以加一个序号。
2、排列序号：给前面加一个序号
3、最好代码具有通用性，可以自己根据需求修改列数

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.17
   
2.     Set sh = ThisWorkbook.Sheets("总材料表")
   
3.     ReDim brr(1 To 10000, 1 To 7)
   
4.     For Each sht In Sheets
   
5.         If sht.Name <> sh.Name Then
   
6.             With sht
   
7.                 r = .Cells(Rows.Count, 2).End(3).Row
   
8.                 arr = .[a1].Resize(r, 7)
   
9.             End With
   
10.             For i = 2 To UBound(arr)
    
11.                 If arr(i, 2) <> Empty Then
    
12.                     m = m + 1
    
13.                     brr(m, 1) = m
    
14.                     For j = 2 To UBound(arr, 2)
    
15.                         brr(m, j) = arr(i, j)
    
16.                     Next
    
17.                 End If
    
18.             Next
    
19.         End If
    
20.     Next
    
21.     With sh
    
22.         .UsedRange.Offset(1).Clear
    
23.         With .[a2].Resize(m, 7)
    
24.             .Value = brr
    
25.             .Borders.LineStyle = 1
    
26.             .HorizontalAlignment = xlCenter
    
27.             .VerticalAlignment = xlCenter
    
28.         End With
    
29.     End With
    
30.     MsgBox "OK！"
    
31. End Sub
    

复制代码

hl19881005

ykcbf1100 发表于 2024-5-17 09:50
附件供参考。。。

谢谢大神指点

松永

参与一下，试试行否

松永

参与一下，看能用否

tanglf188

参与一下

sunya_0529

WPS里的JSA练习一下，要汇总的几张表列数保持一致就好，会自动识别——

tanglf188

代码部分也可以简写为：

1. Sub test()
   
2.     For Each sh In Worksheets '遍历工作表
   
3.         If sh.Name <> "总材料表" Then
   
4.             arr = LoadData(ThisWorkbook.FullName, sh.Name & "$", "'=ROW()-1',一级标题,二级标题,名称,单位,除税市场价,备注", "")
   
5.             With Sheets("总材料表")
   
6.                 last = .Cells(Rows.Count, "B").End(xlUp).Row
   
7.                 .Cells(last + 1, 1).Resize(UBound(arr), UBound(arr, 2)) = arr
   
8.             End With
   
9.         End If
   
10.     Next
    
11. End Sub
    

复制代码