EXCEL VBA重复项删除1

发布网友发布时间：2023-10-10 13:12

共2个回答

热心网友时间：2024-12-05 01:34

ActiveSheet.Range("$A$39:$J$1308").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), Header:=xlNo

热心网友时间：2024-12-05 01:34

Sub s()
    Dim rg As Range, c As Range
    Set rg = [a39:ad1308]
    Set d = CreateObject("scripting.dictionary")
    For Each c In rg
        d(c.Text) = d(c.Text) + 1
    Next
    For Each c In rg
        If d(c.Text) > 1 Then c.ClearContents
    Next
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com