VBA代码按单元格值删除行异常：<>判断无响应=判断正常

核心问题：正向循环删除行导致索引错乱 #

你的代码用<>时没效果，本质是正向循环删除行的逻辑错误：

• 当你用For d = 6 To lastrow从上往下循环时，删除某一行后，下面的所有行都会自动上移一行，但循环变量d还在继续递增，导致大量行被跳过检查。
• 用=时看似能运行，只是因为匹配的行可能较少，或者刚好没触发严重的跳过逻辑，但实际上这个写法本身就是错误的，只是碰巧有“效果”。
• 另外，代码里依赖Select和ActiveCell是非常糟糕的习惯，不仅运行慢，还容易因为选中状态变化导致逻辑混乱。

修复后的代码 #

改用反向循环（从最后一行往上遍历），同时避免使用Select/ActiveCell，直接通过工作表对象操作单元格：

Dim arcArray As Variant
Dim d As Long ' 用Long代替Integer，避免行号超过Integer上限
Dim targetVal As Variant ' 提前存E1的值，减少单元格读取次数
Dim ws As Worksheet

arcArray = Array("Tanker Offer Data", "Truck Offer Data", "Pipeline Offer Data", "Barge & SDraft Offer Data", "Offeror Max Monthly")

For Each arcSheet In arcArray
    Set ws = ThisWorkbook.Sheets(arcSheet)
    targetVal = ws.Range("E1").Value
    lastrow = ws.Range("B" & ws.Rows.Count).End(xlUp).Row
    
    ' 反向循环：从最后一行往上到第6行
    For d = lastrow To 6 Step -1
        If ws.Range("B" & d).Value <> targetVal Then
            ws.Rows(d).Delete
        End If
    Next d
Next arcSheet

关键优化点 #

• 反向循环：从lastrow到6，每次删除行后，未遍历的行索引不会改变，不会出现跳过的情况
• 避免Select/ActiveCell：直接通过ws对象引用单元格，逻辑更稳定，运行速度更快
• 提前读取目标值：把E1的值存在变量里，避免每次循环都读取单元格，提升效率
• 用Long代替Integer：Excel行号可能超过Integer的最大值（32767），Long支持更大范围

内容的提问来源于stack exchange，提问作者Ryan Data Guy