如何在工作簿快速新建多個工作表

Q1：一個Excel工作簿里如何新建多個工作表？

右單擊SHEET1，SHEET2，或者SHEET3
選擇插入——工作表
就可以了
只是SHEET後面的1 2 3 4需要你自己調整 如圖

Q2：excel工作簿中新建多個工作表，想要快速的重命名多個工作表，一個個命名太麻煩了，高手幫解決下吧！！

按ALT＋F11打開VBA編輯器，插入一個模塊，插入如下代碼，把光標停在代碼中間，按F5執行。
Public Sub lwy()
For i = 1 To Sheets.Count
Sheets(i).Name = "表" & i 這個根據你的命名方法自己改一下。
Next
End Sub

想想，每到月底，各種各樣的報表合並、統計、分析，各種加班加點。。。

這里我就分享下幾種合並多個工作表的方法，希望能幫到大家！

都知道，透視表統計分析資料，那是Excel一絕。只是碰到多表合並，很多表親都直接蒙圈！

好吧，這里有個小技巧，很多人不知道，那就是多重透視表，用起來和透視表一樣，簡單！

按下+D，松開再按P，看看，透視表向導就出來了，這個默認菜單上找不到哦！

然後，跟著向導，一步一步往下走就OK啦，如下動畫演示：

是不是很簡單啊！

好吧，這里需要一點點的SQL只是，當然，簡單的匯總，SQL也很簡單，無非就是select語句。

如下方式，建立工作表連接

資料-現有鏈接-

在連接屬性中，輸入SQL語句，即可輕松合並多張工作表。

對於格式相同的多張工作表，也還可以使用SUM匯總求和。

Www.BA%zhiSHi.cOm

Q4：Excel工作簿中多個工作表如何快速將每一個工作表變成獨立工作簿？

一個excel中多個sheet拆分成多個excel是可以實作的。例如下面的這個excel：

1、打開需要拆分的excel，按住【Alt】+【F11】，依次點擊【插入】、【模塊】。

2、輸入下面代碼，點擊【執行】、【執行子過程/用戶窗體】或者按【F5】

Private Sub 分拆工作表()

Dim sht As Worksheet

Dim MyBook As Workbook

Set MyBook = ActiveWorkbook

For Each sht In MyBook.Sheets

sht.Copy

ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal將工作簿另存為EXCEL默認格式

ActiveWorkbook.Close

Next

MsgBox "文件已經被分拆完畢!"

End Sub

3、excel表格就拆分完了。

喜歡的朋友請轉發，讓更多的朋友共同學習~

Q5：怎樣把工作簿快速拆分為多個工作表？

打開需要編輯的Excel文檔。如圖所示，工作簿下方有很多工作表。現在需要將這些工作表單獨拆分開成一個個工作簿。

右鍵任意一個工作表標簽，在彈出的下拉列表中選擇查看代碼。即彈出代碼窗口。如下圖所示。

點擊菜單插入-模塊 在彈出的模塊對話框中 輸入以下代碼：

Private Sub 分拆工作表()Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.Sheetssht.CopyActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal將工作簿另存為EXCEL默認格式ActiveWorkbook.CloseNextMsgBox "文件已經被分拆完畢!"End Sub

單擊執行-執行子過程|窗體 幾秒過後 彈出提示窗口“文件已被拆分完畢” 如下圖所示

返回Excel工作簿文件所在路徑 查看 如下圖所示 原先工作簿中的工作表已經成為單獨的工作簿了！不信 可以對照查看圖中的修改日期