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

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

   效果：

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

（2）在空白簿里面右鍵單擊sheet1, 再彈出菜單中點擊查看代碼 ，調(diào)出vb編輯框

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

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

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

視情況而定，這個提示跟你要合并的內(nèi)容有關

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------

-----------------------------------------------批量修改sheet名-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------

二 ：批量修改sheet名

（1）在合并后的工作簿的所有sheet前建一個空白sheet 并命名為目錄，命名隨意但是要和代碼里的保持一致

（2）右鍵單擊目錄，點擊  “查看代碼”  調(diào)出 vb編輯器把下面代碼復制進去  ，點擊運行按鈕 ，然后把vb編輯器最小化，你會看到生成的所有sheet的名字 

（注：代碼中的“目錄”，是第一個sheet的名子）

Public Sub 獲取各工作表的名稱()
    For i = 1 To Worksheets.Count
        Sheets('目錄').Cells(i, 1).Value = Worksheets(i).Name
    Next
End Sub

（3）A 列是獲得的所有sheet名字，然后再在 B 列新增上要修改的名字，要一一對應，

(4)再打開剛縮小化的vb編輯器，把下面代碼復制進去執(zhí)行；

（5）上面執(zhí)行完后，到這一步就算可以了

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------

-----------------------------------------------批量刪除指定sheet--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------

三 ：批量刪除指定sheet

如上可以先獲取所有sheet 的名字， 然后把下面代碼粘到模糊vb編輯器里面執(zhí)行，

Sub 為什么用for循環(huán)無法刪除()
    Set d = CreateObject('scripting.dictionary')
    For i = 1 To Sheets.Count
        If Sheets(i).Name Like '崗位清單*' Then
            d(Sheets(i).Name) = ''
        End If
    Next
    For Each K In d.keys
    Sheets(K).Delete
    Next
End Sub

（1）代碼中修改要刪除的sheet名，可以模糊匹配

（2）點擊 <綠色小三角> 按鈕執(zhí)行  會有個彈出框，再點 “運行”  (注：先點綠色小三角運行)

（3）然后就開始開始批量刪除了