嘿，我来帮你搞定这个需求！你的核心问题是要对比相邻列的动态值来删除整行，而不是原来的固定值判断对吧？原来的自动筛选方法不太适合直接处理这种两列对比的场景，咱们换个更可靠的思路——反向遍历行来判断删除，这样就不会因为行号变动漏删数据了。

修改后的VBA代码 #

下面是针对你需求写的代码，注释已经标清楚每一步的作用：

Sub DeleteRowsWhereJGreaterThanK()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置目标工作表，替换成你的实际表名
    Set ws = ThisWorkbook.Worksheets("Data Set")
    
    ' 关闭屏幕更新和系统警告，提升运行速度并避免弹窗干扰
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 获取J列最后一行的行号，自动适配数据长度（不用硬写143691这种固定值）
    lastRow = ws.Cells(ws.Rows.Count, "J").End(xlUp).Row
    
    ' 从最后一行向上遍历（关键！如果从上往下删，删除行后后续行号会错乱，导致漏删）
    For i = lastRow To 2 Step -1 ' 假设第1行是表头，从第2行开始检查数据
        ' 判断当前行J列的值是否大于K列的值
        If ws.Cells(i, "J").Value > ws.Cells(i, "K").Value Then
            ws.Rows(i).Delete ' 满足条件则删除整行
        End If
    Next i
    
    ' 恢复屏幕更新和系统警告
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    MsgBox "已完成符合条件的行删除！", vbInformation
End Sub

关键逻辑说明 #

• 反向遍历：这是处理行删除的核心技巧。如果从第一行开始向下遍历，删除一行后，下面的所有行会自动上移一位，导致下一个循环会跳过原本的下一行；而从最后一行往上遍历就不会有这个问题。
• 自适应最后一行：用ws.Cells(ws.Rows.Count, "J").End(xlUp).Row自动获取J列的最后一行数据，不用手动写死行号，以后数据增减都不用改代码。
• 关闭屏幕更新：对于你这种14万行的大数据量，关闭屏幕更新能大幅提升代码运行速度，避免Excel频繁刷新界面卡顿。

和你原有代码的区别 #

你原来的代码用了AutoFilter，这种方法适合单列和固定值的筛选删除，但要处理两列对比的条件，需要先插入辅助列写公式判断，再筛选辅助列的值，反而不如直接遍历直观可靠，尤其是大数据量下，两种方法的效率差异不大，但遍历的逻辑更清晰。

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