插入一个表格，我们一般是选择『插入』，点击『表格』，选择行列进行插入，然后再去调整我们需要的宽度。

其实还有另外一个方法，更加的方便：我们输入『＋』和『－』，『＋』就是代表表格的竖线，『－』所占的区域的就是表格的列宽，如下图。

我们在末尾点击『回车』，刚才输入的『＋』和『－』就瞬间变成了一行表格，是不是很奇特，哇嘎嘎！！！

如果我们想要添加多行表格呢，直接点击『tab』键，狂点，就可以添加多行表格了。

一个表格，如何将它拆分成两个或者多个？

这个其实很简单：在想要分开的那行点击一下，然后同时点击『Ctrl』和『Shift』和『回车』三个键，就可以将原来的表格拆分成两个了，超方便、超快有木有。

表格行数不够，点击插入，一行一行的去处理，太麻烦了吧！！

看这里，简单的方法：先选择多行表格，然后点击右键，插入行，搞定。我们选择多少行这里就插入了多少行。

文 | 康安安

四川文理科各批次的录取分数线公布之后，省教育考试院紧接着公布了文理科的一分一段统计表。这个表包含3个重要信息：分数、多少人考出了这个分数、考出这个分数的人在全省的大致排名。

每位考生都已经得到了自己的分数，同时通过一分一段表可以查到大致在全省的排位。可是拿这个排位干什么呢？来，我们一起理一下思路。

把上面的步骤多读几遍，了解一分一段表的使用方法，然后就可以往下翻阅，“开启新的地图”啦！

温馨提醒：表格较长，文理生可直接翻到对应位置阅读。前两个表格分别是2017年和2016年的理科一分一段表；后两个表格分别是2017年和2016年文科一分一段表。

详见图表中标蓝的分数、人数和位次。根据一分一段表看，实际参加2017年高考的理科考生（包括0分考生），只有28.25万。实际参考考生的一本上线率为27.23%，本科上线率为59.1%。

接下来，查一查自己的位次吧：

查到自己2017年的位次之后，下面是2016年理科的一分一段表，用你的位次穿越到去年，看看你能在2016年的高考中考多少分吧。

查到你2016年的高考分数之后，去看看你在去年可以报考那些大学吧，他们今年也是你的菜哟。如果考虑到扩招的“注水情况”，考生在“冲一冲”的时候，可以在去年的对应分数上加上5分（经计算2017年大约注水分），再选学校。

根据一分一段表看，实际参加2017年高考的理科考生（包括0分考生）21万。以下为2017年一分一段表，先看看你在全省的排位。

今年的位次找到之后，接下来看看下面2016年文科的一分一段表，穿越回去，看看去年高考，你能考多少分：

接下来，你就可以拿着自己的2016年高考分数，比照2016年高校录取分数线，选择学校和专业了。考虑到扩招的影响，你可以在自己2016年的高考分数上加上2分（经计算今年文科大约注水分），选择高校。

最后，无论文理科，这种方式操作都比较简单，而且参考意义很大，是无人指导、自己填志愿的考生，最好最实用的方法之一。

来源：本文原创，转载请注明来源，违者必究！

作者：康安安

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

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

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

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

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

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

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

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

友情提醒：

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

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

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

3、按部门拆分工作表

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

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

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

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

1、导入模块文件。

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

2、另存为工作簿。

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

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

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

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

在制作表格过程中，偶尔会遇到这么一种情况：表格跨页一两行或两三行，如果这样打印出来，一方面浪费纸张，另一方面不美观。因此，大多情况下的处理办法是把跨页不多的部分收缩到上一页。收缩办法可以从三个方面入手，一、调字号，二、调整行间距，三、检查单元格边距，这些都是上一篇介绍的知识，本篇等于是上篇知识在实际工作中的具体应用。

一、Word表格一页加跨两行的情况

1、假如有一张员工表，跨页部分只有两行，如图1所示：

2、现在要求把跨页的两行收缩成一页。首先尝试把字号调小，选中表格，如图2所示：

A、右键表格，在弹出的菜单中，单击“字号”下拉列表框，选择“小四”，跨页的两行并没有收缩到上一页，如图3所示：

B、选择“五号”，表格又收缩太多，如图4所示：

C、选择“12号”跟选择“小四”的情况一样，选择“11号”跟选择“五号”的情况一样，因此，想通过调整字号使表格跨页部分收缩到上一页行不通。

3、尝试调行间距

A、确保表格处于选中状态，选择“开始”选项卡，单击“段落”右边的斜箭头，如图5所示：

B、打开“段落”窗口，选择“缩进和间距”选项卡，“行距”选择“固定值”，“设置值”修改为“29 磅”，如图6所示：

C、单击“确定”后，表格收缩为一页，如图7所示：

D、收缩后，表格并没有恰好占满一页，如果把“行距”调为 30 磅，又会有一页跨行，因此不能再调行距，若要求精确度不高，这样就可以了，否则还需要继续调。

4、让表格恰好占满一页

A、假如要求让表格恰好占满一页，又应该怎么调？首先又尝试调字号，把号调为20号，又有一行跨页了，如图8所示：

B、把字号改为18号，表格又不能占满一页，如图9所示：

C、说明调字号的办法不能使表格恰好占满一页。

D、继续尝试调单元格边距。选择“布局”选项卡，单击“单元格大小”右边的斜箭头，如图10所示：

E、打开“表格”选项窗口，把单元格上下边距都调为 0.01 厘米，如图11所示：

F、单击“确定”后，表格还差一点就占满了一页，也只能再调成这样，如图12所示：

G、其实还有另一种办法，就是平均分布各行。首先把最后一行的底边线拉到最下面，如图13所示：

H、接着，右键表格，选择“平均分布各行”，如图14所示：

I、这样也能实现让表格恰好占满一行，并且比调单元格边距更好，如图15所示：

二、Word表格多页加跨几行的情况

调整也用上面的方法，所不同的是，表格页数越多，调整值相应设大一些；另外，一种方法实现不了时，可以结合三种方法一起使用，例如，先把字号调大一点，再把行间距调大一些，如果还不行接着调单元格边距，再结合平均分布各行，这样就可以实现最终目的。就不再举实例，可以自己按照上述方法尝试以作为练习。

我们常常需要核对两个表格，如果两个表格的顺序相同，核对工作就会简单很多，可实际往往不是。就像下图中的两个表格，大部分货品相同，少部分货品有差异，怎样将这两个表格按照某个关键字（货品）调整成一样的顺序呢？

相信会有不少朋友使用VLOOKUP之类的函数来处理，这当然是可以的。可有些朋友不会用VLOOKUP，或者用起来不顺手，总是遇到各种错误，因此，本文将介绍如何使用排序来处理。

货品不相同的两表调整顺序，比较复杂，先来看看怎样将货品相同的两个表格调整成一样的顺序吧。

货品相同的两表调整顺序

方法：复制左表的货品名称到记事本中，然后选中右表，按照“货品”自定义排序，自定义序列窗口中粘贴记事本中的货品，点击“确定”即可将右表顺序调整成和左表相同。

用GIF图演示整个操作步骤如下：

货品不相同的两表调整顺序

步骤1：将“库存数量”表格中的所有货品复制到“实际数量”表货品那一列下方。

步骤2：在wps表格中高亮“实际数量”表中的货品那一列，找出不重复的货品。（Excel中可以使用“条件格式”——“突出显示单元格规则”——“重复值”。）

步骤3：筛选出不重复的货品，也就是没有颜色的货品。

步骤4：如图，对于筛选出的“实际数量”表中没有颜色的“货品”里，红色区域的是“库存数量”表中没有的货品，蓝色的是“实际数量”表中没有的货品。在两表中分别添加各自缺少的货品名称。

步骤5：和货品相同的两表调整顺序一样，将一个表格按照另一个表格的货品顺序自定义排序。

最后，我们就将两个表格调整成了相同的顺序（即货品名称顺序相同）。

注意：

排序时，注意是否包括标题；货品名称复制下来，无法直接粘贴到“自定义序列”窗口中，需要通过记事本过渡。也就是先复制粘贴到记事本中，然后再从记事本中复制出来，粘贴到“自定义序列”窗口中。自定义序列排序是个非常好用的功能，出来可以实现本文的效果，还可以帮助你快速从一个大表中挑选出部分数据。感兴趣的朋友，欢迎阅读《Excel技巧：不用函数，也能快速批量查找出需要的数据》。

谢谢阅读，每天学一点，省下时间充实自己。欢迎点赞、评论、关注和点击头像。

将网上一些文字复制到WPS Excel表格中，所有文字都挤在一个单元格中，怎样快速实现一字一格或两个字一格呢？

也许很多朋友想到使用分列功能，但如果字很多的话，分列很麻烦。不如借助Word，只要3步，操作很方便。

步骤1：每个字后面自动添加一个空格。

将文字粘贴到Word中，调出替换窗口，输入查找内容为“^?”，替换为“^& ”(注意&后面有个空格），全部替换后，每个字后面都会自动添加上一个空格。

步骤2：文字转表格。

选中所有文字，选择“文本转换成表格”，输入列数。

步骤3：复制到Excel中。

步骤2之后我们就可以得到如图所示的表格，将其复制粘贴到Excel表格中，就可以实现一字一格啦。

拓展。

用同样的办法，我们可以实现两个字一格、一句诗一格等。方法和上面类似，“^?”表示一个字符，“^?^?”则表示2个字符，以此类推。

注意，使用这个方法时，需使用英文输入法输入“^?”和“^&（空格） ”。

欢迎点赞、评论、关注和点击头像。

拆分表格是将表格分成两个或多个表格。书山有路勤为径，学海无涯苦作舟。好记性不如烂笔头，大家一起努力吧~

首先选择好需要拆分的位置。

左键单击选择菜单栏的表格按钮。

选择拆分表格。

下面是拆分表格的效果图。

或者也可以使用组合键来进行表格的拆分：Ctrl+Shift+Enter

可选用以下方法：

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

二、运用公式函数解决。可以用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贡献）

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

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

为大家介绍一个制表技巧，可以将一个表格快速拆分成两个表格。

1.    首先，我们建立一个表格。单击“常用”工具栏中的“插入表格”按钮，得到自己想要的规格；

2.    将光标移到需要将表格一分为二的位置；

3.    此时，我们使用组合键“Ctrl + Shift + Enter”将其拆分成两个表格。

4.   如上图所示，我们已经轻松将一个表格变成了两个，方法快速而又简单，在实战过程中非常实用。

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