作者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/m.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