如果單元格包含特定值，則以紅色突出顯示行到特定列

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