Sub delete()
Dim wrk As String
wrk = InputBox("文字列を入力してください")
With Range("A1")
.AutoFilter
.AutoFilter field:=1, Criteria1:=wrk
.CurrentRegion.Offset(1, 0).EntireRow.delete
.AutoFilter
End With
End Sub
InputBoxに入力された文字列でフィルターをかけて対象行を削除する。
Sub delete()
Dim wrk As String
wrk = InputBox("文字列を入力してください")
With Range("A1")
.AutoFilter
.AutoFilter field:=1, Criteria1:=wrk
.CurrentRegion.Offset(1, 0).EntireRow.delete
.AutoFilter
End With
End Sub
InputBoxに入力された文字列でフィルターをかけて対象行を削除する。