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

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

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

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

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

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

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

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

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

Excel中快速把一个表格的格式复制在多个表格？ 同一个模板快速复制到其它表格

1先全选单元格，（可以根据自己的需求决定），确认这个是模板表格！

2按下 【↑Shift 上档】键 然后用鼠标全选 表格；

小窍门：

（直接点击最后面的表格，那么代表全选表格，示例：Sheet8 →Sheet10）

3选中后，点击表格 右上方的 【填充】按钮，选中【成组工作表】

4在弹出的【填充成组工作表】中可以根据自己的需求进行选中 粘贴的 格式

分别是： 【内容】 或者 【格式】 也可以选择 【全部】；

5最后可以检查Sheet9 和Sheet10 查看是否已经覆盖全部内容！

如图所示：

把 多个工作表 合并到到一张表， 最快捷的方法是用宏处理：

例如 将多个表合并到总计表：

总计  表只留一个标题

右键点 汇总 工作表 标签 ，查看代码，  把如下代码复制进去， F5运行: 

Sub 工作表合并()For Each st In WorksheetsIf st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)NextEnd Sub

就会把多个表合并 到   总表，

如下例： 在Sheet  总计  中 运行  如上代码，就会将所有 月份 分表 汇总 进来，方便后续处理，而 不需要一次次粘贴处理

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

施老师：

快要过年了，年前许多公司开始统计之前每月的销售表格，做一个整年的销售统计表。有的小公司的表格可能不是很多，手动就可以整好。但是对于一些需要整合大量表格的公司来说是一件很费时的事情。今天施老师就给大家分享下快速合并并计算表格方法！

一、下图中有两个表格，怎样把它们合并到一起呢，我们可以点【数据】-【数据工具】-【合并计算】。就可以了。

上面两个表格数据不是很多，但是我是做演示，所以先用的这个案例，如果碰到数据很多的表格，这个方法是再好不过了。大家不妨试一下下。

有什么疑问的大家可以在下方评论区留言给我，和施老师一起探讨，欢迎关注宁双学好网施老师！

如果我们在使用excel的时候想要一次制作多张相同的excel表格，我们除了可以使用复制粘贴、另存为的方法以外，你知道其他的方法吗？今天我们就来一起学习一种快速生成多个相同excel表格的简单方法。

1、我们打开excel以后，默认的工作簿下会有三个工作表，我们按住【CTRL】键，然后同时点击这三个工作表的工作标签。

2、然后我们在第一张excel工作表中输入内容，或者表头类的文字内容（无法插入图片的）。

当我们输入完成以后，我们就可以点击查看其他的工作表了，是不是已经快速生成多个相同的excel表格了，这个方法很简单，但是也有局限性，比如说没有办法插入图片，不过平常我们建立普通的模板就可以使用这种方法了。

可选用以下方法：

一、使用“分列”功能解决。选中需要拆分的单元格，点菜单“数据”——“分列”—，根据实际情况选择“分隔符号”或“固定宽度”分隔——“下一步”，在“其他”中输入分隔符号或点标尺切割数据，最后在“目标区域”输入存放目标数据第一个数的单元格区域地址，最后按“完成”。

二、运用公式函数解决。可以用left、right或mid等函数处理。

示例：假定原数据为“10－21”形式的数据，要求将“－”两边的数据分拆到后面的两个单元格。=left(a1,find("－",a1)-1)=right(a1,len(a1)-find("－",a1))

或=trim(mid(substitute($a1,"－",rept("",99)),(column(a1)-1)*99+1,99)右拉填充

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

工作中常常会遇到一些特殊情况，一个Excel工作簿中可能会有几十，或者上百个工作表。

这么多工作表存在一个Excel表中，该如何快速定位到特定的表格呢？如果能有一个工作表目录真是太方便了！

最常见的方法，要定义名称 + 长长的让人很难记住的Excel公式。制作这个目录对新手还是有点难度。

定义名称：Shname =MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,99)&T(NOW())在目录表中任一单元格输入并复制以下公式=IFERROR(HYPERLINK("#'"&INDEX(Shname,ROW(A1))&"'!A1",INDEX(Shname,ROW(A1))),"")

这里分享一个非常简单的Excel目录制作方法（适合2003以上版本）

操作步骤：

1、输入公式

全选所有表，在前面添加一空列。然后在单元格A1中输入公式 =xfd1

注：这个方法的原理是输入让03版无法兼容的公式（03版没有XFD列），然后检查功能诱使Excel把所有工作表名列出来。

2、生成超链接列表

文件 - 信息 - 检查兼容性 - 复制到工作表，然后Excel会插入一个内容检查的工作表，并且在E列已自动生成带链接的工作表名称。

3、制作目录表

把带链接的工作表名称列表粘贴到“主界面”工作表中，替换掉'!A1，稍美化一下，目录效果如下：

4、制作返回主界面的链接

全选工作表 - 在任一个表的A1输入公式（会同时输入到所有表中）

=HYPERLINK("#主界面!A1","返回主界面")

注:HYPERLINK函数可以在Excel中用公式生成超链接

完工！如果以后新增了表格，手工添加校新表超链接也不麻烦，如果想完全自动，可以使用本文开头所介绍的使用宏表函数创建目录。

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

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

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

一、新建窗口

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

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

二、排列窗口

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

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

三、处理数据

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

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

从事互联网行业的小编们，经常会遇到一个问题，就是导出多个Excel表格数据，经常是多个数据合并到一个excel表格里来做数据分析，那么如何快速的合并excel表格呢？

1、把所有excel文件放在同一个文件夹里。如下图：

2、打开汇总excel，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

3、然后我们把下面代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：

Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

运行几十秒钟就OK啦！如果表格数据过多的话，时间会久一点。

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）打开工作簿时需要开启宏，否则将无法运行代码。

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