セルを検索し行を削除する。
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
佐藤と入っているセルだけを削除して上へ詰める。