有奖挑战逆操作：excel拆分同类项（答案开放）

cgzxwwf

cgzxwwf 发表于 2014-5-27 12:45
从论坛学到很多技巧,今天斗胆一试还成了..GIF弄得大些了,只好压缩包了.请各位领导指正.

谢老大鼓励，我会努力的

木偶fenzi

哎哟  图片发不了，，搞了半天。。。

木偶fenzi

我的图片好像看不了   呜呜  

神隐汀渚

老师！你好！拆分 不是拆份 字错了!图片质量不高，还望见谅！

angel928

1.先用“数据”--分列
2.然后用powerquery中的逆透视
2步搞定！

suzhouy2003

gif格式文件不会使用，只能按步骤叙述：
1.选中B2:B4 ，使用“查找与替换” 查找栏输入“,“替换栏输入1个空格” “，进行替换。
2.选中B2:B4，选择”分列“中的”分隔符号“，下一步，选中”空格“，然后再下一步完成。
3.选中A2:E4（已分列完成的区域）复制，选中G2单元格。然后选择”选择性粘贴“中的数值和转置。
4. 分别在原有的 H I列前面插入空白列
5.剪切G2：K2  选择F2单元格粘贴
6.剪切H2:I5  选择F7单元格粘贴
7.剪切J2:K5  选择F11单元格粘贴
8.选择F2:F14  定位”空值“  按”=“+”↑“  然后同时按下Ctrl+Enter 完成填充。
9.选择F2:F14复制  在F2单元格选择性粘贴 选择”数值“粘贴。
10.选择G2：G14 定位”空值“  然后在”删除单元格“选取”删除工作表行“ 。复制表头粘贴于F1:G1。
完成

liziyuliziyu7

Sub 逆操作()
    arr = Range("a2:b" & [a65536].End(3).Row)
    ReDim brr(1 To 999, 1 To 2)
    For i = 1 To UBound(arr)
        s = Split(arr(i, 2), ",")
        For k = 0 To UBound(s)
            t = t + 1
            brr(t, 1) = arr(i, 1)
            brr(t, 2) = s(k)
        Next
    Next
    Range("c1").Resize(UBound(brr), 2) = brr
End Sub

liziyuliziyu7

………………………………………………………………………………

神隐汀渚

兰老师！分列+数透+定位空值的做法gif太大了 传不上来 说下步骤吧！
1、对消费金额，以逗号分列，然后添加项目名称。
2、插入，数据透视表，选择a1：e4区域数据，设置字段。
3、复制需要的区域，进行定位空值处理，删除消费金额里面的空行，再对顾客那行进行定位空值等于上面，抗戳+回车。
4、保存。

桔子小七

我想看答案