作者BanPeeBan (踢屁屁)
看板Office
标题[算表] excel 2003 重新排序VBA 写法
时间Sun Nov 19 16:58:52 2017
软体: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. 除了第一组外蓝色列整列删除
想请问这样可以写成一个巨集吗?该怎麽写@@?
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.110.58.125
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1511081934.A.E12.html
1F：→ soyoso: 测试，问题1、2可以range.autofilter筛选qa、qb开头 11/19 19:07
2F：→ soyoso: worksheets.autofilter.range.specialcells可见储存格来 11/19 19:08
3F：→ soyoso: 取得筛选范围，回圈range.areas於上述取得个别范围 11/19 19:09
4F：→ soyoso: range.sort排序，如以原文的排序规序的话可自订清单 11/19 19:09
5F：→ soyoso: application.addcustomlist，删除以deletecustomist 11/19 19:09
6F：→ soyoso: range.sort的ordercustom要取得自订清单序列值的话 11/19 19:09
7F：→ soyoso: 以application.customlistcount 11/19 19:10
8F：→ soyoso: 问题3，可以筛选删除或以回圈(反序，由下而上)判断删除 11/19 19:10
感谢大大回覆
因为本来对VBA很陌生 目前还只会录制 或看着现成的程式码试着修改
看了大大回覆的内容还是写不出来
可否请大大提供程式码 感恩OTZ
※ 编辑: BanPeeBan (123.110.58.125), 11/19/2017 22:19:59