duplicate rows in excel

[vivek.shankar]

hi,
i have a excel with many rows....i have to make sure that no duplicate rows exist (assume there is only one column).........if it exists i have to delete that row........

thanks and regards
vivek.s

[Tec-Nico]

I hope this helps you, it is a Macro I developed. You could try to adapt it to VB Code if you want to:

 Sub DeleteDupes()
 '
 ' DeleteDupes Macro
 
 	Dim i As Integer
 	Dim j As Integer
 	Dim k As Integer
 	
 	Dim iDupe As Integer
 	Dim szDupes() As Integer
 	Dim bDupe As Boolean
 	
 	For i = 1 To Range("A1").SpecialCells(xlCellTypeLastCell).Row
 	 For j = 1 To i - 1
 	  bDupe = True
 	  For k = 1 To Range("A1").SpecialCells(xlCellTypeLastCell).Column
 	   If Cells(i, k).FormulaR1C1 <> Cells(j, k).FormulaR1C1 Then
 		bDupe = False
 		Exit For
 	   End If
 	  Next
 	  
 	  If bDupe Then
 	   ReDim Preserve szDupes(iDupe)
 	   szDupes(iDupe) = i
 	   iDupe = iDupe + 1
 	   Exit For
 	  End If
 	 Next
 	Next
 		
 	For i = UBound(szDupes) To 0 Step -1
 	 Rows(szDupes(i) & ":" & szDupes(i)).Delete Shift:=xlUp
 	Next
 End Sub

[vivek.shankar]

THANKS A LOT!!

Regards
vivek.s

[Tec-Nico]

You are welcome