怎么通过vba，做到重复的行只保留一行。通过多列数据匹配是否重复

cj19

我想做到，删除重复的行只保留一行，不是只删除行中的数据，而是整行都要删除，不留空行。通过A到AV列一起匹配，判断是否重复。（如果可以的话，最好是确认删除之前提醒一下重复行的数量。）

附件是我为了表达清楚模拟的数据表。

syj2004hg

Sub Dlt()
    Dim i As Integer, j As Integer
    For i = 1 To UsedRange.Rows.Count
        For j = 1 To 50
            Cells(i, 60) = Cells(i, 60) & "," & Cells(i, j)
        Next j
    Next i
    For i = UsedRange.Rows.Count To 1 Step -1
        For j = i - 1 To 2 Step -1
            If Cells(i, 60) = Cells(j, 60) Then
                Cells(j, 60).EntireRow.Delete
                Exit For
            End If
        Next j
    Next i
End Sub

sdc3211772

Sub test()

Set d = CreateObject("scripting.dictionary")
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        k = k & Cells(i, j).Value
        Next
    If Not d.exists(k) Then
        n = n + 1
        d(k) = n
    Else
        a = a + 1
        Range("a" & i).EntireRow.Delete
    End If
    k = ""
Next
MsgBox "共删除重复行" & a
End Sub

cj19

syj2004hg 发表于 2020-2-13 15:09
Sub Dlt()
    Dim i As Integer, j As Integer
    For i = 1 To UsedRange.Rows.Count

运行有报错，谢谢

cj19

sdc3211772 发表于 2020-2-13 15:13
Sub test()

Set d = CreateObject("scripting.dictionary")

你好，谢谢您提供的代码。这个代码在这个附件中的例表中运行正常，目的达到了。
但我们把这个代码放到真实数据表中运行就有报错。我发现例表和真实数据表的区别是，例表只有一个工作簿“Sheet1”，而真实数据表包含多个工作簿，而且数据在工作簿“Sheet3”中。不知道是不是这个原因导致报错。
如果是的话，代码改怎么改。
感谢感谢！

素心1218

你要求的是A：AV都匹配才删除，但上面两个都不是
只能用循环，逐行比较。
为了提高速度，你可以先把表读到数组里面，用数组进行逐一比较，
从第一行开始，逐一比较，没有重复的，就写入第二个数组，有重复就exit for，进行下一行比较。

cj19

素心1218 发表于 2020-2-13 16:02
你要求的是A：AV都匹配才删除，但上面两个都不是
只能用循环，逐行比较。
为了提高速度，你可以先把表读 ...

上面两个代码我看不懂，里面的逻辑不清楚。我复制上去运行了，然后看了结果，看到重复的行被删除了。
您可以帮忙写下代码吗？

素心1218

cj19 发表于 2020-2-13 16:20
上面两个代码我看不懂，里面的逻辑不清楚。我复制上去运行了，然后看了结果，看到重复的行被删除了。
您 ...

第一个可以，缺少引用，导致报错。我帮你改了，思路还是用二楼的

素心1218

看看这个，运行加载项下面第一个菜单项：删除重复项

素心1218

syj2004hg 发表于 2020-2-13 15:09
Sub Dlt()
    Dim i As Integer, j As Integer
    For i = 1 To UsedRange.Rows.Count

不好意思，看错了，这个可以的，楼主说的报错，是没有引用当前sheet
你这个思路非常好，把每行全部合成一个字符串进行比较
给你点赞