如何一键筛选出工作薄中的所有重复数据，并把重重复数据都展示在sheet1工作表

十五的星星

筛选出重复数据到sheet1.zip (27.86 KB, 下载次数: 13)

2022-11-21 09:17 上传

点击文件名下载附件

详情见附件

蓝桥玄霜

重复的例子：

3190496160

Sub 统计()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long, r As Long, rs As Long
Dim br()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ReDim br(1 To 10000, 1 To 3)
For Each sh In Sheets
    If sh.Index > 1 Then
        ar = sh.[a1].CurrentRegion
        For i = 2 To UBound(ar)
            For j = 1 To UBound(ar, 2)
                If Trim(ar(i, j)) <> "" Then
                    t = d(Trim(ar(i, j)))
                    If t = "" Then
                        k = k + 1
                        d(Trim(ar(i, j))) = k
                        t = k
                        br(k, 1) = ar(i, j)
                        br(k, 2) = sh.Name & "!" & sh.Cells(i, j).Address(0, 0)
                    End If
                    br(t, 3) = br(t, 3) + 1
                End If
            Next j
        Next i
    End If
Next sh
With Sheet1
    .[a1].CurrentRegion.Offset(1).Clear
    n = 1
    For i = 1 To k
        If br(i, 3) > 1 Then
            n = n + 1
            For j = 1 To 3
                .Cells(n, j) = br(i, j)
            Next j
            .Hyperlinks.Add anchor:=.Cells(n, 2), Address:="", SubAddress:=br(n, 2), TextToDisplay:=br(n, 2)
        End If
    Next i
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

筛选出重复文本到sheet1.rar (36.38 KB, 下载次数: 20)

2022-11-21 11:47 上传

点击文件名下载附件

十五的星星

你好，谢谢。我刚试了下，还是只能统计出次数。地址连接是错误的

125675117

关注，我也想要这个功能

十五的星星

3190496160 发表于 2022-11-21 11:47

你好，谢谢。我刚试了下，还是只能统计出次数。

比如伍学真出现了4次，目前是虽然累计重复了4次是出来了，但是地址却只有1个。  而且地址还是错误的

3190496160

你可以看看你在一楼上传的附件中B列的情况就知道，为什么别人都是这样写代码了，
论坛是做义务的，没有人有多少耐性在一个问题上反复折腾的，所以，一开始就要把自己的真实意图表述清楚

十五的星星

3190496160 发表于 2022-11-22 17:37
你可以看看你在一楼上传的附件中B列的情况就知道，为什么别人都是这样写代码了，
论坛是做义务的，没有 ...

是我开始没有表达清楚，还是谢谢你。

十五的星星

3190496160 发表于 2022-11-22 17:37
你可以看看你在一楼上传的附件中B列的情况就知道，为什么别人都是这样写代码了，
论坛是做义务的，没有 ...

我的意思是你的代码再修改一下就完美了。