検索結果を削除（Findメソッド)

セルを検索し行を削除する。

Sub wrk()

　Dim a As Range
　Set a = Range("A:A").Find(what:="佐藤")

　If a Is Nothing Then
　　MsgBox "見つかりません"
　Else
　　a.EntireRow.Delete
　End If
End Sub

対象セルだけを削除したい場合。

 Sub wrk()

　Dim a As Range
　Set a = Range("A:A").Find(what:="佐藤")

　If a Is Nothing Then
　　MsgBox "見つかりません"
　Else
　　a.Delete Shift:=xlShiftUp
　End If

End Sub

 佐藤と入っているセルだけを削除して上へ詰める。

abv72.hatenablog.com