Duplicate Value

[amna77]

Hi,
Can any body help me with this.
I want a create a macro.
If I have a duplicate Value in column A then delete that entire row. and serach for the next duplicate value.

Any idea?????????

Thanks in Advance

[teebruin]

Do a search of the message board, and you should get a lot of hits. This topic has been covered numerous times.

[brettvba]

try this made earlier in posts

Sub NoDups()
Application.ScreenUpdating = False
Dim RowCntr As Long, FromRowCntr As Long, LastRow As Long
Dim CompareStr
Dim FirstString As String, SecondString As String
On Error Resume Next
LastRow = Range("a2:a" & Range("a65536").End(xlUp).Row).Rows.Count
For RowCntr = 2 To LastRow
FirstString = Range("a" & RowCntr) ' & Range("a" & RowCntr)
If Len(Trim(FirstString)) = 0 Then Exit Sub
For FromRowCntr = RowCntr + 1 To LastRow
SecondString = Range("a" & FromRowCntr) '& Range("a" & FromRowCntr)
CompareStr = StrComp(FirstString, SecondString, 1)
If CompareStr = 0 Then
Rows(FromRowCntr & ":" & FromRowCntr).Delete Shift:=xlUp
FromRowCntr = FromRowCntr - 1
LastRow = LastRow - 1
End If
Next
Next
End Sub

_________________


EDIT This Works for row A only

[ This Message was edited by: brettvba on 2002-05-16 14:38 ]

[xl]

It's so annoying when lazy people expect everyone else to do the work for them.

[Jack in the UK]

XL

Hi its Jack = you seem to be a little harsh in you post and you have insulted more than one poster so far in what I have read in 10 minutes, what’s up mate something bugging you.

This board is for everyone world wide regardless NO BARRIERS, so if the guy posting is a little less in competence than you FINE help him out that’s why the board is here so all levels can get help from the hardest question to the smallest silly question..

IF you are a guru let me know I have many issues that I can not solve maybe you will assist me and others in some work and we will only ever thank you for this.

Please be polite… it just a respect to each other..

If I did not care why would I bother ive written two long passages to you, come on join in the fun.

Also if you have issues please email me or PM me ill chat what ever you like over.

Jackintheuk@hotmail.com

[Nimrod]

Jack:
With every post of yours,that I read, I gain respect for you. This guy Dis'd you and you have the "class" to respond with tact and Courtesy. My hat is off to you ! I agree with everything you said... Thanks for attempting to keep this board from degenerating into disrespectful chatter.

[MrExcel]

It is interesting to me that XL is posting from an I.P. "inside" of Microsoft.

I've never actually tried to get support from Microsoft, but I wonder if this is an indication of their usual demeanor?

[Jack in the UK]

Hi its Jack

I live in a tough area of South London and enjoy the mix of life and culture, and the democratic society our county the UK believes in and fights to protect,

The US will applaud me for these comments around the world its might be different, i say each to the know and there own.

To me Excel know no right or wrong or even care who we are it just *does*

Bill Jelens comments that mr excel to those reading who do not communicate will our friend Bill, looks like the enemy is *within* a common falling.

Lets hope sense will be soon, as i will never except Microsoft staff would ever be a low to be aggressive to less competent users, Bill Gates im sure would see to this at a stop.

Im saddened a guy who can and does work at Microsoft does this and he shows such knowledge but abuses this, and silly allows a track on him>> all the strong comments to make suck a mundane error of judgement.

Im saddened..

I would LOVE to work for Microsoft!

[Mood]

I would LOVE to work for Microsoft!

Jack,

Everybody on this board is employed by M$.

I am not the only one who gets XL'ent ideas from reading the posts. We are all contributing to the next version of XL in one way or another.

Peter