[算表] excel 2003 重新排序VBA 写法

楼主: BanPeeBan (踢屁屁)   2017-11-19 16:58:52
软件:excel
版本:2003
问题:
有一份格式如下的文件
https://imgur.com/nqi2dlj
格式解说
1. 蓝色列为title列 每隔几行就会出现 全部都一样
蓝色到下一个蓝色之间我们姑且称之为"一个群组"
(1~14列为第一群组;15~27为第二群组)
2. 黄色列(qa开头) 在每个群组的列数不一 导致每个群组的总列数也不一
3. 绿色列(qb开头) 在每个群组的列数相同
p.s. 颜色皆是为了解说而涂上 资料本身并没有
想用宏输出成以下的样子
https://imgur.com/mrwsOFv
说明
1. 各群组黄色列按照m4 m2 00 02 04 06重新排列,有些群组没有m4 甚至06
2. 各群组绿色列按照mk m8 m6 m4 m2 00 02重新排列
3. 除了第一组外蓝色列整列删除
想请问这样可以写成一个宏吗?该怎么写@@?
作者: soyoso (我是耀宗)   2017-11-19 19:07:00
测试,问题1、2可以range.autofilter筛选qa、qb开头worksheets.autofilter.range.specialcells可见储存格来取得筛选范围,循环range.areas于上述取得个别范围range.sort排序,如以原文的排序规序的话可自订清单application.addcustomlist,删除以deletecustomistrange.sort的ordercustom要取得自订清单序列值的话以application.customlistcount问题3,可以筛选删除或以循环(反序,由下而上)判断删除

Links booklink

Contact Us: admin [ a t ] ucptt.com