if/then/else removing duplicates

[ajedmonds]

Hi

I want a macro to remove duplicates based on the set of criteria I've articulated below, is this possible?

If
Column C value is greater than Column E value
then
Select rows with identical Column C value and remove duplicate rows based on values in Column A, B, C, D
else
Select rows with identical Column E value and remove duplicate rows based on values in Column A, B, D, E


Thanks for your time!

 

[kalak]

Try this.
For cols A to E, no column headers.
Could be either col C > col E or vice versa. Easy modified whichever. Check for yourself.
Try on test data and provide feedback if need be.

Sub dups_wif_conditions()

Dim Dic As Object
Dim s(), a As Range, arr, u, x, Kx, w1 As String, w2 As String
Dim i As Long, c As Long, cls As Long, rws As Long

arr = Array(1, 2, 3, 4, 5)  'array to specify columns for duplicates

Set Dic = CreateObject("scripting.dictionary")
With Range("A1").CurrentRegion
    Set a = .Resize(, .Columns.Count + 1)
End With
rws = a.Rows.Count
cls = a.Columns.Count

ReDim s(1 To rws, 1 To 1)

With Application
    .ScreenUpdating = False
    .Calculation = xlManual
    For i = 1 To UBound(arr) + 1
        Cells(1, i).Resize(rws).Name = "n." & i
    Next i
    
    w1 = "n.1&char(2)&n.2&char(2)&n.4&char(2)&"
    w2 = "if(n.3 < n.5, n.3, n.5)"
    x = Evaluate(w1 & w2)
    
    For i = 1 To rws
        If Not Dic(x(i, 1)) Then Dic(x(i, 1)) = True _
            Else s(i, 1) = 1: c = c + 1
    Next i

    If c > 0 Then
        a(cls).Resize(rws) = s
        a.Sort a.Columns(cls)
        a.Resize(c).Delete xlUp
    End If
    
    For Each Kx In ActiveWorkbook.Names
        Kx.Delete
    Next Kx
    
    .Calculation = xlAutomatic
    .ScreenUpdating = True
End With
End Sub