請問Excel VBA 如何把空白儲存格往上填滿

如範例所示

stweb.cgu.edu.tw/~m9440406/xls/upup.xls

請問Excel VBA 如何把空白儲存格往上填滿?

也就是讓同一行的有內容的儲存格 向上補滿

謝謝

已更新項目:

延伸問題

原本要用進階篩選來處理

但只對 紅字1與 紅字2 這兩行有效

其它的好像沒有效果

怎麼會這樣?

謝謝

2 個已更新項目:

請 Kubi ( 研究生 3 級 ) 大大

po為正解

謝謝

1 個解答

評分
  • Kubi
    Lv 5
    8 年前
    最佳解答

    試看看。

    http://ge.tt/9UNeNiO/v/0

    2012-10-02 13:09:00 補充:

    另解:

    ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

    [A1].Select

    2012-10-12 15:23:43 補充:

    ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

還有問題?馬上發問,尋求解答。