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

我在这里要做的是，当列“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

你可以尝试这样的事情…

 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 

Answer 2

我略有不同的方法，没有使用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