View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Del_F Del_F is offline
external usenet poster
 
Posts: 6
Default Delete rows where colums match

Thanks Joel,
Nice solution - works perfectly!
D.


On 15 Aug, 16:40, Joel wrote:
Sub test2()
RowCount = 1
Do While Not IsEmpty(Cells(RowCount, "A"))
If Cells(RowCount, "A") = Cells(RowCount, "B") Then
Cells(RowCount, "A").EntireRow.Delete
Else
RowCount = RowCount + 1
End If
Loop
End Sub



"Del_F" wrote:
Hi,
I have 2 columns (A & B) of text data, and I want to delete every row
where the same term appears in both columns. So... for each row (n),
delete the row only if An and Bn match.
Any help much appreciated.
Thanks.- Hide quoted text -


- Show quoted text -