Excel的分身术：在多个窗口中查看同一个工作表

大家好，我是@爱玩电脑。今天给大家讲讲如何将办公软件Excel的同一个工作表内容在两个及以上的窗口中显示，方便我们查看工作表的不同部分，进行数据核对、处理。我们前面讲过一个窗口拆分功能：天涯若比邻：Office办公软件的窗口拆分功能方便核对数据，这次讲的是另外一种方法。

概况：演示用的办公软件为Excel2007。我们的表格是这个样子的，表格的文件名是"新建窗口示例表格"：

一、新建窗口

点击"视图"/"新建窗口"。好像没什么变化？实际上你可以看到表格的名字已经变成"新建窗口示例表格：2"，

同时在屏幕下方的工具栏上可以看到已经是2个Excel文件窗口了。你还可以新建更多的窗口，但是好像更多的窗口也不太实用了。

二、排列窗口

点"视图"/"全部重排"，然后选择排列方式（我一般选"垂直并排"）

就可以发现两个相同内容的表格出现了。

三、处理数据

我们在任何一个窗口里面进行拖动，不会影响到另外一个窗口；我们在任何一个窗口进行数据修改，另外一个窗口都是同步修改。

好吧，办公软件Excel的新建窗口功能就讲到这里。文章由@爱玩电脑创作，转载请注明出处。

工作时候在ERP系统中导出的数据,所有的内容都在同一列中,那怎么筛选?怎么汇总? 如何把一列中的一部分拆分成两列或多列？如何把单元格中括号前面的数据如何批量提取？小编来告诉你90%以上人都不知道的快速拆分Excel表格的神器~

选择需要拆分的列,切换到【开始】选项卡，选择【数据工具】组中的分列按钮，弹出【文本分列向导】对话框。

分隔符号：根据需要选用特征值，如Tab键、分号、逗号、空格、如果都没有就勾选其他，在后面的方框中输入相应的特征值。也可以用其中的文字作为分隔符号，需要注意的是，方框内职能填写一个字或者符号。而且使用特征值拆分后，该特征值在完成分列后随之消失。

固定宽度：数据没有明显的特征值，而且数据是连续的，可以选择固定宽度。在数据预览中用鼠标左键单击要拆分的位置，出现一条分列线。按住分列线并拖动位置，可以移动分列线位置。双击分列线可清除分列线。

以上。

希望大家在阅读之余，多加练习办公软件Office的使用，提高我们的工作效率，成为职场高效率的一员。我将在每周都进行内容更新，大家一起学习，共同进步。

在工作中，我们在Excel的中处理数据的时候，经常可能存在需要快速将各个分表的数据按照一定的规则合并成一张总表中，但有时我们又需要快速将总表的数据按照约定拆分成各个工作表。

对于这种重复性很强的工作，我们其实可以考虑一键操作，因为数据的处理是有规律的。当然这个要求源数据必须是完整的。

如下图为我们的源数据区域，我们需要按照B列的部门进行数据的拆分到不用的工作表当中，并且以相应的部门为工作表名称。

操作动画如下：

该代码可以保留总表的格式，但无法保留总表的公式。其实代码也是非常的简单的语法堆积出来的，都在最最简单的循环和字典，数组和一些功能代码组合而成，其实VBA真的非常简单。

代码参考如下：

以上就是今天要和大家分享的技巧，希望对大家有所帮助，欢迎大家帮忙转发，谢谢！

祝各位一天好心情！

Excel中每一个方法都有特定的用途，不是他们没有用处，只是你不了解或者暂时用不着，建议你收藏起来，万一哪天用着呢？

工作中，我们经常遇到这样的问题，比如：如何将一个工作表按类别快速拆分成多个工作表？如何将一个工作簿的多个工作表快速拆分另存为多个工作簿？下面就用案例来说明如何解决这两个问题。

第1个问题：有关工作表快速拆分的问题。案例：将员工花名册按部门拆分成多个工作表。

批量拆分工作表的方法：数据透视表

1、创建数据透视表，首先按将普通的表格（员工基本情况表）转换成数据透视表。

具体方法：【插入】→【数据透视表】→在数据透视表字段中将部门拖选到筛选区域，勾选（或拖选）其他字段到行（Excel2016在勾选日期字段时会自动添加【年】和【季度】字段，如果不需要，您可以将前面的√取消选择）。

2、调整数据透视表格式。

默认条件下创建的透视表看起来不符合我们的要求，需要进行一些调整，让数据透视表更接近我们员工花名册的格式。

具体方法：点击数据透视表任何位置→【数据透视表工具】→【设计】→【分类汇总】不显示分类汇总→【总计】对行和列禁用→【报表布局】以表格形式显示。

友情提醒：

① 有时数据透视表会自动将日期变成月份格式，我们只要右击鼠标，选择【取消组合】就可以显示正常的日期了。

②有时日期会显示成####，这是因为字符宽度超出了列宽，我们只要把列宽调大就可以了。快速调整列宽适应单元格字符长度的快捷方法是选中要调整的列，将鼠标指针放到列号与列号之间，当指针变成十字后双击鼠标左键即可。

③有时身份证会显示不对，我们只要设置单元格格式为自定义格式“0”即可。

3、按部门拆分工作表

具体方法：【数据透视表工具】→【分析】→【选项】→【显示报表筛选页】→【部门】→【确定】。动画演示如下：

4、规范工作表格式。前面已将员工基本情况表数据源已按部门拆分成7个工作表，为了下一步工作表拆分，我们先将工作表格式进行规范。

具体方法：全选工作表→右键【复制】→【粘贴成值】→删除第1和第2行（数据透视表不粘贴成值不能删除第1和第2行，调整日期格式和身份证格式。动画演示如下：

第2个问题：将一个工作簿的多个工作表快速拆分另存为多个工作簿。案例，将我们刚刚用数据透视表按部门拆分的工作表批量另存为多个工作簿。

1、导入模块文件。

具体方法：按快捷键Alt+F11，打开工程窗口→【导入文件】→选择模块文件（.bas）→【打开】→关闭VBA 编辑器。

2、另存为工作簿。

①选中需要另存的工作表。选择连续的工作表可以按shift键选择第一个工作表，再选择最后一个工作表，选择不连续的工作表可以按住ctrl键点选工作表。

②【开发工具】→【宏】→选择“拆分工作表”宏→执行。

完成上述操作后，您就可以在当前工作表所在路径的文件夹中找到一个名为【拆分好的工作表】的文件夹，被另存的工作簿就存在这个文件夹里，工作簿名称默认为工作表的名称。

如果觉得好用，请关注、点赞、评论、转发，你的支持是我坚持的动力，更多的EXCEL技能，大家可以关注“EXCEL学习微课堂”。如需批量拆分工作表到工作簿VBA代码文件，请关注、转发后私信联系我。

1.原始数据表如下（名称为：数据源），需要根据B列人员姓名拆分成每个人一个工作表。

2.点击【开发工具】-【Visual Basic】或者Alt+F11的快捷键进入VBE编辑界面。

3.如下图所示插入一个新的模块。

4.如下图，粘贴下列代码在模块中：

Sub CFGZB()

    Dim myRange As Variant

    Dim myArray

    Dim titleRange As Range

    Dim title As String

    Dim columnNum As Integer

    myRange = Application.InputBox(prompt:="请选择标题行：", Type:=8)

    myArray = WorksheetFunction.Transpose(myRange)

    Set titleRange = Application.InputBox(prompt:="请选择拆分的表头，必须是第一行，且为一个单元格，如：“姓名”", Type:=8)

    title = titleRange.Value

    columnNum = titleRange.Column

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    Dim i&, Myr&, Arr, num&

    Dim d, k

    For i = Sheets.Count To 1 Step -1

        If Sheets(i).Name <> "数据源" Then

            Sheets(i).Delete

        End If

    Next i

    Set d = CreateObject("Scripting.Dictionary")

    Myr = Worksheets("数据源").UsedRange.Rows.Count

    Arr = Worksheets("数据源").Range(Cells(2, columnNum), Cells(Myr, columnNum))

    For i = 1 To UBound(Arr)

        d(Arr(i, 1)) = ""

    Next

    k = d.keys

    For i = 0 To UBound(k)

        Set conn = CreateObject("adodb.connection")

        conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName

        Sql = "select * from [数据源$] where " & title & " = '" & k(i) & "'"

        Worksheets.Add after:=Sheets(Sheets.Count)

        With ActiveSheet

            .Name = k(i)

            For num = 1 To UBound(myArray)

                .Cells(1, num) = myArray(num, 1)

            Next num

            .Range("A2").CopyFromRecordset conn.Execute(Sql)

        End With

        Sheets(1).Select

        Sheets(1).Cells.Select

        Selection.Copy

        Worksheets(Sheets.Count).Activate

        ActiveSheet.Cells.Select

        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

                               SkipBlanks:=False, Transpose:=False

        Application.CutCopyMode = False

    Next i

    conn.Close

    Set conn = Nothing

    Application.DisplayAlerts = True

    Application.ScreenUpdating = True

End Sub

5.如下图所示，插入一个控件按钮，并指定宏到刚才插入的模块代码。

6.点击插入的按钮控件，根据提示选择标题行和要拆分的列字段，本例选择“姓名”字段拆分，当然也可以选择C列的“名称”进行拆分，看实际需求。

7.代码运行完毕后在工作簿后面会出现很多工作表，每个工作表都是单独一个人的数据。具体如下图所示：

注意：

1）原始数据表要从第一行开始有数据，并且不能有合并单元格；

2）打开工作簿时需要开启宏，否则将无法运行代码。

（本文内容由百度知道网友茗童贡献）

案例

：如图所示，为某公司市场部的销售业绩。现在为了需要把销售额表，根据

销售地

拆分为多个sheet表，且表名为

名。如何进行操作呢？

职场小白思路：首先对数据按照销售地进行排序，然后 开始新建多个sheet，然后复制，黏贴，复制，黏贴......效率及其低下

雷哥做法

：

Step1

：新建一个数据透视表，注意：

作为筛选项

Step2

：单击透视表任一单元格，点击 分析——选项——显示报表筛选页——确定 即可。

下面就是见证奇迹的时刻啦，看到文件底部，出来很多工作表，北京，成都，......

比复制，黏贴，复制等快了不知道多少倍。

雷哥，office发烧友。欢迎互动交流学习

excel使用技巧大全表格的拆分对很多人来说都是一件难事，大家都想到的第一个方法就是复制和粘贴，或者用代码解决，其实，EXCEL有自带功能的，可以快速的帮你实现拆分。今天就给大家介绍一下这种方法，不需要编写任何的代码，一下就学会了。

例如下面我们要把这个表格拆分成多个工作表。

要把A列的销售部门，按照部门的名称进行分表。这时候，传统的方法就是插表，再进行复制粘贴。其实，解决这个问题，我们只需要学会运用Excel自带的数据透视表功能就可以。

首先，创建一个数据透视表，选中我们有用的数据区域，接着插入数据透视表。记住除了销售部门名称外，其他都要添加行标签。

插入完之后，我们就调整格式，选中区域，在浮动选项卡——布局分分类汇总——不显示，报表布局那里在选择报个形式，在去分析选项卡里面把+/- 键进行取消。

第三步，就是最为关键的一步，进行拆分表格，在透视表工具中，按选项—显示报表筛选页—确定，那么拆分就完成。

第四部删除数据透视表格式，这个比较简单。按shift连选表格，然后根据下面的方法，复制粘贴相应的值，最后删除前2行和取消工作表就可以完成。

第二个例子，批量建设相同的表。

学了如何拆分表，现在学学如何批量新建表格，具体操作如下图：

第一步：插入数据透视表

1.鼠标放在数据区，插入数据透视表，如下图：

2.因为只是拆分工作表，不进行计算，所以此处“值”区域空白，如下图：

第二步：设计数据透视表

不显示分类汇总，如下图：

2.以表格形式显示数据，如下图：

3.显示报表筛选页，如下图：

4.筛选页字段为区域，如下图：

第三步：拆分完成

1.拆分成四个按地区独立显示的工作表，如下图：

2.以数据透视表拆分方式拆分的工作表显示为数据透视表格式，如果想以表格形式显示数据，可以双击数据透视表右下角单元格，如下图：

3.以表格形式显示数据，如下图：

在 Word 中，可以把一个单元格拆分为多个单元格甚至拆分为一个表格；而Excel拆分单元格与Word不同，在Excel中，只能把合并后的单元格拆分。拆分方法有两种，一种是用“对齐方式”中的选项拆分，另一种在“设置单元格格式”窗口中拆分。另外，一次可以只拆分一个单元格，也可以批量拆分多个单元格。除拆分单元格外，还可以拆分单元格内容，即把一个单元格中的内容拆分到多个单元格，拆分内容可以数字、数字与字母组合、汉字词组等，但分隔符必须用半角而不能用全角。以下先介绍Excel拆分单元格的两种方法，再介绍拆分单元格内容的方法，操作中所用 Excel 版本为 2016。

一、Excel拆分单元格

(一）拆分一个单元格

Excel未合并的单元格已经是最小的单元格，不能再拆分。现在，假如要把一个合并了四个单元格的单元格重新拆分为四个，方法如下：

方法一：

选中要拆分单元格，单击“开始”选项卡下的“合并后居中”下拉列表框，在弹出的选项中，选择“取消单元格合并”，则此单元格被重新拆分为四个单元格，点击“自动换行”后，效果更明显，操作过程步骤，如图1所示：

方法二：

右键要拆分的单元格，在弹出的菜单中选择“设置单元格格式”，打开该窗口，选择“对齐”选项卡，单击“合并单元格”把其前面的勾取消，单击“确定”，则选中单元格被重新拆分为四个，操作过程步骤，如图2所示：

(二）批量拆分单元格

1、选中要拆分的所有单元格，例如选中三个单元格，单击“开始”下的“合并后居中”，选择“取消单元格合并”，如图3所示：

2、则选中的三个单元格同时被重新拆分为四个，为便于看到所有文字，把它们的对齐方式都设置为“左对齐”，如图4所示：

二、Excel拆分单元格内容（把一个单元格的内容拆分到多列）

1、选中要拆分内容的单元格，例如 A1，选择“数据”选项卡，单击“数据工具”上的“分列”，打开“文本分列向导”窗口，选择“请选择最合适的文件类型”下的“分隔符”，单击“下一步”；选择“分隔号”下面的“逗号”，单击“下一步”，最后单击“完成”，则选中单元格的内容被拆分到三个处于同行的单元格；操作过程步骤，如图5所示：

2、上面拆分的是字母加数字组合成的文本，全是中文的内容也可以用此方法拆分，但有一点要注意，文字之间必须用半角标点符号（即英文标点），假如用逗号做分隔符，只用“,”不能用“，”。以下是一个拆分中文的实例：

A、同样选中要拆分的单元格（如 A2），单击“数据”选项卡下的“分列”，打开“文本分列向导”窗口，如图6所示：

B、单击“下一步”，像拆分 A1 单元格中的内容一样选择即可，拆分结果，如图7所示：

C、“单元”二字被拆分到一个单元格，而“格式，符号”却没有被拆分到两个单元格；因为“单元”后用的是半角逗号，“格式，符号”中的是全角逗号，而全角逗号Excel无法识别不能作为分隔符。

这是昨天案例的数据源，继续聊数据透视表。

强调一下，这份数据源已经插入了表格，所以可以直接使用切片器等等操作。如果是普通的数据，需要插入表格。

插入表格这个功能妙用多多，但却被大多数人忽视。

今天，想再次刷新你的认知，没错，就是这么自信！这里面涉及到的功能，你可能看过，但是完整的教程，99%的人都没看过。

Step 01 选择A1，插入数据透视表，保持默认不变，确定。

Step 02 将客户拉到筛选，产品名称拉到行，数量和金额（元）拉到值。

Step 03 点击（全部）这个单元格，再点击分析→显示报表筛选页。

Step 04 点击确定。

这样就按客户名称，统计并拆分成多个表格。

假设现在客户名称4个已经定下来了，现在希望达到的效果是：只要在总表新增数据，分表就自动更新统计。

拆分已经实现，剩下的就是自动更新统计。

Step 05 右键Excel不加班这个工作表，点击查看代码。

Step 06 双击ThisWorkbook，将自动刷新代码粘贴进去，关闭窗口。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)ActiveWorkbook.RefreshAllEnd Sub

Step 07 在总表新增加一条客户为Excel不加班的记录。

Step 08 切换到Excel不加班这个表，立马可以看到新增加的记录。

好用吗？

神奇吗？

Step 09 所有使用VBA的工作簿，都需要另存为启用宏的工作簿。

插入表格起到了获取动态数据源的作用，VBA起到了自动刷新的作用，缺一不可！

缺陷：这个方法唯一的不足，就是新增加其他客户，不会自动生成新的工作表，只对原来已经生成的客户工作表有效。