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

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

有任何想法吗？

Answer 1

@Reafidy提供了一个很好的macros，这将与条件格式相同

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 

把它放在表单select更改事件中

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

Answer 2

使用条件格式。

如果你确实需要一个macros，那么：

 Sub HighlightCells() Dim rCell As Range If ActiveCell.Value = vbNullString Then Exit Sub Set rCell = ActiveCell Do Set rCell = ActiveSheet.UsedRange.Cells.Find(ActiveCell.Value, rCell) If rCell.Address <> ActiveCell.Address Then rCell.Interior.Color = 65535 Else Exit Do End If Loop End Sub