vba筛选出满足条件的行并删除

可以使用VBA中的AutoFilter功能来筛选出满足条件的行，然后再删除这些行。

以下是一个示例代码，假设要删除某个工作表中所有“姓名”列中包含“John”的行：

Sub DeleteRows()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为你要操作的工作表名
    
    '筛选出包含“John”的行
    ws.Range("A1").AutoFilter Field:=1, Criteria1:="*John*"
    
    '删除筛选出的行（注意要从下往上删除）
    Dim i As Long
    For i = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If ws.Cells(i, 1).EntireRow.Hidden = False Then
            ws.Cells(i, 1).EntireRow.Delete
        End If
    Next i
    
    '取消筛选
    ws.AutoFilterMode = False
End Sub

这段代码首先打开名为“Sheet1”的工作表，然后使用AutoFilter筛选出包含“John”的行，接着从下往上遍历所有行，如果该行没有被隐藏（即满足筛选条件），就删除该行。最后取消筛选。你可以根据自己的需求修改代码中的工作表名和筛选条件。

相关问题

vba筛选出满足条件的数据

您可以使用VBA中的AutoFilter方法来筛选出满足条件的数据。以下是一个示例代码，假设您的数据在Sheet1中：

Sub FilterData()
    Dim LastRow As Long
    With Sheets("Sheet1")
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row '找到最后一行
        .Range("A1:D" & LastRow).AutoFilter Field:=1, Criteria1:="条件1" '筛选条件1
        .Range("A1:D" & LastRow).AutoFilter Field:=2, Criteria1:="条件2" '筛选条件2
        .Range("A1:D" & LastRow).AutoFilter Field:=3, Criteria1:="条件3" '筛选条件3
    End With
End Sub

在这个例子中，我们使用了三个筛选条件，分别是在第1列、第2列和第3列。您可以根据您的实际需求更改这些条件。在代码的结尾，您可以添加一些操作来处理筛选出的数据。

vba 按指定列数据筛选，并删除其余行

如果您想使用 VBA 按指定列数据筛选，并删除其余行，您可以使用以下代码示例：

Sub FilterAndDeleteRows()
    Dim filterRange As Range
    Dim lastRow As Long
    Dim filterColumn As Long
    Dim filterValue As String
    
    filterColumn = 3 '要筛选的列的索引，这里是第3列
    filterValue = "Filter Value" '要筛选的值
    
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row '获取最后一行的行号
    
    Set filterRange = Range("A1:C" & lastRow) '筛选范围
    
    filterRange.AutoFilter Field:=filterColumn, Criteria1:=filterValue '按指定列的值筛选
    
    filterRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete '删除除标题行外的可见行
    
    filterRange.AutoFilter '取消筛选
End Sub

您可以将“3”替换为您要筛选的列的索引，将“Filter Value”替换为您要筛选的值，然后运行此代码即可按指定列数据筛选，并删除其余行。注意，这里的代码将删除除标题行外的所有可见行。如果您需要删除所有行，可以使用“filterRange.Delete”替换“filterRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete”。