[算表] excel巨集範圍判斷？

[ljuber (美少婦與女兒同學的故事)]

軟體:excel

版本:2007

我有錄製了兩個巨集

1.

    Sheets("a").Select
    Range("4:500").Clear
    Sheets("b").Select
    Range("4:500").Clear
    Sheets("c").Select
    Range("4:500").Clear
    Sheets("d").Select
    Range("4:500").Clear

目的是把a,b,c,d工作表4列以下的資料都clear掉
目前我只會設定到500...

不知道有沒有更簡化的寫法?


2.進階篩選：

 貼上.AdvancedFilter xlFilterCopy, Worksheets("xyz").Range("A28:A36"),
Worksheets("abc").Range("A4")

其準則範圍在xyz工作表的A28到A36

但是資料會一直增加，不知道怎麼設定A28到A36是會隨資料增加而變化？

感謝大大....





--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.192.223.20
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1452061697.A.4C6.html
→ soyoso: 問題2，如要取最後一筆有資料列號或儲存格，可用range.end
→ ljuber: Range("A28").End(xlDown) 是類似這樣嗎？不過我好像這樣
→ ljuber: 會變成把全部資料都篩過來 好怪@@
→ soyoso: 類似range("a28",range("a28").end(xldown))
→ soyoso: 要xldown要留意是否是連續資料，反之用xlup會比較無這問題
→ soyoso: 但用xlup時則由工作表最後一列來向上尋找
→ ljuber: 不過我直接替換那行會傳回錯誤...
→ ljuber: Worksheets("xyz").range("a28",range("a28"),end(xldown)
→ soyoso: 問題1 sheets(array("a","b","c","d")).select
→ soyoso: rows("4:500").select:selection.clear
→ soyoso: range("a28"),end(xldown) 中間不是,逗號
→ ljuber: https://drive.google.com/open?id=0BwCgrQhGgaw7N3l3ZjBJ
→ ljuber: 還是不行 我附上檔案
→ ljuber: http://0rz.tw/tuKWg  這個才對
→ soyoso: http://imgur.com/ze98kZc
→ ljuber: 哇 可以了 感謝大大 這樣又多學一招!