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

[BanPeeBan (踢屁屁)]

軟體: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://www.ptt.cc/bbs/Office/M.1511081934.A.E12.html
→ soyoso: 測試，問題1、2可以range.autofilter篩選qa、qb開頭
→ soyoso: worksheets.autofilter.range.specialcells可見儲存格來
→ soyoso: 取得篩選範圍，迴圈range.areas於上述取得個別範圍
→ soyoso: range.sort排序，如以原文的排序規序的話可自訂清單
→ soyoso: application.addcustomlist，刪除以deletecustomist
→ soyoso: range.sort的ordercustom要取得自訂清單序列值的話
→ soyoso: 以application.customlistcount
→ soyoso: 問題3，可以篩選刪除或以迴圈(反序，由下而上)判斷刪除
感謝大大回覆
因為本來對VBA很陌生 目前還只會錄製 或看著現成的程式碼試著修改
看了大大回覆的內容還是寫不出來
可否請大大提供程式碼 感恩OTZ
※ 編輯: BanPeeBan (123.110.58.125), 11/19/2017 22:19:59