[[20140821103747]]　『行の削除について(VBA)』（church）　ページの最後に飛ぶ

『行の削除について(VBA)』（church）

まだまだマクロ初心者です。

最終列に合計額の数式が入っている表があります。
その合計額がゼロであれば、行全体を削除する
マクロを作ろうとしています。

2000行くらいの表なのですが、
3回実行してようやく合計額がゼロの行が
削除されます。

表の行列とも変動するため、
以下のような式にしています。
1回の実行で完結する方法を教えてください。
よろしくお願いします。

Dim k As Long, j As Long, mrow As Long

    j = Range("xfd3").End(xlToLeft).Column
    k = Range("c1048576").End(xlUp).Row

    Application.ScreenUpdating = False

    For mrow = 4 To k

    If Cells(mrow, j).Value = 0 Then
    Cells(mrow, j).EntireRow.Delete

    End If
    Next

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

    For mrow = 4 To k
 を
    For mrow = k To 4 Step -1
 に変えてみてください。

 行・列の削除は後ろから。
（Mook） 2014/08/21(木) 10:52

Mook様

できました。
行・列の削除は後ろから・・ですね。
ありがとうございました。
（church） 2014/08/21(木) 11:42

コメント返信：