excel vba保留内容删除重复

发布网友发布时间：2022-04-20 15:40

共1个回答

热心网友时间：2023-07-05 17:40

Sub s()
    arr = [u39:t145689]
    Set d = CreateObject("scripting.dictionary")
    x = 1
    For i = 1 To UBound(arr)
    For j = 1 To UBound(arr, 2)
        If arr(i, j) <> "" Then
        If d.exists(arr(i, j)) Then
            arr(i, j) = ""
        Else
            d.Add arr(i, j), ""
            y = y + 1
            If y > UBound(arr, 2) Then y = 1: x = x + 1
            If x <> i Or y <> j Then
                arr(x, y) = arr(i, j)
                arr(i, j) = ""
            End If
        End If
        End If
    Next j, i
    [u39:t145689] = arr
End Sub

来自：求助得到的回答

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