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

兰色幻想 · 发表于 2014-5-26 22:16

本帖最后由兰色幻想于 2014-5-28 08:23 编辑

         昨天好不容易才把同类项合并，今天兰色真不好意再为难同学们…。可。谁让他很实用呢。同时这也昨天微信平台上的一位同学的提问：
         合并后怎么进行逆向操作？
还是昨天的表，如下所示，如何把左表拆分成右表形式。
   要求：1 可以用公式引用，但不能使用函数。（尽量在excel里完成）
               2 方法要适用于大数据量的批量操作。

   虽然表格相同，昨天是合并，今天是拆份，所用的知识点完全不同，同学们振作精神，再挑战吧。想到答案在此回复吧。
   本贴为回复可见，只有楼主可以看到答案。后天开放本贴。

兰色注：各位技巧高手提供了很多很好的解题方法，我的参考答案也是其中之一，我就不再录制动画，大家互相学习一下吧。

huangcaiguang · 发表于 2014-5-26 22:24

本帖最后由 huangcaiguang 于 2014-5-27 10:37 编辑

非WORD一定要看就上一个：

huangcaiguang · 发表于 2014-5-26 23:14

本帖最后由 huangcaiguang 于 2014-5-26 23:20 编辑

天魔剑出鞘！{:18:}
汇总那个搞复杂了可以在透视表时隐藏

ppp710715 · 发表于 2014-5-26 23:19

Sub ppp()
Dim i%, r%
Dim arr, j%, k%
r = Cells(Rows.Count, 1).End(3).Row
[D:E].Clear
[d1] = "顾客"
[e1] = "消费金额"
For i = 2 To r
arr = Split(Range("b" & i), "，")
For j = 0 To UBound(arr)
k = k + 1
Range("e" & k + 1) = arr(j)
Range("d" & k + 1) = Range("a" & i)
Next
Next
End Sub

复制代码

云影 · 发表于 2014-5-26 23:21

本帖最后由云影于 2014-5-26 23:44 编辑

xdragon · 发表于 2014-5-26 23:24

本帖最后由 xdragon 于 2014-5-26 23:29 编辑

xdragon · 发表于 2014-5-26 23:56

再弄个玩玩。。。

1091126096 · 发表于 2014-5-27 00:19

本帖最后由 1091126096 于 2014-5-28 00:17 编辑

新修改的命名为拆分，操作更繁琐，但适用与大量数据。

JLxiangwei · 发表于 2014-5-27 08:50

raulerini · 发表于 2014-5-27 09:07

1、复制数据到office剪贴板
2、选中一个单元格的编辑框，ctrl+C+C打开剪贴板，单击剪贴板将复制的数据都粘贴到一个单元格中去
3、Ctrl+H替换，查找“，”，替换为 Ctrl+J （软回车，或小键盘ALT+10）再加一个空格
4、复制替换好的数据，粘贴，这时的数据应该在同一列中
5、对该列进行分列，分隔符选空格
6、对分列出来的数据第一列执行定位-空单元格
7、对定位出来的单元格输入=加向上方向键，Ctrl+Enter

		自动登录	找回密码
密码			注册

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

相关帖子

本帖子中包含更多资源

评分

本帖子中包含更多资源

点评

评分

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分

本帖子中包含更多资源

点评

评分

评分