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