MS Excel

např:Sub Vymaz()
Dim rdR As Long, rdW As Long
Application.EnableEvents = False
Application.Calculation = xlManual
For rdR = 1 To Cells(Cells.Rows.Count, 2).End(xlUp).Row
For rdW = Cells(Cells.Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(rdR, 2) = Cells(rdW, 1) Then Cells(rdW, 1).Delete Shift:=xlUp
Next rdW
Next rdR
Application.EnableEvents = True
Application.Calculation = xlAutomatic
End Sub
citovat

Dobrý den ,
měl bych ještě dotaz , funguje to ale mám problém jelihož těch dat je moc ( cca 150 000 řádků ) a když to spustím tak se mi vše sekne . Jde stím něco dělat ? citovat

Je to správně :

Sub Vymaz()
Dim rdR As Long, rdW As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlManual
For rdR = 1 To Cells(Cells.Rows.Count, 2).End(xlUp).Row
For rdW = Cells(Cells.Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(rdR, 2) = Cells(rdW, 1) Then Cells(rdW, 1).Delete Shift:=xlUp
Next rdW
Next rdR
Application.EnableEvents = True
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Subcitovat