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

作者: BanPeeBan (踢屁屁)   2017-11-19 16:58:52
軟體:excel
版本:2003
問題:
有一份格式如下的文件

格式解說
1. 藍色列為title列 每隔幾行就會出現 全部都一樣
藍色到下一個藍色之間我們姑且稱之為"一個群組"
(1~14列為第一群組;15~27為第二群組)
2. 黃色列(qa開頭) 在每個群組的列數不一 導致每個群組的總列數也不一
3. 綠色列(qb開頭) 在每個群組的列數相同
p.s. 顏色皆是為了解說而塗上 資料本身並沒有
想用巨集輸出成以下的樣子

說明
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