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 

Answer 2

使用條件格式。

如果你真的需要那麼宏：

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