鲎鱼的吃法:同值单元格都变底色--vba

来源:百度文库 编辑:偶看新闻 时间:2024/03/28 17:53:42
同值单元格都变底色--vba

杨影枫(330777096) 14:41:33
请教个问题哦
杨影枫(330777096) 14:41:49
在表中,有很多相同内容的单元格,我任意选中一个,可以实现与我选中单元格中内容相同的其他单元格都变红

 

解决代码:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
     i = Target.Cells.Formula
     Cells.Interior.ColorIndex = 0
          If i <> "" Then
                 Dim kk As Range
                 For Each kk In ActiveSheet.UsedRange
                         If kk.Formula = i Then
                             kk.Interior.ColorIndex = 7
                         End If
                   Next
            End If
End Sub