very slow filtering

[Reggieneo]

Hi All,
I have 26 columns rows.
column B to E pertains to ID Number and Work Order respectively.

I need to see that no duplicate combination of these two cells in the rows B and E or else the rows of column B to Z will be deleted.

I have some structure and VBA done but its just taking so much time to complete.
Can somebody please assist me to make this process time shorter.
Appreciate it.

in Column BI7 Formula is = B7 & CHAR(1) & CHAR(1) &E7 to join the criteria
in Column BJ7 Formula is =IF(COUNTIF($BI$7:BI7,BI7)>1,"DUPLICATE","UNIQUE") to check how many times the criteria appears. if its more than one then it will be deleted.

Dim x As Integer
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook
Set ws = ThisWorkbook.Sheets("DWS1")
Dim erow
  erow = ThisWorkbook.Sheets("DWS1").Cells(rows.Count, 2).End(xlUp).row
  For x = 7 To erow
  If ws.Cells(x, 62) = "DUPLICATE" Then
  wb.Sheets("DWS1").Range("B" & x & ":Z" & x).ClearContents
End If
Next
 
kind regards,
reggieneo

 

[vletm]

Reggieneo
Could You use Filter to find all 'DUPLICATE's
and after that clear those away?
(= no need to do as now row-by-row)
or
Do You use
Application.ScreenUpdating = False
or
Application.Calculation = xlCalculationManual
before those codes?

 

[Hui]

Use an Advanced Fikter to find unique records
This can be done via Vba