excel中与所选定单元格相同值的所有单元格自动变色

必须使用VBA来完成这个操作，如下面这个代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  '定义要显示单元格对象
   Dim rngCollections As Range
  '设定数据区域
   Set rngCollections = Range("a1:g18")
   '把数据区域单元格底色清除
   rngCollections.Interior.ColorIndex = 0
   
   If (Target.Text = "") Then Exit Sub
   
   '为相同数据单元格设置颜色
   If (Target.Row <= rngCollections.Rows.Count And Target.Column <= rngCollections.Columns.Count) Then
       
        For Each Rng In rngCollections
          
              If Rng.Value = Target.Value Then
               Rng.Interior.ColorIndex = 7
              End If
        Next
   
   End If
   
   
End Sub

使用VBA中的SelectionChange事件代码能轻松搞定，建议使用。