财务平时面对形形色色的Excel表，什么奇葩问题都能遇上，比如：
1. 姓名和手机号码都连在一个格子里，怎么分开？
2. 怎么把一张表里按客户拆成多个工作表？有多少客户拆分成多少表……
3. 想把一张表分成多张单独的表文件，除了新建复制还能怎么做？
遇到上面这类问题，我猜你是不是还在用Ctrl C和Ctrl V？数据少则还好，要是多则上百行数据，简直要复制粘贴到崩溃…
今天，学习下面三招，秒拆单元格和表格！
01
拆分单元格内容
姓名和手机号码连在一起，是最常见的一种表格形式
操作步骤：
先输入第一个姓名，选取它和下面的空行，按Ctrl+E，一秒搞定拆分！
想合并在一起呢？先输入一行，再按按Ctrl+E,同样一秒完成！
为什么Ctrl+E这么智能？
因为它是excel2013新增功能“快速填充”的快捷键，它可以自动从字符中找规律，完成数据的提取或合并。
02
拆分成多个excel工作表
这里有张各地区的销售总表，要求根据地区拆分成多个工作表保存，有多少地区就拆分多少张表。
▼原始表：
▼拆分后的表：
操作步骤：
1、生成数据透视表
选取数据区域 - 插入 - 数据透视表
2、数据透视表添加字段、调整格式
将地区添加到筛选标签，其他的全部添加到行标签，不显示分类汇总，报表布局选“以表格样式”
动画演示：
3、拆分数据透视表
数据透视表工具 - 选项 - 显示报表筛选页（excel2003版这个命令在右键菜单中）。点击该命令后会自动生成N个以地区这名称的工作表
动画演示：
4、数据表的整理
全选拆分后的工作表，复制 - 粘贴 - 数值，最后删除前2行。
03
拆分成多个excel文件
同样是上述情况，怎么拆分成独立的Excel表文件呢？那只能用VBA编写代码了。
比如：把当前excel文件中除第1个工作外的所有工作表，均保存为单独的excel文件到3月文件夹中。
拆分演示（在拆分过程中会画面会停几秒，请耐心等待）
代码：
Sub 拆分表格()
Dim x As Integer
Dim wb As Workbook
Application.ScreenUpdating = False
For x = 2 To 32
Sheets(x).Copy
Set wb = ActiveWorkbook
With wb
.SaveAs ThisWorkbook.Path & "/3月/" & Sheets(x).Name & ".xlsx"
.Close True
End With
Next x
Application.ScreenUpdating = True
End Sub
数据的拆分在实际工作很常用到，对工作效率也有很大影响，掌握一些方法可以节约很多时间。
以上就是小编今天带来的拆分数据方法，希望可以帮助到大家
品略图书馆 http://www.pinlue.com/