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