VBA【空白行・特定の文字を含む行を削除する方法】

Question

空白行・特定の文字を含む行を削除する方法を教えていただきたいです。

――――――――――――――――――――――――――――――――――――――――
■ 概要 （添付画像を参照しながらご確認ください）
――――――――――――――――――――――――――――――――――――――――

A列に、空白を含む文字列が並んでおり、

A5から、A列最終行までの範囲内にある

「空白」と「特定の文字（ここでは"あ"とします）」を削除したい

という要望です。

※どちらも「行ごと」削除したいです。
※空白と文字列の削除を同時に実行したいです。
※削除する文字列は常に固定されているので、inputboxなどによる削除したい文字列の入力のフローは不要です。

以上、どうぞよろしくお願いいたします。

Answer 1

A列の最終行位置を把握した後で、最終行から次の処理を繰り返することで簡単に処理することができます。

処理するシートをsheetとして、Rows.CountとEnd(xlUp)を使って、最下行「r」を取得します。なお、sheetは、ブック内ののシートを示すデータ構造でありシート名を"Sheet1"とした場合には、「Set sheet = Worksheets("Sheet1")」で設定することができます。

r = sheet.Cells(sheet.Rows.Count, 1).End(xlUp).Row

次に最終行から以下の処理を行います。

行(r)のA列セルが「空白」か、「特定の文字」を含んでいるのか調べます。「特定文字をふくんでいるか」では、VBAのInStr関数を使っています。
0 < InStr(sheet.Cells(r, 1).Value, "あ")であれば、r行A列のセルに"あ"が含まれていればその位置を示しますので0以上であれば、"あ"を含んでいることになります。

そこで、行削除を行うことになりますが、

sheet.Rows(r).Delete Shift:=xlUp

とすることで、該当行を削除してその行よりあとの部分が上がります。
そこで、rを前の行にして同じ処理を続け、rが5になるまで続けます。

全体とすると次のようなコードとなります。

    Dim sheet As Worksheet
    Dim r As Long
    
    Set sheet = Worksheets("Sheet1")
    r = sheet.Cells(sheet.Rows.Count, 1).End(xlUp).Row
    Do While (5 <= r)
        If sheet.Cells(r, 1).Value = "" Or 0 < InStr(sheet.Cells(r, 1).Value, "あ") Then
            sheet.Rows(r).Delete Shift:=xlUp
        End If
        r = r - 1
    Loop

Comments

[Snpy]

ご丁寧に回答していただきありがとうございました。

非常に参考になる内容でした。

Answer 2

・A5からA列最終行までの範囲から全体行数を取得する
・A5セルから行方向へ順番に処理する
・セルの文字列を取得する
・「空白」または「特定の文字」が含まれているかチェックする
・「空白」または「特定の文字」が含まれていたらその行を削除する
・削除した場合は行が１行詰まるので全体行数を－１する
・削除した場合は次行が今回行に上がってくるので同じ行をチェックする
・削除しない場合は次の行のチェックに進む
・処理行数が全体行数に達するまで処理を繰り返す

処理はこんな感じだと思います

・全ての行が削除対象だった場合
・全ての行が削除対象にならなかった場合
・処理行が１行も無い場合
などのケースも想定が必要でしょうかね

Comments

[Snpy]

ご回答ありがとうございます。

VBAは初心者レベルなので、実際のコードを書いていただけると嬉しいです！

[takito]

先ずはご自身でどのくらいできるかを提示ください
ひとつひとつの処理は、調べればどういうコードを書けばよいかわかるものばかりです
もし１行も書けないほどの初心者でしたらまだこのサイトを利用するには早いと思います
推奨していない質問　＞　https://teratail.com/help/avoid-asking

[Snpy]

大変失礼いたしました。
私の質問の仕方があいまいでした。

以後ご指摘いただいた点についてはしっかりと配慮しますので、
機会があればまたご回答いただけると嬉しいです。

Answer 3

上から行削除をすると面倒なので、データ最終行から
１行目まで順に見ていく方が楽かと思います。

Public Sub 行削除()
    Dim i As Long
    Dim LastRow As Long
    
    LastRow = Range("A1048576").End(xlUp).Row   'データの最終行を取得
    
    For i = LastRow To 1 Step -1        'データの最終行から１行目までループ
        If Cells(i, "A").Value = "あ" Or Cells(i, "A") = "" Then        '文字列"あ"を削除するのであればこの条件
        'If InStr(Cells(i, "A"), "あ") Or Cells(i, "A") = "" Then            '文字"あ"を含む列を削除したいのであればこの条件
            Cells(i, "A").EntireRow.Delete
        End If
    Next i
End Sub

Comments

[Snpy]

ご回答していただきありがとうございます。

参考にさせていただきます。