合併多個Excel ，批量修改sheet名，批量刪除指定sheet

合併多個Excel 到同一個工作簿中，批量修改sheet名，批量刪除指定sheet

一  ：合併多個excel到同一個excel表中，分成多個sheet展示。

   效果：

（1）首先，可以把要合併的工作簿excel放到一個工作夾中，新建一個空白excel工作簿

（2）再空白簿裏面右鍵單擊sheet1, 再彈出菜單中點擊查看代碼 ，調出vb編輯框

（3）把下面代碼複製到vb編輯器中   （注：代碼中的 *.xlsx 是要合併文件的文件類型，可以修改自己的文件類型如：*.xls）

Sub 工作薄間工作表合併()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="合併工作薄")
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:
MsgBox Err.Description
End Sub

（4）點擊 綠三角 按鈕執行程序 ，會彈出一個宏定義框，然後點擊運行。

（5）然後會彈出一個選擇文件夾的框，你可以選擇要合併的工作簿了，然後點擊打開，就開始合併了，如果出現一些提示，可以視情況而定選是或否。

 

視情況而定，這個提示跟你要合併的內容有關