[已解决]根据B列不重复项目合并数据

张雄友 · 发表于 2015-3-25 21:57

本帖最后由张雄友于 2015-3-25 22:15 编辑

zjdh 发表于 2015-3-25 19:59
是的

合计数跑到上面去了，是否要用定位方法？？？？？？

张雄友 · 发表于 2015-3-25 22:32

zjdh 发表于 2015-3-25 19:34

又认真修改了一下，多了黄色一行出来。

张雄友 · 发表于 2015-3-26 07:46

zjdh 发表于 2015-3-25 19:59
是的

当起始位置不固定时，不能用:7

For i = 7 To Range("A65536").End(3).Row

张雄友 · 发表于 2015-3-26 08:01

zjdh 发表于 2015-3-25 19:59
是的

6点起来搞了二小时，C 列没有数据出来。列数不确定时，将2用rng.column 定位也不对。

XM = sh.Cells(i, 2).Value

XM = sh.Cells(i, rng.column).Value

zjdh · 发表于 2015-3-26 08:48

真会折腾！

合并数据zjdh3.rar (35.44 KB, 下载次数: 27)

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