求助，汇总多表到一表

菊子红了

菜鸟求助各位大神：
需要把多表的文件名汇总到A列，A1单元格内容汇总到B列，B2往后的内容汇总到C列往后排。
工作表名称不同，数值个数不同，希望汇总后数值保持数值样式。

请大神指教！

小凡、、、

fso循环文件

quqiyuan

参与一下，你的第一个工作表隐藏的，所以提取第二个工作表的值，仅供参考。。。

ykcbf1100

汇总，参与一下。

ykcbf1100

参与一下。。。

1. Sub ykcbf()              '//2024.8.9
   
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.                 brr(m, 1) = fn
    
13.                 Set wb = Workbooks.Open(f, 0)
    
14.                 For Each sht In wb.Sheets
    
15.                     If InStr(UCase(sht.Name), "WX") Then
    
16.                         With sht
    
17.                             arr = .UsedRange
    
18.                             wb.Close False
    
19.                         End With
    
20.                     End If
    
21.                 Next
    
22.                 For j = 1 To UBound(arr, 2)
    
23.                     brr(m, j + 1) = arr(2, j)
    
24.                 Next
    
25.             End If
    
26.         End If
    
27.     Next f
    
28.     With sh
    
29.         .[a3:az1000] = ""
    
30.         .[a3].Resize(m, 100) = brr
    
31.     End With
    
32.     Application.ScreenUpdating = True
    
33.     MsgBox "OK！"
    
34. End Sub
    

复制代码

菊子红了

quqiyuan 发表于 2024-8-8 21:25
参与一下，你的第一个工作表隐藏的，所以提取第二个工作表的值，仅供参考。。。

谢谢！原表也是别人发给我的，我都没发现有隐藏的，一直奇怪，我用自己的方法汇总出来的值不对，又找不到原因。感谢提示！