Excel - Διπλες εγγραφές

[MaTrOx]

Έχω ένα αρχείο στο Excel με 6000 περίπου εγγραφές. Οι στήλες είναι ονομα, επίθετο, διευθυνση κτλ. Το πρόβλημα είναι ότι κάποιες από αυτές είναι διπλογραμμένες και αναρωτιέμαι μήπως υπάρχει κάποιο κόλπο να τις εντοπίσω εύκολα αντί να τις κοιτάω μία μία.

Thanks!

[Grigoros]

to mono pou skeftome einai na tis valeis me alfavitiki sira ke na deis pia einai idia.

[savabk]

 

Sub CLEEN_ARMITRO()

If MsgBox("na diagrafoyn ta diplotipa;", vbYesNo + vbQuestion) = vbYes Then

Range("A251").Value = 0

For i = 261 To 5000

For K = 1 To i + 1

BACK:

If i = K Then K = K + 1

Range("A250").Value = K

If Range("G" & i).Value = 0 Then GoTo TELOS

If Range("G" & i).Value = Range("G" & K).Value Then GoTo 10

 

Next K

 

Next i

 

10: Rows(Range("A250").Value).Delete: Range("A251").Value = Range("A251").Value + 1

 

GoTo BACK

 

TELOS:

MsgBox "vretikan kai diagrafikan " & Range("A251").Value & " diplotipes eggrafes."

 

End If

End Sub

Sub TELOS()

For K = 261 To 5000

If Range("G" & K).Value = 0 Then Range("G" & K).Select: Exit Sub

Next K

End Sub

 

an den vgazhs akri stile e-mail me digma <img src="http://www.insomnia.gr/ubbthreads/images/graemlins/cool.gif" alt="" />

[MaTrOx]

savabk ωραίος!

Αλλά αν μπορούσες να με βοηθήσεις σε κάτι τελευταίο. Πως μπορώ να προσαρμώσω το παραπάνω σκριπτ για να κοιτάει δύο ή τρεις στήλες για διπλότυπες εγγραφές πχ/Όνομα, Επίθετο, Διεύθυνση. Τις υπόλοιπες στήλες να μην τις λαμβάνει υπόψην.

 

Thanks man!

[savabk]

ola ta programata doleyoun me kapio monadiko stixio gia kate egrafi.Access as poume orizi apo moni tis tetio monadiko klidi.Esi i prepi na vris kati monadiko gia kate egrafi kai vasi afto na vris ta diplotipa ,p.x.aritmo thlefono. H na treksis mia fora to kodika gia epiteto meta gia onoma ktl.alla etsi tha diskoleftoyn ta pragmata.

[ffilz]

τωρα αυτο που εγραψεσ σημενει κατι ή κανεις πλάκα, γιατι εγω δεν καταλαβα τιποτα. που τα βρηκεσ αυτα να τα μαθω και εγω?

<img src="http://www.insomnia.gr/ubbthreads/images/graemlins/smile.gif" alt="" /> <img src="http://www.insomnia.gr/ubbthreads/images/graemlins/smile.gif" alt="" />

[savabk]

file efosoun den kseris vasika pragmata ,opos "epilogi apo lista " den perimeno na katalavis oti grafo <img src="http://www.insomnia.gr/ubbthreads/images/graemlins/smile.gif" alt="" />