エクセルで任意の文字列の入った行を削除する

条件に合致した行を削除するマクロ
A列にmdiという文字列を含んだ場合にはその行を削除する

Sub 条件に一致した行を削除する()
Dim i As Long

For i = Range(“A1”).End(xlDown).Row To 2 Step -1
With Cells(i, “A”)

If _
.Value Like “*mdi*” Then

.EntireRow.Delete

End If

End With
Next i

End Sub



 ホーム日常 未分類