删除重复行

zjminy

例数B~BQ，行数3-4200行中，如果行里面的内容全部重复，则删除下面那个重复的行。

如表中行3的内容跟行15的一样，则删除行15

哪位大神帮忙一下，谢谢哈。

LIUZHU

问题说的莫名其妙，行3和行15，到底是看单元格的行号，还是看A列的序号？如果是单元格的行号，行3和行15并不一样，如果是看A列的序号，行3在，行15在哪里？
还有列数，B-Q，但是原始数据是B-T，到底以哪个为准？

3190496160

Sub 删除行()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With ActiveSheet
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:t" & r)
    Dim arr()
    ReDim arr(1 To UBound(ar), 1 To UBound(ar, 2))
    For i = 3 To UBound(ar)
        zf = ""
        For j = 2 To UBound(ar, 2)
            If j = 2 Then
                zf = ar(i, j)
            Else
                zf = zf & "|" & ar(i, j)
            End If
        Next j
        t = d(zf)
        If t = "" Then
            k = k + 1
            d(zf) = k
            t = k
            arr(k, 1) = k
            For j = 2 To UBound(ar, 2)
                arr(k, j) = ar(i, j)
            Next j
        End If
    Next i
    .Range("a1:t" & r).Offset(2) = Empty
    .[a3].Resize(k, UBound(arr, 2)) = arr
End With
Set d = Nothing
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

删除重复的行.rar (14.72 KB, 下载次数: 9)

2022-12-27 15:39 上传

点击文件名下载附件

gwjkkkkk

请楼主参考附件。。。