Excel宏突出显示与当前单元格中的值匹配的所有单元格

Question

我正在寻找一个宏，如果这些单元格的值与当前选定的单元格相同，它将自动突出显示当前工作表中的任何单元格。因此，如果当前选择了单元格 B3，并且它包含值 3，则所有其他值为 3 的单元格将突出显示。

有任何想法吗？

Answer 1

@Reafidy 提供了一个很好的宏，这对条件格式也是如此

Sub HighLightCells()
ActiveSheet.UsedRange.Cells.FormatConditions.Delete
ActiveSheet.UsedRange.Cells.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
    Formula1:=ActiveCell
ActiveSheet.UsedRange.Cells.FormatConditions(1).Interior.ColorIndex = 4
End Sub

把它放在工作表选择更改事件中

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 call HighLightCells
End Sub