如何將多個excel文件合并為一個excel
excel文件歸并的方式
-
01
起首需要把所有需要歸并的excel文件放到一個文件夾中，而且新建一個空白的excel文件。
-
02
然后打開這個新建的excel文件，右鍵點擊sheet1選擇查看代碼。
-
03
然后會呈現如下的界面。
-
04
然后把如下代碼復制粘貼到代碼欄。
Sub 歸并當前目次下所有工作簿的全數工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共歸并了" & Num & "個工作薄下的全數工作表。如下：" & Chr(13) & WbN, vbInformation, "提醒"
End Sub -
05
接下來就是運行代碼，點擊運行→運行子過程/用戶窗體。
-
06
歸并當作功后點擊確定即可。
- End
- 發表于 2019-04-06 16:00
- 閱讀 ( 849 )
- 分類：電腦網絡
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章