[[20190306162022]]　『列の文字列を検索して行の削除』（BEN）　ページの最後に飛ぶ

『列の文字列を検索して行の削除』（BEN）

すみません、よろしくお願いします。

・B列に人事という文字が入力されている場合、その行を削除する

これを末尾から最初のデータまで繰り返し行うにはどのように記述すればよろしいでしょうか？

へっぽこにわか知識の為、うまく動作せず困っています。

よろしくお願いしますm(__)m

Sub 人事行削除()

Dim i As Long

For i = Range("B1").End(xlDown).Row To 1 Step -1
With Cells(i, 2)
If _
.Value Like "人事" Then
.EntireRow.Delete
End If
End With
Next i
MsgBox（"処理完了"）
End Sub

＜使用 Excel：Excel2003、使用 OS：unknown ＞

 うまく動作せず困っています。 
 どの様に上手くないのか不明ですが。
 推測するに

 1)
 For i = Range("B" & Rows.Count).End(xlUp).Row To 1 Step -1

 2)
 .Value Like "*人事*" Then 
（seiya） 2019/03/06(水) 17:30

seiya様、助かりましたm(__)m
ありがとうございました！

（BEN） 2019/03/06(水) 17:40

コメント返信：

[ 一覧(最新更新順) ]

[[20190306162022]] 『列の文字列を検索して行の削除』（BEN） ページの最後に飛ぶ

[[20190306162022]]　『列の文字列を検索して行の削除』（BEN）　ページの最後に飛ぶ