多条件区域删除重复行

lsc900707

529905149 发表于 2017-2-11 16:01
谢谢您的解答，如果是从A列到K列删除重复行呢？

如果a列就是序号而不是其它就不需要改代码，因为整行都已经删除了>>>>>>>>>

Kaohsing

529905149 发表于 2017-2-11 16:01
谢谢您的解答，如果是从A列到K列删除重复行呢？

For J = 1 To 11
                tt = tt & arr(i, 2)
          Next

凤翔时代

jsgj2023 发表于 2017-2-11 14:11
Sub Adele()
    Dim d As Object, rng As Range
    On Error Resume Next

请教老师，如果想要在整个工作簿中，在排除“A、B、C”表格之后，对其它剩下的表格，都要实现以上效果，应该怎么修改？

blackttea1

学习啦，谢谢

529905149

不删除，把重复行加颜色
Sub Adele()
    Dim d As Object, Rng As Range
    On Error Resume Next
    Set d = CreateObject("scripting.dictionary")
    With Worksheets("Sheet1")
        r = .Cells(Rows.Count, 1).End(xlUp).Row
        arr = .Range("a1:k" & r)
        For x = 2 To UBound(arr)
            s = arr(x, 2) & "+" & arr(x, 3) & "+" & arr(x, 4) & "+" & arr(x, 5) _
            & "+" & arr(x, 6) & "+" & arr(x, 7) & "+" & arr(x, 8) & "+" & arr(x, 9) & "+" & arr(x, 10)
            If Not d.exists(s) Then
                d(s) = ""
            Else
                If Rng Is Nothing Then
                    Set Rng = .Rows(x)
                Else
                    Set Rng = Union(Rng, .Rows(x))
                End If
            End If
        Next x
         If Not Rng Is Nothing Then
          Rng.Interior.ColorIndex = 8
         
           ' Rng.Delete
        End If
    End With
End Sub