Excel Macro

  • Thread starter Thread starter Faz
  • Start date Start date
If it is a true duplicate, why would you want to keep the row of data?
Would it not be the same as the duplicate row? If you only want to delete
the found range then something like this:

Set MyRange = Sheets(1).Range("A2:A100")
For i = 100 to 2 Step - 1 'force of habit
If Sheets(1).Cells(i, 1) = Sheets(1).Cells(i - 1, 1) Then
Sjeets(1).Cells(i, 1).ClearContents
End If
Next

This assumes that the file is sorted on column A so that duplicates are
grouped.
The problem with this is that now there will be a row of data with nothing
in column A that it ties to. This may or may not be significant, depending
on the user's data base format and needs.
 
This works great..Thanks!!!
--
Faz


JLGWhiz said:
If it is a true duplicate, why would you want to keep the row of data?
Would it not be the same as the duplicate row? If you only want to delete
the found range then something like this:

Set MyRange = Sheets(1).Range("A2:A100")
For i = 100 to 2 Step - 1 'force of habit
If Sheets(1).Cells(i, 1) = Sheets(1).Cells(i - 1, 1) Then
Sjeets(1).Cells(i, 1).ClearContents
End If
Next

This assumes that the file is sorted on column A so that duplicates are
grouped.
The problem with this is that now there will be a row of data with nothing
in column A that it ties to. This may or may not be significant, depending
on the user's data base format and needs.
Click to expand...
 
Back
Top