deleting same rows on two columns

[osmanoca]

hello i couldnt remove these same cells on two columns

i have A and B columns of dictionary database. some meaning in column B are same with word of column A. so this is a problem. column B ise meaning and it must be different. so i want to delete these black dublicated words below with macro. Please help me, i tried to delete dublicated function in office but it doesnt delete this kind.

[TABLE="width: 301"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD]Column A [/TD]
[TD]Column B[/TD]
[/TR]
[TR]
[TD]çar[/TD]
[TD]çar[/TD]
[/TR]
[TR]
[TD]yek[/TD]
[TD]one[/TD]
[/TR]
[TR]
[TD]se[/TD]
[TD]three[/TD]
[/TR]
[TR]
[TD]penc[/TD]
[TD]penc
[/TD]
[/TR]
</tbody>[/TABLE]


as result it must be so:
[TABLE="width: 301"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD]Column A [/TD]
[TD]Column B[/TD]
[/TR]
[TR]
[TD][TABLE="width: 301"]
<tbody>[TR]
[TD][TABLE="width: 301"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD]yek[/TD]
[TD]one[/TD]
[/TR]
[TR]
[TD]se[/TD]
[TD]three[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]

----
i have office plus 2010[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[JLGWhiz]

try this

Sub deleDupes()
Dim i As Long
With ActiveSheet
    For i = .Cells(Rows.count, 1).End(xlUp).Row To 2 Step -1
        If .Cells(i, 1).Value = .Cells(i, 1).Value Then .Cells(i, 1).Resize(1, 2).Delete xlShiftUp
    Next
End With
End Sub

 

[osmanoca]

that macro gives syntax error

 

[osmanoca]

this macro deleted all cells sorry.

try this

Sub deleDupes()
Dim i As Long
With ActiveSheet
    For i = .Cells(Rows.count, 1).End(xlUp).Row To 2 Step -1
        If .Cells(i, 1).Value = .Cells(i, 1).Value Then .Cells(i, 1).Resize(1, 2).Delete xlShiftUp
    Next
End With
End Sub

 

[Fluff]

Hia
try

Sub deleDupes()
Dim i As Long
With ActiveSheet
    For i = .Cells(Rows.count, 1).End(xlUp).Row To 2 Step -1
        If .Cells(i, 1).Value = .Cells(i, [COLOR=#ff0000]2[/COLOR]).Value Then .Cells(i, 1).Resize(1, 2).Delete xlShiftUp
    Next
End With
End Sub

the item in red was wrong

 

[osmanoca]

Thank you very much dear Fluff. it worked.
thanks.....

Hia
try

Sub deleDupes()
Dim i As Long
With ActiveSheet
    For i = .Cells(Rows.count, 1).End(xlUp).Row To 2 Step -1
        If .Cells(i, 1).Value = .Cells(i, [COLOR=#ff0000]2[/COLOR]).Value Then .Cells(i, 1).Resize(1, 2).Delete xlShiftUp
    Next
End With
End Sub

the item in red was wrong

 

[JLGWhiz]

Hia
try

Sub deleDupes()
Dim i As Long
With ActiveSheet
    For i = .Cells(Rows.count, 1).End(xlUp).Row To 2 Step -1
        If .Cells(i, 1).Value = .Cells(i, [COLOR=#ff0000]2[/COLOR]).Value Then .Cells(i, 1).Resize(1, 2).Delete xlShiftUp
    Next
End With
End Sub

the item in red was wrong

Good catch on the typo, Fluff. Thanks.

 

[Fluff]

No problem