vba在第六列篩選出PC的内容，再在第7列篩選出是D的内容

你好，根据你的描述，可以使用VBA中的AutoFilter方法来实现筛选出第六列中内容为"PC"，第七列中内容为"D"的数据。

可以参考以下代码：

Sub FilterData()
    ' 定义变量
    Dim ws As Worksheet
    Dim lastRow As Long
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 开始筛选
    With ws.Range("A1:G" & lastRow)
        .AutoFilter Field:=6, Criteria1:="PC"
        .AutoFilter Field:=7, Criteria1:="D"
    End With
End Sub

这段代码会在第一个工作表中，将第六列中内容为"PC"，第七列中内容为"D"的数据筛选出来，其他数据会被隐藏。

希望能对你有所帮助。

相关问题

VBA在O列篩選出是空白單元格的内容

要在VBA中筛选出O列为空白单元格的内容，您可以使用AutoFilter功能来实现。

以下是一个示例的VBA代码，演示如何筛选出O列为空白单元格的内容：

Sub FilterEmptyCells()
    ' 定义变量
    Dim lastRow As Long
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, "O").End(xlUp).Row
    
    ' 开启AutoFilter
    Range("O1:O" & lastRow).AutoFilter Field:=1, Criteria1:=""
    
    ' 复制筛选结果到新的区域
    Range("A1:O" & lastRow).SpecialCells(xlCellTypeVisible).Copy Range("Q1")
    
    ' 关闭AutoFilter
    ActiveSheet.AutoFilterMode = False
End Sub

请将上述代码复制到VBA编辑器中的模块中，并在您的工作表中运行该宏。它将对O列进行筛选，找出空白单元格的内容，并将筛选结果复制到新的区域（这里是从列A到列O，行数与筛选结果相同），结果将放置在列Q。

请注意，上述代码假设您要处理的工作表是活动工作表。如果要处理其他工作表，请在代码中指定工作表名称或索引。

另外，请确保您在运行宏之前备份您的工作表，以免意外情况导致数据丢失。

VBA在O列篩選出不是有到和異常的内容

您可以使用VBA中的AutoFilter功能来筛选出O中不包含"有到"和"异常内容的数据。以下是一个示例代码：

vba
Sub FilterData()
Dim ws As Worksheet
Dim rng As Range

' 设置要筛选的工作表和范围
Set ws = ThisWorkbook.Worksheets("Sheet1") ' 修改为实际的工作表名称
Set rng = ws.Range("O1:O" & ws.Cells(ws.Rows.Count, "O").End(xlUp).Row)

' 筛选条件
rng.AutoFilter Field:=1, Criteria1:="<>*有到*", Operator:=xlAnd, Criteria2:="<>*异常*"
End Sub

请将`"Sheet1"`替换为实际的工作表名称，将`"O1:O"`替换为要筛选的列范围。

上述代码使用`AutoFilter`方法对指定范围进行筛选。通过设置`Criteria1`为`"<>*有到*"`和`Criteria2`为`"<>*异常*"`，可以筛选出不包含"有到"和"异常"内容的数据。