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

看板Office作者 (踢屁屁)時間6年前 (2017/11/19 16:58), 6年前編輯推噓0(0推 0噓 8→)
留言8則, 1人參與, 6年前最新討論串1/1
軟體: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
→
11/19 19:07, 6年前 , 1F
測試，問題1、2可以range.autofilter篩選qa、qb開頭
11/19 19:07, 1F
→
11/19 19:08, 6年前 , 2F
worksheets.autofilter.range.specialcells可見儲存格來
11/19 19:08, 2F
→
11/19 19:09, 6年前 , 3F
取得篩選範圍，迴圈range.areas於上述取得個別範圍
11/19 19:09, 3F
→
11/19 19:09, 6年前 , 4F
range.sort排序，如以原文的排序規序的話可自訂清單
11/19 19:09, 4F
→
11/19 19:09, 6年前 , 5F
application.addcustomlist，刪除以deletecustomist
11/19 19:09, 5F
→
11/19 19:09, 6年前 , 6F
range.sort的ordercustom要取得自訂清單序列值的話
11/19 19:09, 6F
→
11/19 19:10, 6年前 , 7F
以application.customlistcount
11/19 19:10, 7F
→
11/19 19:10, 6年前 , 8F
問題3，可以篩選刪除或以迴圈(反序，由下而上)判斷刪除
11/19 19:10, 8F
感謝大大回覆 因為本來對VBA很陌生 目前還只會錄製 或看著現成的程式碼試著修改 看了大大回覆的內容還是寫不出來 可否請大大提供程式碼 感恩OTZ ※ 編輯: BanPeeBan (123.110.58.125), 11/19/2017 22:19:59
‣ 更多 BanPeeBan 的文章
文章代碼(AID): #1Q4KVEuI (Office)