我来帮你修正这个VBA宏，先说说你原来代码里的几个核心问题：

• F列条件判断错误：你写的Columns("$F") = "X"是把整个F列和"X"做比较，这显然不对，我们需要判断的是当前单元格所在行的F列单元格是否包含"X"。
• 高亮条件不符需求：你原本的条件是cell.Value <> ""，但需求是高亮值大于0的单元格，而且没处理非数值单元格的情况。
• 变量命名混淆：把整个区域赋值给iRow（名字暗示是行，但实际是区域），容易造成逻辑混乱。

下面是修正后的完整代码，完全符合你的需求：

Sub HighlightTargetCells()
    Dim ws As Worksheet
    Dim targetRange As Range
    Dim currentCell As Range
    
    ' 关闭屏幕更新，提升大区域操作的运行速度
    Application.ScreenUpdating = False
    
    ' 指定要操作的工作表，这里用当前激活表，也可以改成具体表名比如ThisWorkbook.Sheets("Data")
    Set ws = ActiveSheet
    ' 定义要处理的区域：F2到BQ3000
    Set targetRange = ws.Range("F2:BQ3000")
    
    ' 先清除区域内原有背景色，避免重复运行宏时颜色叠加
    targetRange.Interior.ColorIndex = xlColorIndexNone
    
    ' 遍历区域内的每个单元格
    For Each currentCell In targetRange
        ' 两个核心条件：
        ' 1. 当前行的F列单元格文本包含"X"（vbTextCompare表示不区分大小写）
        ' 2. 当前单元格是数值且值大于0
        If InStr(1, ws.Cells(currentCell.Row, "F").Value, "X", vbTextCompare) > 0 And _
           IsNumeric(currentCell.Value) And currentCell.Value > 0 Then
            ' 设置高亮背景色（你原来用的粉色）
            currentCell.Interior.Color = RGB(255, 105, 108)
        End If
    Next currentCell
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

代码关键点解释： #

• InStr(1, ws.Cells(currentCell.Row, "F").Value, "X", vbTextCompare)：用InStr函数检测F列单元格是否包含"X"，vbTextCompare参数让检测不区分大小写（如果需要区分，换成vbBinaryCompare或者去掉这个参数）。
• IsNumeric(currentCell.Value)：先判断单元格是否为数值，避免文本单元格和0比较时触发错误。
• Application.ScreenUpdating = False/True：关闭屏幕刷新能大幅提升3000行大区域的运行速度，避免界面闪烁。

如果你需要固定操作某个工作表，把Set ws = ActiveSheet改成Set ws = ThisWorkbook.Sheets("你的工作表名称")即可，这样更稳妥，不会因为切换工作表而出错。

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