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

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工作簿文件所在路径 查看 如下图所示 原先工作簿中的工作表已经成为单独的工作簿了！不信 可以对照查看图中的修改日期