Excel表格拆分

转自：微点阅读（www.weidianyuedu.com）微点阅读 - 范文大全 - 免费学习知识的网站

财务平时面对形形色色的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

数据的拆分在实际工作很常用到，对工作效率也有很大影响，掌握一些方法可以节约很多时间。