Excel VBA：调整宏为按带公式的P列判断匹配值删行的求助

核心改动说明 #

你只需要对原逻辑做针对性修改，就能适配现在的需求：

• 原代码中用A列定位最后一行的逻辑可以直接保留（你明确提到A列非空，用A列定位数据最后一行的准确度足够）
• 将原判断A列值的逻辑，替换为判断P列（即工作表第16列）的单元格值

必须提前修正的公式bug #

你当前P列的内置公式存在逻辑问题，直接用VBA判断是永远匹配不到"x"值的：

原公式 =WENN($F6="next";"x";"")+1 的计算结果完全不符合预期：

1. 当F6值等于"next"时，公式返回文本"x"后再做+1运算，Excel会直接抛出#VALUE!类型错误
2. 当F6值不等于"next"时，公式返回空文本后做+1运算，最终结果为数值1
   要实现F列值为"next"时P列返回"x"、其他情况返回空的效果，需要把公式修正为=WENN($F6="next";"x";"")；如果需要保留数值计算逻辑，要对应调整公式返回值，保证匹配场景下单元格值确实等于"x"。

修改完成后的完整代码 #

Private Sub CommandButton3_Click()
    ' 定位A列最后一个非空单元格的行号（去掉原逻辑中冗余的Rows引用）
    lz = Cells(Rows.Count, 1).End(xlUp).Row
    ' 反向遍历行，避免删除操作导致行号错位漏检
    For t = lz To 2 Step -1 
        ' 替换为判断P列（第16列）的单元格值为"x"
        If Cells(t, 16).Value = "x" Then
            Rows(t).Delete Shift:=xlUp
        End If
    Next t
End Sub

容易踩的细节坑 #

• 原代码里End(xlUp).Rows.Row属于冗余写法，直接读取.Row属性就能拿到正确的行号，还能减少不必要的对象调用开销
• P列是公式单元格时，直接读取.Value属性就能获取公式计算后的最终结果，不需要额外设置计算规则
• 如果修正公式后，P列的返回值和"x"存在差异（比如大小写不同、带前后空格），要对应调整If分支里的匹配判断值，避免匹配失效

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