Excel中Header1与Header3两列条件过滤实现方案问询 支持VBA/macro

适用规则说明 #

完全匹配需求过滤逻辑：

• 仅处理Header3列两个标记为x的行之间的区间
• 区间内Header1列存在Yes值时，保留该区间内所有Header1为Yes的对应行
• 区间内Header1列全为No时，不展示该区间任何行
• 结果默认写入Header4列

前置配置 #

默认表格第1行为表头，数据从第2行开始，列对应关系如下，若你的表格列位置不同，可修改代码开头的列号常量：

• Header1=A列
• Header3=C列
• Header4（结果列）=D列

VBA代码 #

Sub FilterByRule()
    Const HEADER1_COL As Integer = 1 ' 可根据实际列位置修改
    Const HEADER3_COL As Integer = 3 ' 可根据实际列位置修改
    Const RESULT_COL As Integer = 4 ' 可根据实际列位置修改
    Dim lastRow As Long
    Dim xRows() As Long
    Dim i As Long, j As Long
    Dim hasYes As Boolean
    
    ' 获取最后一行数据行号
    lastRow = Cells(Rows.Count, HEADER1_COL).End(xlUp).Row
    ' 清空结果列原有内容
    Range(Cells(2, RESULT_COL), Cells(lastRow, RESULT_COL)).ClearContents
    ' 收集所有Header3为x的行号
    ReDim xRows(0 To 0)
    For i = 2 To lastRow
        If LCase(Cells(i, HEADER3_COL).Value) = "x" Then
            xRows(UBound(xRows)) = i
            ReDim Preserve xRows(0 To UBound(xRows) + 1)
        End If
    Next i
    ' 去除最后一个空数组元素
    If UBound(xRows) > 0 Then ReDim Preserve xRows(0 To UBound(xRows) - 1)
    
    ' 遍历每两个相邻x的区间
    For i = 0 To UBound(xRows) - 1
        Dim startRow As Long, endRow As Long
        startRow = xRows(i) + 1
        endRow = xRows(i + 1) - 1
        If startRow > endRow Then GoTo NextInterval ' 两个x相邻无中间行，直接跳过
        
        ' 检查区间内是否存在Yes
        hasYes = False
        For j = startRow To endRow
            If Cells(j, HEADER1_COL).Value = "Yes" Then
                hasYes = True
                Exit For
            End If
        Next j
        
        ' 存在Yes则填充对应行结果列
        If hasYes Then
            For j = startRow To endRow
                If Cells(j, HEADER1_COL).Value = "Yes" Then
                    Cells(j, RESULT_COL).Value = "x"
                End If
            Next j
            ' 保留区间两端的x行标记
            Cells(xRows(i), RESULT_COL).Value = "x"
            Cells(xRows(i + 1), RESULT_COL).Value = "x"
        End If
NextInterval:
    Next i
End Sub

运行步骤 #

• 打开目标Excel文件，按下Alt + F11调出VBA编辑器
• 在左侧项目资源管理器中右键点击你的工作簿名称，依次选择「插入」→「模块」
• 将上述代码粘贴到弹出的模块编辑窗口中
• 按下F5直接运行，即可在指定的结果列得到所需输出

内容的提问来源于stack exchange，提问作者himmat