工作中
經(jīng)常需將幾個Excel文件中的工作表
合并到一個Excel文件中
效果如下
▼
●●●
小竅門：將屏幕橫放可放大圖片！
新建合并工作簿的宏命令
▎1 “宏”在哪里？
■ 單擊工具欄上的“開發(fā)工具”標(biāo)簽
■ 點擊“宏”
如下圖所示。
●●●
▎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代碼編輯完成后關(guān)閉VBA窗口，至此合并工作簿的宏創(chuàng)建完畢。
▎4 查看剛剛創(chuàng)建的宏“hebing”
■ 單擊工具欄上的“開發(fā)工具”標(biāo)簽
■ 點擊“宏”,可以從“宏”對話框中看到“hebing”宏
如下圖所示。
●●●
為新建的“hebing”宏指定一個按鈕
▎5 如何新建按鈕
■ 單擊工具欄上的“開發(fā)工具”標(biāo)簽
■ 點擊“插入”
■ 從下拉菜單中選擇“按鈕（窗體控件）”。如下圖所示。
●●●
■ 在工作表中點擊需創(chuàng)建按鈕的位置，按住鼠標(biāo)并拖動鼠標(biāo)改變按鈕大小
■ 松開鼠標(biāo)時，會彈出“指定宏”對話框
■ 選擇剛剛新建的“hebing”宏，點擊“確定”
如下圖所示。
●●●
■ “按鈕1”就是新建的“hebing”宏指定的按鈕，如下圖所示。
●●●
▎6 修改按鈕的名字
■ 在按鈕上單擊鼠標(biāo)右鍵
■ 從彈出的菜單中選擇“編輯文字”，如下圖所示。
●●●
■ 將按鈕名字“按鈕1”改為“合并”,如下圖所示。
●●●
測試“合并”按鈕
▎7 使用“合并”按鈕合并工作簿
■ 點擊“合并”按鈕，如下圖所示。
●●●
Excel彈出“hebing”對話框
■ 選定1月和2月營銷快報
■ 點擊“打開”，如下圖所示。
●●●
1月、2月營銷快報工作簿已經(jīng)合并至一張工作簿中，如下圖所示。
●●●
▎8 使用“合并”按鈕繼續(xù)合并其他工作簿
■ 點擊“合并”按鈕，如下圖所示。
●●●
Excel彈出“hebing”對話框
■ 選定3月營銷快報
■ 點擊“打開”，如下圖所示。
●●●
3月營銷快報工作簿已經(jīng)添加合并至工作簿中，如下圖所示，工作簿中包含1月、2月、3月營銷快報。
●●●
▎9 獲取文件
需要“一鍵合并工作簿”Excel文件的朋友，可以：
■ 給我留言，并留下您的電子郵箱地址。
■ 或者在公眾號主頁面發(fā)送“下載”，獲取下載鏈接及密碼！
溫馨提示：運(yùn)行“宏”時，應(yīng)開啟“宏”。
更多文章
PS：您也可以留言給我，我會及時給您答復(fù)！
