如何突出显示同一范围内同一行中的选定单元格

Question

我要在这里做的是，只要“ g”列中有一个空单元格，它将在同一行中突出显示E列中的值。 到目前为止，我得到的是，当列“ g”具有空单元格时，它将突出显示整个行。 我还想将突出显示范围设置到最后一行。 我做不到 请帮帮我。

Sub highlightRow(ByVal comp_workbook As Workbook)
comp_workbook.Sheets(1).Select
Dim EmptyCell As Range
Range("G:G").Select
For Each EmptyCell In Selection
    If EmptyCell = "" Then EmptyCell.EntireRow.Interior.ColorIndex = 43
Next EmptyCell
End Sub

Answer 1

我的方法略有不同，没有使用Range或Select 。 我不太明白你想强调什么。 如果您说得更清楚，我可以调整示例...

Sub HighlightCells()
    Dim rowStart As Long
    Dim rowEnd As Long
    Dim colToCheck As String
    Dim colToHighligt As String

    'Change variablesto fit your requirement
    rowStart = 1
    rowEnd = 100
    colToCheck = "G"
    colToHighlight = "E"

    'Highlights cell in column E, if the cell in column G is empty
    For i = rowStart To rowEnd
        If IsEmpty(Cells(i, colToCheck)) Then
                Cells(i, colToHighlight).Interior.ColorIndex = 43
        End If
    Next i

End Sub

Answer 2

您可以尝试这样的事情...

Sub HighlightCells(ByVal comp_workbook As Workbook)
Dim ws As Worksheet
Dim lr As Long
Application.ScreenUpdating = False
Set ws = comp_workbook.Sheets(1)
lr = ws.UsedRange.Rows.Count
With ws.Rows(1)
    .AutoFilter field:=7, Criteria1:=""
    If ws.Range("E1:E" & lr).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
        ws.Range("E2:E" & lr).SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 43
    End If
    .AutoFilter
End With
Application.ScreenUpdating = True
End Sub