汇总多表数据

菊子红了

求助，各位大神，
我想把表1的A1单元格内容复制造到汇总表A1单元格里，表1的B2:AG2内容到汇总表B1:AG1,
表2同样操作，接在表1数据下方。
请问怎么完成呢？请指教！

mmwwdd

这种例子多如牛毛，搜一下

ykcbf1100

文件合并。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()    '//2024.7.29
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Application.ScreenUpdating = False
   
4.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
5.     p = ThisWorkbook.Path & ""
   
6.     ReDim brr(1 To 10000, 1 To 100)
   
7.     For Each f In fso.GetFolder(p).Files
   
8.         If LCase$(f.Name) Like "*.xls*" Then
   
9.             If InStr(f.Name, ThisWorkbook.Name) = 0 Then
   
10.                 fn = fso.GetBaseName(f)
    
11.                 m = m + 1
    
12.                 Set wb = Workbooks.Open(f, 0)
    
13.                 With wb.Sheets("WX-5355-A1")
    
14.                     arr = .UsedRange
    
15.                     brr(m, 1) = arr(1, 1)
    
16.                     For j = 2 To UBound(arr, 2)
    
17.                         brr(m, j) = arr(2, j)
    
18.                     Next
    
19.                 End With
    
20.                 wb.Close False
    
21.             End If
    
22.         End If
    
23.     Next f
    
24.     With sh
    
25.         .UsedRange.ClearContents
    
26.         .[a1].Resize(m, UBound(arr, 2)) = brr
    
27.     End With
    
28.     Application.ScreenUpdating = True
    
29.     MsgBox "OK！"
    
30. End Sub
    

复制代码

菊子红了

ykcbf1100 发表于 2024-7-29 15:37
参与一下。。。

三个表合并是成功的，表格多了就不行，不知道是为什么？

菊子红了

ykcbf1100 发表于 2024-7-29 15:36
文件合并。。。

可以合并，是我弄错了，感谢！