ＥｘｃｅｌＶＢＡを使って、行の削除と削除した行の分だけ残りの行を上につめるプログラムを作りたいのですが...

質問

ＥｘｃｅｌＶＢＡを使って、行の削除と削除した行の分だけ残りの行を上につめるプログラムを作りたいのですが...

例えば、

Ａ　１　○
-------
Ｂ　２　○
-------
Ｃ　３　×
-------
Ｄ　４　○
-------
Ｅ　５　×
-------
Ｆ　６　×

という表があったとして、コマンドボタンをクリックすると×がついている行を削除して、

Ａ　１　○
-------
Ｂ　２　○
-------
Ｄ　４　○
という風に×のあった行をつめるようなプログラムを組みたいです。

私が作ったのはループをまわす中で×を見つけるとその、下の行のセルを各々ひとつ上に上げていくというプログラムです。これだとひとつのセルごとに処理していくのでデータが多いとボタンを押してから処理が終わるまでに時間がかかってしまいます。

行をまとめて消して、その下の行を上に持ち上げる方法だと処理が早くなりそうなのですがそのプログラムがイマイチわかりません。

お分かりになるかたがいらっしゃれば、ご教授お願いします。

回答No.1

himajin555

Sub test()
Range("C1").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
Cells.Find(What:="×", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
True).Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
End Sub