VBA 連続した空白行を削除したい

Question

連続した空白行を削除したいと考えていますがどのように記述していいかわかりません。
下記内容ですと、空白行をfor文で回して削除する都度、行が繰り上がりになるため連続
しているとしたの行が削除されない状況となってしまいます。

お手数おかけしますがご教授お願いいたします。

該当のソースコード

For j = 2 To count1
  If ws1.Cells(j, 1).Value = "" Then
    ws1.Rows(j).Delete
  End If
Next j

Comments

[hatena19]

連続した空白行を削除とは、
1行だけ空白は削除せずに、2行以上連続している空白行は1行の空白行にするということでしょうか。

Answer 1

削除するなら、後ろから頭の方へ見ていって削除していくようにしましょう

Comments

[退会済みユーザー]

Y_waiwai様
ご返信ありがとうございます。

For j = 7 To 2
If ws1.Cells(j, 1).Value = "" Then
ws1.Rows(j).Delete
End If
Next j

なるほど、と思い上記のようにしましたがいきなりend if となっていまいます。
どのように記述したらよろしいでしょうか？
よろしければ教えてください。

[hatena19]

For j = 7 To 2 Step -1

[退会済みユーザー]

hatena19様

ご返信ありがとうございます。
記述内容にて削除できました。