快速选中所有相同内容的单元格

最新推荐文章于 2025-12-23 19:24:37 发布

转载最新推荐文章于 2025-12-23 19:24:37 发布 · 1.3k 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：https://zhuanlan.zhihu.com/p/61886749

excel VBA 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种使用VBA在Excel中快速选中并着色所有包含相同内容单元格的方法。通过监听单元格选择变化并在整个工作表中查找匹配项，此技巧能够高效地高亮显示重复数据。

快速选中所有相同内容的单元格

转自：https://zhuanlan.zhihu.com/p/61886749

我们利用SelectionChange时间，当我们选择单元格发生改变时，调用VBA自带的Find方法，去单元格区域是，查找相同的内容，并着色

'********************************************
'--功能:批量选中所有相同的单元格
'--日期:2019-4-9
'--作者:Excel办公实战-小易
'********************************************
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim firstRng As Range, firstAddress As String
    Dim resultRng As Range
    If Target.Cells.Count <> 1 Then
        Exit Sub
    End If
    
    With Range("A1").CurrentRegion
        .Interior.Color = xlNone
        Set firstRng = .Find(what:=Target.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not firstRng Is Nothing Then
            firstAddress = firstRng.Address
            Set resultRng = firstRng
            Do
                Set firstRng = .FindNext(firstRng)
                Set resultRng = Union(firstRng, resultRng)
            Loop While Not firstRng Is Nothing And firstAddress <> firstRng.Address
        End If
        If resultRng Is Nothing Then Exit Sub
        With resultRng
            .Interior.ColorIndex = 6
            .Select
        End With
    End With
End Sub

发布于 2019-04-09