如何快速把多個excel表合併成一個excel表
- 2021-08-16
所需工具材料:EXCEL
方法如下:
1、首先需要把多個excel表都放在同一個資料夾裡面,並在這個資料夾裡面新建一個excel。
2、用microsoft excel開啟新建的excel表,並右鍵單擊sheet1,找到“檢視程式碼”,單擊進去。
3、然後把下面這些宏計算的程式碼複製進去,然後找到工具欄上面的“執行”下的“執行子過程/使用者窗體”,程式碼如下:
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
4、執行之後,等待10秒針左右,等執行完畢,就是合併完成之後,會有提示,點確定就可以了。
可以利用vba快速合併多個excel工作表成為一個。
軟體版本:office2007
舉例說明如下:
1。有多個工作表有如下相同格式的資料,合併到總表中:
2。alt+f11,輸入如下程式碼:
3。f5執行程式碼,表格資料就合併到總表中了:
使用excel必備工具箱,簡單方便,要不然你需要自己VBA
或者用小蚊子老師的常用工具:
1、下載後解壓,開啟後啟用宏
2、然後在卡法工具下面找到VB編輯器,點進去,執行模組一,你就會在載入項選項卡找到合併功能按鈕,就可以用了
可以使用VBA程式碼,也可以用SQL語句連線,或者Microsoft query 都可以。 最快的是vba。
上一篇:什麼是牆薇科植物?