去重不干净

xing_chen

老师！有表，需去重，有代码，但不能去除完整，总留几个一样的名称未去重，不知何因。敬请老师赐教

风雨声点滴

Sub 去重()
    With Sheets("名称")
        R = .Cells(.Rows.Count, 1).End(xlUp).Row
        Dim dict As Object
        Set dict = CreateObject("Scripting.Dictionary")

        For i = R To 2 Step -1
            If Not dict.Exists(.Cells(i, 1).Value) Then
                dict.Add .Cells(i, 1).Value, 1
            Else
                .Rows(i).Delete
            End If
        Next i
    End With
End Sub

gwjkkkkk

请参考图示。。。

高个子

这个要倒着删，顺着删会出现你的问题

高个子

字典法供参考。。。

xing_chen

gwjkkkkk 发表于 2023-7-22 19:10
请参考图示。。。

谢谢老师！好像还不行。老师，不过，我现在加了个条件，即右列有代码的不删。倒删遇见问题了，老师可以帮忙

xing_chen

高个子 发表于 2023-7-22 19:20
字典法供参考。。。

谢谢老师！运行如愿。老师，我现在加了个条件，即右列有代码的不删。倒删遇见问题了，老师可以帮忙吗

gwjkkkkk

xing_chen 发表于 2023-7-22 20:07
谢谢老师！好像还不行。老师，不过，我现在加了个条件，即右列有代码的不删。倒删遇见问题了，老师可以帮 ...

请参考。。。

xdychina1

速度很快，赞一个

w4275