excel - Excel：一致する値があれば行全体を削除します（添付のimg）

Question

スクリーンショット: http://i.imgur.com/hziit.jpg

上の画像では、「ratings_users」という値を持つすべての行をターゲットにしようとしています。この値に一致するすべての行について、行全体を削除したいだけです。どうすればこれを行うことができますか？

Answer 1

次のようなマクロを使用できます。

Sub DeleteRatingsUsers()

maxRow = ActiveSheet.UsedRange.Rows.Count

For i = 1 To maxRow
    If (StrComp(ActiveSheet.Cells(i, 2).Text, "ratings_users", vbTextCompare) = 0) Then
        Rows(i).Select
        Selection.Delete Shift:=xlUp
    End If
Next

End Sub