範囲指定した行を削除

Question

vbaでA列に値がない行全体を削除したいのですが、
以下コードが反応していないことがわかりました。
※反応しなかったコードだけ抜粋してます。

私の認識では、以下コードで1～2行目は削除の対象外としているはずです。

 Dim i As Long
 Dim lastRow As Long
 
 lastRow = ws1.Cells(Rows.Count, 1).End(xlUp).Row
 
 For i = 3 To lastRow
  If Cells(i, 1).Value = "" Then
     Range(Cells(i, 1) & i).EntireRow.Delete
  End If
 Next i

Comments

[momon-ga]

反応しないとは、どのような状態のことでしょうか？
ご提示のコードでは”連続する空白”を削除しないと思いますが、そのことでしょうか？

[VBA_Beginner_yu]

"連続する空白"を削除しないになってるんですね・・・

A列、C列に連続して値が入っていて、A列に値がなくなった（空白になった）場合に、値がなくなった行以降削除する、というコードにしたつもりでした・・・

もう少し考えます。。

[hatena19]

実行前ののシートのデータ例、
実行後の期待する結果と現状の結果を
表形式で書くか、スクリーンショット画像をアップロードしてもらうと誤解なく伝わると思います。

Answer 1

まずは、提示のコードでは下記でエラーになり実行できませんね。

  If Cells(i, 1).Value = "" Then
     Range(Cells(i, 1) & i).EntireRow.Delete '←この行で"Rangeメソッドは失敗しました"エラー
  End If

あと対象シートは省略しないようにしましょう。

  If ws1.Cells(i, 1).Value = "" Then
     ws1.Cells(i, 1).EntireRow.Delete
  End If

とりあえずこれを修正してから、やりたいことをもう少し具体的に説明してください。

範囲指定した行を削除

　

vbaでA列に値がない行全体を削除したいのですが、

　

A列、C列に連続して値が入っていて、A列に値がなくなった（空白になった）場合に、値がなくなった行以降削除する

タイトル、質問、修正依頼へのコメント で３つの命題がありますが、言葉通りに解釈するとそれぞれ意味が異なりますよね。実際にやりたいことはなんでしょうか。

A列、C列に連続して値が入っていて、A列の途中の行の値を削除したときに、その行から下の行をすべて削除したいということでしょうか。

それとも、A列に値がない行のみを削除したいということでしょうか。

元データ

タイトル
サブタイトル
項目1	項目2	項目3
1		a
2		b
		c
		d
5		e
6		f

実行後のデータ

理想1

タイトル
サブタイトル
項目1	項目2	項目3
1		a
2		b
5		e
6		f

理想2

タイトル
サブタイトル
項目1	項目2	項目3
1		a
2		b

やりたいことは「理想1」「理想2」のどちらでしょうか。あるいは上記以外でしょうか。
その場合は、上記のように表形式で提示するか、スクリーンショットをアップロードしてください。

Answer 2

提示のコードでは、

例えば、5行目が空白だった
↓
削除
↓
元の6行目が5行目、7行目が6行目に移動
↓
6行目を削除

というような流れになるので、
元の6行目のデータが残ってしまいます。

一般的に行の削除・挿入は、
下から処理していくのが定石となっています。
下から処理していけば、次移行を処理するときに
上方向は削除・挿入の影響を受けませんので、
処理の漏れがなくなります。

また、空白セルはジャンプの機能で一括で検索可能となっています。
そちらの機能を使うと、vbaでマクロのループを書かなくて良くなります。

が、1,2行目が空白でないということであれば、
操作対象から外す工夫が必要ですし、
逆に検索対象（空白セル）がない場合はエラーになりますので、
エラーの回避対策も必要になります。

まずは手動での操作の確認と、その操作をマクロの記録機能でvbaのコードに翻訳してもらい、
コードを探ってみてください。
その後がうまく処理できなければ続きで聞いてください。

Answer 3

A列、C列に連続して値が入っていて、A列に値がなくなった（空白になった）場合に、値がなくなった行以降削除する、というコードにしたつもりでした・・・

lastRow = ws1.Cells(Rows.Count, 1).End(xlUp).Row
lastRowに A列の最終行を取得

For i = 3 To lastRow
3行目からlastRow(A列の最終行)までループ
・・・ということはA列にデータがある3行目からA列の最終行までループしている。

よって
If Cells(i, 1).Value = "" Then
この条件は常にFalseになるので

Range(Cells(i, 1) & i).EntireRow.Delete
が実行されることはありません。(Rangeの引数がおかしいのは置いておく。。。)

lastRowの次の行以降を削除する必要があります。

    Dim lastRow As Long
    Dim ws1 As Worksheet
    
    Set ws1 = ActiveSheet
    
    With ws1
        ' A列の最終行取得
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        
        If (lastRow + 1) >= 3 Then
            ' A列の最終行の次の行以降を削除
            .Range((lastRow + 1) & ":" & .Rows.Count).Delete
        End If
    End With
    
    Set ws1 = Nothing

Comments

[VBA_Beginner_yu]

コメントありがとうございます。
ご丁寧に説明付きで助かりました。

3行目から最終行までをループしているということだったんですね。。。

範囲指定も奥が深いですね・・・

[Y.H.]

ソースコードにコメント入れてられないようですが、
コメントを記述することをお勧めします。
やりたいことと、やっていること（コード）の違いに気づきやすくなります。