工作中

經(jīng)常需將幾個Excel文件中的工作表

合并到一個Excel文件中

效果如下

▼

●●● 

小竅門：將屏幕橫放可放大圖片,！

新建合并工作簿的宏命令

▎1   “宏”在哪里,？

    ■   單擊工具欄上的“開發(fā)工具”標簽

    ■   點擊“宏”

如下圖所示,。

 ●●● 

▎2   給“宏”起名字

表格中出現(xiàn)“宏”對話框

    ■   “宏名”下方輸入框內(nèi)輸入宏名字:hebing

    ■   點擊“創(chuàng)建”

如下圖所示。

 ●●● 

▎3   在VBA編輯窗口編輯代碼

Excel將調(diào)出VBA窗口

    ■   在編輯窗口可以看到如下代碼

Sub hebing()

End Sub

這段代碼是系統(tǒng)根據(jù)宏名“hebing”自動生成,。

如下圖所示,。

 ●●● 

    ■   在編輯窗口輸入如下代碼

Sub hebing()

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:='Microsoft Excel(*.xls;*.xlsx),*.xls;*.xlsx', MultiSelect:=True, Title:='hebing')

X = 1

While X <= UBound(FileOpen)

Workbooks.Open Filename:=FileOpen(X)

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

X = X 1

Wend

ExitHandler: Application.ScreenUpdating = True

Exit Sub

ErrHadler: MsgBoxErr.Description

End Sub

如下圖所示。

●●● 

VBA代碼編輯完成后關閉VBA窗口,，至此合并工作簿的宏創(chuàng)建完畢,。

▎4   查看剛剛創(chuàng)建的宏“hebing”

    ■   單擊工具欄上的“開發(fā)工具”標簽

    ■   點擊“宏”,可以從“宏”對話框中看到“hebing”宏

如下圖所示。

●●●  

為新建的“hebing”宏指定一個按鈕

▎5   如何新建按鈕

    ■   單擊工具欄上的“開發(fā)工具”標簽

    ■   點擊“插入”

    ■   從下拉菜單中選擇“按鈕（窗體控件）”,。如下圖所示,。

●●● 

    ■   在工作表中點擊需創(chuàng)建按鈕的位置，按住鼠標并拖動鼠標改變按鈕大小

    ■   松開鼠標時,，會彈出“指定宏”對話框

    ■   選擇剛剛新建的“hebing”宏,，點擊“確定”

如下圖所示,。

 ●●● 

    ■   “按鈕1”就是新建的“hebing”宏指定的按鈕，如下圖所示,。

●●● 

▎6   修改按鈕的名字

    ■   在按鈕上單擊鼠標右鍵

    ■   從彈出的菜單中選擇“編輯文字”,，如下圖所示。

 ●●● 

    ■   將按鈕名字“按鈕1”改為“合并”,如下圖所示,。

●●● 

測試“合并”按鈕

▎7   使用“合并”按鈕合并工作簿

    ■   點擊“合并”按鈕,，如下圖所示。

●●● 

Excel彈出“hebing”對話框

    ■   選定1月和2月營銷快報

    ■   點擊“打開”,，如下圖所示,。

 ●●● 

1月、2月營銷快報工作簿已經(jīng)合并至一張工作簿中,，如下圖所示,。

 ●●● 

▎8   使用“合并”按鈕繼續(xù)合并其他工作簿

    ■   點擊“合并”按鈕，如下圖所示,。

●●● 

Excel彈出“hebing”對話框

    ■   選定3月營銷快報

    ■   點擊“打開”,，如下圖所示。

●●●  

3月營銷快報工作簿已經(jīng)添加合并至工作簿中,，如下圖所示,，工作簿中包含1月、2月,、3月營銷快報,。

 ●●● 

▎9   獲取文件

    需要“一鍵合并工作簿”Excel文件的朋友，可以：

    ■   給我留言,，并留下您的電子郵箱地址,。

    ■   或者在公眾號主頁面發(fā)送“下載”，獲取下載鏈接及密碼,！

溫馨提示：運行“宏”時,，應開啟“宏”。

PS：您也可以留言給我,，我會及時給您答復,！