工作中经常遇到需要用Excel筛选数据,最后的结果是数据量变少。

今天遇到一个例子,是要用Excel把数据变多,具体要求是把下图这样的数据

扩充为

具体要求为:把编码和店名都添加原始数据的序号,然后再标记1、2、3,中间用-连接,原始地址保持不变。

数据量不确定,少的有几条,多的有几百条上千条,需要经常做。

同事的做法

在我知道这项工作之前,同事是这样做的:分别把每一条信息复制粘贴2次,然后分别为编码和店名添加序号再标记为1、2、3。

我没有敢问ta做这项工作究竟要花多少时间,因为ta提起这项工作时是一把鼻涕一把泪。

Excel公式和辅助列法

1、首先添加两个辅助列,分别为“编码2”和“店名2”。

2、然后用公式在这两个新列里分别为编码和店名添加序号。

公式分别为(注意我把原始数据弄成了table形式,这样写公式就很方便):

=[@编码]&ROW()-1 =[@店名]&ROW()-1

为什么要用ROW()-1呢,这是通过观察得来的:由于标题行占了单独的一行,因此每条记录的序号比当前行的行号少1。

3、把刚才新增的两列数据复制后,粘贴为值,把编码和店名两列的原始数据覆盖掉,并按编码排序:

4、然后再添加两个新列,然后获取对应的编码和店名的1、2、3标记。这里我用行号减去1后和3取模,再用if判断,如果余数为0则将其变为3。

公式为:

=IF(MOD(ROW()-1,3)=0,[@编码]&"-3",[@编码]&"-"&MOD(ROW()-1,3)) =IF(MOD(ROW()-1,3)=0,[@店名]&"-3",[@店名]&"-"&MOD(ROW()-1,3))

5、最后,剪切最后两列,粘贴为值,第二次覆盖编码和店名两列。完成。

用公式法,可以在5-10分钟内完成所有操作。

但缺点是每次新数据来了之后,要再重复一遍整个过程,对于懒人来说,这是不可接受的。懒人的人生哲学是——辛苦一次,终身享受。

PowerQuery一劳永逸法

所以,要想辛苦一次,终身享受,还是要祭出PowerQuery大法来。这样模型建好之后,每次新数据来了,我只需要刷新即可。

不多说,直接上代码:

let 源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],//从Excel引入数据源 更改的类型 = Table.TransformColumnTypes(源,{{"编码", type text}, {"店名", type text}, {"地址", type text}}),//PowerQuery自动添加的步骤,可以省略 已添加索引 = Table.AddIndexColumn(更改的类型, "索引", 1, 1),//索引的目的是获取原始数据的行号,以便于将其插入到编码和店名两列 自定义1 = Table.Combine({已添加索引,已添加索引,已添加索引}),//这一步相当于复制粘贴两次原始数据 排序的行 = Table.Sort(自定义1,{{"索引", Order.Ascending}}),//我们还是按原始数据的序号顺序排列。 已添加索引1 = Table.AddIndexColumn(排序的行, "索引.1", 1, 1),//我另增加了一个索引列,用于生成后面需要标记的1、2、3 已添加自定义 = Table.AddColumn(已添加索引1, "自定义", each if Number.Mod([索引.1],3)=0 then 3 else Number.Mod([索引.1],3)),//这一步就是生成了每一条原始记录的1、2、3的序号 自定义2 = Table.FromRecords(Table.TransformRows(已添加自定义, (r) => Record.TransformFields(r, {"编码", each r[编码]&Text.From(r[索引])}))),//这一步和后面的一步是为编码和店名添加原始数据中的序号,我分开写的,其实可以合并 自定义4 = Table.FromRecords(Table.TransformRows(自定义2, (r) => Record.TransformFields(r, {"店名", each r[店名]&Text.From(r[索引])}))),//同上 删除的列 = Table.RemoveColumns(自定义4,{"索引", "索引.1"}),//删除不需要的列 自定义3 = Table.FromRecords(Table.TransformRows(删除的列, (r) => Record.TransformFields(r, {"编码", each r[编码]&"-"&Text.From(r[自定义])}))),//这一步和下一步都是为编码和店名添加1、2、3的序号 自定义5 = Table.FromRecords(Table.TransformRows(自定义3, (r) => Record.TransformFields(r, {"店名", each r[店名]&"-"&Text.From(r[自定义])}))),//同上 删除的列1 = Table.RemoveColumns(自定义5,{"自定义"})//删除不需要的列 in 删除的列1

用PowerQuery处理的难点是扩充了原始数据后,怎么按规律生成1、2、3的序号。由于早就把最简单的数学还给了体育老师,我在这里还是折腾了好半天,最后采取了一个不怎么优雅的方式(对3取模后再用if来判断,把余数为0更改为3)。注意代码中,//表示注释。

PowerQuery怎么刷新?

其实我上面贴的代码,在新的数据产生后,不能直接刷新——因为还得把新数据粘贴到数据模型的sheet1中。

更偷懒的办法是把原始数据的Excel文件单独放在一个文件夹中,在该文件夹之外新建一个Excel版的PowerQuery数据模型,数据源就引用该文件夹,这样,当心数据产生后,把老的原始文件删除,把新的数据丢到这个文件夹,再打开数据模型刷新即可。

这样操作后,以后要做的就只有三步了:

1.删除老的原始数据文件;

2.把新的原始数据文件丢到该文件夹下面;

3.打开数据模型所在的Excel文件,刷新,完成。

结语

如果一项工作总是需要重复做反复做,我就会想法子偷懒,找有没有更简单的办法。最经常的情况是,每次做这项工作本身只需要1个小时,结果我花了几个小时乃至几十个小时才找到简便的方法。

表面上看得不偿失。但由于我找到的方法是一种模式和套路,因此,以后凡是要再做这项工作时,我花费的时间不再是一个小时,而是两分钟。准确来说,是从此以后,任何人再做同样的工作,只需要两分钟。这无论是对个人还是对企业来说,都很有价值。