delete pairs of 2 identical numbers macro

[excelNewbie22]

hello!

how to rule out (delete) 2 set's of 2 identical numbers in any order?
and also set's of 4
with a macro please

example for deletion:
1 1 2 2
5 8 8 5
1 2 1 2
7 7 7 7

sheet1
	A	B	C	D	E
1	1	1	2	2	delete
2	1	1	2	3
3	1	1	2	4
4	1	1	2	5
5	1	1	2	6
6	1	1	2	7
7	1	1	2	8
8	1	1	3	2
9	1	1	3	3	delete
10	1	1	3	4
11	1	1	2	2	delete
12	5	8	8	5	delete
13	1	2	1	2	delete
14	7	7	7	7	delete
22

 

[RobVos]

Sub DelDup()
Dim col As New Collection, lastrow As Long, x As Long, i As Long
lastrow = Range("A" & Rows.Count).End(xlUp).Row
For x = 1 To lastrow
    If Range("A" & x) = Range("B" & x) And Range("C" & x) = Range("D" & x) Or _
    Range("A" & x) = Range("D" & x) And Range("C" & x) = Range("B" & x) Or _
    Range("A" & x) = Range("C" & x) And Range("B" & x) = Range("D" & x) Then col.Add x
Next x
For i = col.Count To 1 Step -1
    Rows(col(i)).Delete
Next i
End Sub

 

[excelNewbie22]

fast and accurate!
thank you!

 

[RobVos]

Your welcome.