|
工作中 經常需將幾個Excel文件中的工作表 合并到一個Excel文件中 效果如下 ▼ ●●● 小竅門：將屏幕橫放可放大圖片！ 新建合并工作簿的宏命令 ▎1 “宏”在哪里？ ■ 單擊工具欄上的“開發(fā)工具”標簽 ■ 點擊“宏” 如下圖所示。 ●●● ▎2 給“宏”起名字 表格中出現“宏”對話框 ■ “宏名”下方輸入框內輸入宏名字:hebing ■ 點擊“創(chuàng)建” 如下圖所示。 ●●● ▎3 在VBA編輯窗口編輯代碼 Excel將調出VBA窗口 ■ 在編輯窗口可以看到如下代碼 Sub hebing() End Sub 這段代碼是系統(tǒng)根據宏名“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月營銷快報工作簿已經合并至一張工作簿中，如下圖所示。
●●● ▎8 使用“合并”按鈕繼續(xù)合并其他工作簿 ■ 點擊“合并”按鈕，如下圖所示。 ●●● Excel彈出“hebing”對話框 ■ 選定3月營銷快報 ■ 點擊“打開”，如下圖所示。
●●● 3月營銷快報工作簿已經添加合并至工作簿中，如下圖所示，工作簿中包含1月、2月、3月營銷快報。
●●● ▎9 獲取文件 需要“一鍵合并工作簿”Excel文件的朋友，可以： ■ 給我留言，并留下您的電子郵箱地址。 ■ 或者在公眾號主頁面發(fā)送“下載”，獲取下載鏈接及密碼！ 溫馨提示：運行“宏”時，應開啟“宏”。 更多文章
PS：您也可以留言給我，我會及時給您答復！ |
|
|
