先选中区域,添加下图所示条件格式. 再右击工作表标签>查看代码>粘贴下面的代码 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.FormatConditions(1).Modify xlCellValue, xlEqual, "=" & ActiveCell.Address End Sub
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Rows.Count + Target.Columns.Count > 2 Then Exit Sub If Len(Target.Value) = 0 Then Exit Sub Dim r As Range With ActiveSheet .UsedRange.Interior.ColorIndex = xlNone For Each r In .UsedRange If r.Value = Target.Value Then r.Interior.Color = vbGreen Next End With End Sub