More than 3 years have passed since last update.

削除フラグと行の削除

Posted at 2021-04-05

Excel VBA
削除フラグと行の削除


'[削除フラグ]列に"d"と入力された行をすべて削除

Sub DeleteRows()

    '最終行を取得する
    Dim maxRow As Long
    maxRow = Cells(Rows.Count, 1).End(xlUp).Row

    '行を1つずつ見ていく(maxRow→2へ下がっていく)
    Dim i As Long
    For i = maxRow To 2 Step -1
    
        '"d"と書かれているかどうか（判断）
        If Range("G" & i).Value = "d" Then
            
            '行の削除
            Rows(i).Delete
        
        End If
    
    Next i

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up