同一文件夹里的多个EXCEL表格合并到一个EXCEL表格里面

ykcbf1100

工作表原格式合并。

纯练手。。。

ykcbf1100

练手。。。。。

1. Sub ykcbf()  '//2024.5.2
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Dim tm: tm = Timer
   
5.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
6.     sh.UsedRange.Clear
   
7.     sh.DrawingObjects.Delete
   
8.     Set fso = CreateObject("scripting.filesystemobject")
   
9.     p = ThisWorkbook.Path & ""
   
10.     For Each f In fso.GetFolder(p).Files
    
11.         If InStr(f.Name, ThisWorkbook.Name) = 0 Then
    
12.             m = m + 1
    
13.             fn = fso.GetBaseName(f)
    
14.             r = IIf(m = 1, 1, sh.Cells(Rows.Count, 2).End(3).Row + 1)
    
15.             Set wb = Workbooks.Open(f, 0)
    
16.             With wb.Sheets("Sheet1")
    
17.                 r1 = .Cells(Rows.Count, "i").End(3).Row
    
18.                 .Rows(1 & ":" & r1).Copy sh.Cells(r, 1)
    
19.             End With
    
20.             wb.Close False
    
21.         End If
    
22.     Next f
    
23.     Application.ScreenUpdating = True
    
24.     MsgBox "共用时：" & Format(Timer - tm) & "秒！"
    
25. End Sub
    

复制代码

cnmlgb9998

ykcbf1100 发表于 2024-5-2 20:41
工作表原格式合并。

纯练手。。。

十年前的尸体，也让你翻出来了。。。。还热的不？

ykcbf1100

cnmlgb9998 发表于 2024-5-2 20:45
十年前的尸体，也让你翻出来了。。。。还热的不？

我只是练手，无所谓多久。

小个性℡

有没有具体的操作步骤呀     下载的数据是做好的 也看不到过程   无法学习