[算表] VBA如何依分类插入空白列

楼主: nash30113 (贱王)   2018-05-18 23:52:01
软件:Excel
版本:2007/2010
我的工作表如下:
日期 客单编号
================
5/18 A
5/18 A
5/18 B
5/18 B
5/18 B
5/18 C ←我想依客单编号后面加入空白列
5/18 C
希望能变成:
日期 客单编号
================
5/18 A
5/18 A
(空白列)
5/18 B
5/18 B
5/18 B
(空白列)
5/18 C
5/18 C
(空白列)
经查网络VBA模组可以让每一列插入空白列
但我需要的是依分类去插入空白
不知道程式码该怎么修改
再请版上大大指导一下
感谢!
档案如下:
https://goo.gl/ihCTvB
作者: newton41 (Newton)   2018-05-19 00:02:00
For rN = endRow to startRow+1 step -1If cells(rN,2)<>cells(rN-1,2) then rows(rN).insertNext大概类似这样,从下面跑回去就比较不会被插入列影响到。你的档案我没看,可以的话贴到文章吧。
作者: soyoso (我是耀宗)   2018-05-19 00:09:00
楼主: nash30113 (贱王)   2018-05-19 00:11:00
感谢S大,原来可以改成这么简洁!!
作者: newton41 (Newton)   2018-05-19 00:12:00
听s大的错不了。
楼主: nash30113 (贱王)   2018-05-19 00:14:00
n大也感谢你的协助!
作者: soyoso (我是耀宗)   2018-05-19 00:39:00
如要以原宏码的逻辑的话https://i.imgur.com/VWaxFtx.png 红线为修改或新增,其他则保留
楼主: nash30113 (贱王)   2018-05-19 12:13:00
非常感谢S大的协助!!

Links booklink

Contact Us: admin [ a t ] ucptt.com