VBA标记需删除的重复项

童歌

如图，某一列数据，如何用VBA标记需要删除的重复项，只保留第一次出现的数据。求大神帮忙解答
因A列数据每日都要更新，能否判断前先删除B列已判断信息，再重新标记需删除的重复项。

不好意思各位大神，测试过之后都有些问题，重新上传了附件，能否在AC进行判断，还依然保留其他列的公式，格式等各种信息呢

不知道为什么

供参考。。。。

1. Sub test()
   
2.     Dim arr, dic
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     With Sheet1
   
5.         .UsedRange.Offset(1, 1).ClearContents
   
6.         arr = .[a1].CurrentRegion
   
7.         For i = 2 To UBound(arr)
   
8.             If Not dic.exists(arr(i, 1)) Then
   
9.                 dic(arr(i, 1)) = ""
   
10.             Else
    
11.                 arr(i, 2) = "del"
    
12.             End If
    
13.         Next i
    
14.         .[a1].CurrentRegion = arr
    
15.     End With
    
16.     Set dic = Nothing
    
17. End Sub

复制代码

ykcbf1100

参与一下

不知道为什么

供参考。。。。。。。。

tel3033

供参考……

ykcbf1100

不知道为什么 发表于 2023-5-25 15:10
供参考。。。。。。。。

解题思路相同。

tanglf188

Sub test6()
    Dim d As Object, i&, arr
    Set d = CreateObject("Scripting.Dictionary")
    arr = Sheet1.[A1].CurrentRegion
    For i = 2 To UBound(arr)
        If d.exists(arr(i, 1)) Then
            arr(i, 2) = "del"
        Else
            arr(i, 2) = ""
            d(arr(i, 1)) = ""
        End If
    Next
    Sheet1.[B1].Resize(UBound(arr), 1) = Application.Index(arr, 0, 2)
End Sub

不知道为什么

ykcbf1100 发表于 2023-5-25 15:14
解题思路相同。

哈哈 是的 缘分哦

cyq4896

参与一下....

ykcbf1100

不知道为什么 发表于 2023-5-25 15:33
哈哈 是的 缘分哦

殊途同归。