如何使用VBA在J列为特定值时修改G列单元格文本颜色？

需求说明 #

当Excel表格J列单元格包含特定值/字符串时，修改对应行G列单元格的文本颜色。

原代码问题 #

尝试的代码原本期望修改对应行G:J区域的所有单元格颜色，之后再将H:J列文本改为黑色，但实际仅修改了J列的颜色。原代码如下：

Dim myCell As Range
For Each myCell In Range("G2:J500")
    If myCell.Value = "Necessity-Only" Then
        myCell.Font.Color = RGB(255, 255, 255)
    End If
Next myCell

原代码问题在于：遍历的是G2:J500的每个单元格，仅当单元格自身值等于目标字符串时才修改颜色，因此只有J列中值匹配的单元格会被变色，而非整行对应区域。

解决方案 #

方案一：直接修改对应行G列颜色 #

遍历J列目标范围，匹配值后直接定位对应行的G列单元格修改颜色：

Dim jCell As Range
' 遍历J2至J500的单元格
For Each jCell In Range("J2:J500")
    ' 判断当前J列单元格值是否为目标字符串
    If jCell.Value = "Necessity-Only" Then
        ' Offset(0, -3)表示当前单元格向左偏移3列（J到G）
        jCell.Offset(0, -3).Font.Color = RGB(255, 255, 255)
    End If
Next jCell

方案二：先改整行G:J再还原H:J颜色 #

完全匹配你最初的操作期望：先将对应行G:J设为白色，再把H:J改回黑色：

Dim jCell As Range
For Each jCell In Range("J2:J500")
    If jCell.Value = "Necessity-Only" Then
        ' 修改当前行G到J列的字体颜色为白色
        Range("G" & jCell.Row & ":J" & jCell.Row).Font.Color = RGB(255, 255, 255)
        ' 将当前行H到J列的字体颜色改回黑色
        Range("H" & jCell.Row & ":J" & jCell.Row).Font.Color = RGB(0, 0, 0)
    End If
Next jCell

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