如果单元格包含特定值，则以红色突出显示行到特定列

Question

如果 J 列中的单元格值包含值 427，我有一个小宏以红色突出显示整行。见下文...

Dim lr As Long
lr = Worksheets("owssvr").Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row

         Dim cell As Range  
            For Each cell In Range("J2:J" & lr)
               If cell.Value = 427 Then
               cell.EntireRow.Interior.Color = 255     
    End If

我想做的是修改宏，使其仅以红色突出显示包含数据的行的部分，而不是整行（在此表的情况下，直到列 AF）。 谢谢你。

Answer 1

如果您只想突出显示列A和F之间的行，请尝试-

Sub Highlight()
Dim lr As Long
lr = Worksheets("owssvr").Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row

    Dim cel As Range
    For Each cel In Range("J2:J" & lr)
        If cel.Value = 427 Then
           Range("A" & lr & ":F" & lr).Interior.Color = 255
        End If
    Next
    
End Sub