Question

EXCEL表中怎样用宏来删除符合条件的行

一个工作表有多行多列，能否用宏删除B列中所有等于单元格A1的行。比如A1="男" ，B列中有很多单元格数值也是"男"，现要求用宏将B列中含“男”的记录行整行删除。

Answer 1

把这个代码放工作表里，执行试试

Sub test()
 Dim str$
 str = Range("a1")
 For i = Range("b65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 2) = str Then
        Rows(i).Delete
    End If
Next i
End Sub