Note: The other languages of the website are Google-translated. Back to English

Πώς να αφαιρέσετε διπλούς χαρακτήρες ή λέξεις στη συμβολοσειρά ενός κελιού;

Ας υποθέσουμε ότι υπάρχουν διπλοί χαρακτήρες ή λέξεις σε κάθε κελί και θέλετε να καταργήσετε τα διπλότυπα και να αφήσετε μόνο μοναδικούς χαρακτήρες ή λέξεις. Πώς θα μπορούσατε να λύσετε αυτό το πρόβλημα στο Excel;

Καταργήστε διπλούς χαρακτήρες συμβολοσειράς κειμένου με τη λειτουργία που καθορίζεται από το χρήστη

Καταργήστε τις διπλές λέξεις που διαχωρίζονται με σημεία στίξης με τη λειτουργία καθορισμένη από το χρήστη


βέλος μπλε δεξιά φούσκα Καταργήστε διπλούς χαρακτήρες συμβολοσειράς κειμένου με τη λειτουργία που καθορίζεται από το χρήστη

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

doc-remove-duplicate-χαρακτήρες-1

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: Κατάργηση διπλών χαρακτήρων συμβολοσειράς κειμένου σε ένα κελί

Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
    xChar = VBA.Mid(xValue, i, 1)
    If xDic.Exists(xChar) Then
    Else
        xDic(xChar) = ""
        xOutValue = xOutValue & xChar
    End If
Next
RemoveDupes1 = xOutValue
End Function

3. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό, επιστρέψτε στο φύλλο εργασίας και εισαγάγετε αυτόν τον τύπο = removeupes1 (A2) (A2 είναι το κελί δεδομένων από το οποίο θέλετε να καταργήσετε διπλότυπα) σε ένα κενό κελί εκτός από τα δεδομένα σας, δείτε το στιγμιότυπο οθόνης:

doc-remove-duplicate-χαρακτήρες-1

4. Και, στη συνέχεια, σύρετε τη λαβή πλήρωσης στα κελιά εύρους που θέλετε να εφαρμόσετε αυτόν τον τύπο, όλοι οι διπλότυποι χαρακτήρες έχουν αφαιρεθεί αμέσως από κάθε κελί.

doc-remove-duplicate-χαρακτήρες-1


βέλος μπλε δεξιά φούσκα Καταργήστε τις διπλές λέξεις που διαχωρίζονται με σημεία στίξης με τη λειτουργία καθορισμένη από το χρήστη

Εάν υπάρχουν κάποιες λέξεις που χωρίζονται από ορισμένα σημεία στίξης σε ένα κελί, μπορείτε επίσης να καταργήσετε τις διπλές λέξεις όπως θέλετε. Κάντε τα παρακάτω βήματα:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: Κατάργηση διπλών λέξεων που διαχωρίζονται με σημεία στίξης ενός κελιού

Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
    Dim x
    'Updateby Extendoffice
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
    End With
End Function

3. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό, επιστρέψτε στο φύλλο εργασίας και εισαγάγετε αυτόν τον τύπο = RemoveDupes2 (A2, ",") σε ένα κενό κελί δίπλα στα δεδομένα σας, δείτε το στιγμιότυπο οθόνης:

doc-remove-duplicate-χαρακτήρες-1

4. Στη συνέχεια, αντιγράψτε τον τύπο στα κελιά που χρειάζεστε και όλες οι διπλότυπες λέξεις έχουν αφαιρεθεί από κάθε κελί. Δείτε το στιγμιότυπο οθόνης:

doc-remove-duplicate-χαρακτήρες-1

Note: Στον παραπάνω τύπο, A2 υποδεικνύει το κελί που θέλετε να χρησιμοποιήσετε και το κόμμα (,) σημαίνει το σημείο στίξης που διαχωρίζει τις λέξεις σε ένα κελί, μπορείτε να το αλλάξετε σε οποιαδήποτε άλλα σημεία στίξης ανάλογα με τις ανάγκες σας.


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2019 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (66)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ακόμα έσπασε... ουσιαστικά δεν δείχνει τίποτα. Αυτά είναι τα δεδομένα κινητής τηλεφωνίας μου: 27000,Βασικά,Προϊόντα,Υλικά,Από,Ξύλο,Πέτρα,Χώμα,Ακατέργαστα υλικά,27100,Βασικά,Δάσος,Προϊόντα,Γενικά,27110,Βασικά,Δάσος,Προϊόντα, Πριονιστήριο,Προϊόντα27120 ,Δάσος,Προϊόντα,Ξύλο,Πολτός,27200,Γυαλί Είναι σαφές ότι υπάρχουν κάποιες απάτες εκεί. Αφήνει το κελί κενό. Σκέψεις;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν πειράζει, είμαι χαζός. Επειδή ήθελα μόνο λέξεις να τραβήξουν, μετονόμασα τη μονάδα RemoveDupes, αλλά δεν άλλαξα τα RemoveDupes αργότερα στον κώδικα. Διορθώθηκε, χτυπάει τον εαυτό του με σφυρί....
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Και συνδύασα το RemoveDupes με το ConCat (το καλό VBA, όχι το CON(I-SUCK-BECAUSE-I'M-MICROSOFT)CATENATE) σε αυτό: =RemoveDupes(ConCat(",",G495:G502),",") έτσι τράβηξε τα κελιά μου μέσα και στη συνέχεια σκούπισε όλες τις απατεώνες. Ευχαριστούμε για το RemoveDupes, ορίστε το ConCat: Συνάρτηση ConCat(Delimiter As Variant, ParamArray CellRanges() As Variant) As String Dim Cell As Range, Area As Variant If IsMissing(Delimiter) Στη συνέχεια οριοθέτης = "" Για κάθε περιοχή στο CellRanges( Τύπος Περιοχή) = "Εύρος" Τότε για κάθε κελί στην περιοχή Εάν Len(Cell.Value) Τότε ConCat = ConCat & Οριοθέτης & Cell.Value Επόμενο Αλλο ConCat = ConCat & Οριοθέτης & Περιοχή Τέλος If Next ConCat = Mid(ConCat, Len(Delimiter ) + 1) Τελική συνάρτηση
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δοκίμασα τη λύση σας "Κατάργηση διπλότυπων λέξεων διαχωρισμένων με σημεία στίξης με συνάρτηση καθορισμένη από το χρήστη" και λειτουργεί εξαιρετικά για πολλές λέξεις σε ένα κελί ΑΛΛΑ δεν λύνει εντελώς το πρόβλημά μου. Έχω ένα κελί που έχει πολλές τιμές και θέλω να κάνω σύγκριση με ένα άλλο κελί με πολλές τιμές και, στη συνέχεια, να το ζητήσω να αφαιρέσει τα διπλότυπα που υπάρχουν μεταξύ των δύο κελιών. Υπάρχει τρόπος να γίνει αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
το ίδιο εδώ pls βοήθεια
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
είναι ακόμα ζωντανό αυτό το νήμα; Θα εκτιμούσα πολύ κάποιες πληροφορίες σχετικά με αυτήν τη συνάρτηση VBA.. οι ερωτήσεις μου έχουν να κάνουν με τον κώδικα, όπου, αν χρειάζεται, πρέπει να του δώσω εντολή να βρει το συγκεκριμένο σημείο στίξης ως οριοθέτη.. αν χρησιμοποιούσα το "@" ως τα σημεία στίξης;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Η συμβουλή σου είναι καταπληκτική! Ταξινόμησα 58,400 δίσκους σε περίπου 2 λεπτά και έσωσα μια εβδομάδα (ή περισσότερες) από την εργασία. Τα αντίγραφά μου ήταν λίγο πιο δύσκολα μετατρέποντας αυτό το παράδειγμα " V&O Liquid Fuel Lantern 13-1/2in blk fuel lantern " σε αυτό το " V&O Liquid Fuel Lantern 13-1/2in blk " ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, χρειάζομαι τη βοήθειά σας, δοκίμασα τον κωδικό σας αλλά δεν λειτούργησε, ίσως επειδή έχω αριθμούς, έχω διπλούς αριθμούς τηλεφώνου διαχωρισμένους με κόμμα, πείτε μου τι να κάνω Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
το ίδιο εδώ pls βοήθεια
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΛΑΜΠΡΟ ευχαριστώ! σας ευχαριστώ! σας ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τέλεια, σ 'ευχαριστώ!.....
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου φίλε χρειάζομαι τη βοήθειά σου. Τι πρέπει να κάνω εάν θέλω να εξαγάγω το αντίγραφο; Στο A1 (asdfghjiklkk) Άρα το k είναι διπλότυπος χαρακτήρας Θέλω A2 (k) τι πρέπει να κάνω;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είναι δυνατή η προσαρμογή της συνάρτησης εάν υπάρχει μια συγκεκριμένη λέξη που θέλω να διατηρήσω διπλή ενώ οι υπόλοιπες δεν είναι διπλότυπες;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θέλω να αποταμιεύσω, ευχαριστώ πολύ για αυτόν τον οδηγό, μου έσωσε πολλή δουλειά! :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό είναι πολύ χρήσιμο. Το έχω δοκιμάσει και μου δουλεύει κατά εξαίρεση. Εξαιρετικό!!!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτή είναι μια φοβερή και απλή λύση για την εύρεση διπλών φράσεων σε ένα μόνο κελί, πολύ πιο εύκολη από ορισμένες από τις μακροπρόθεσμες λύσεις μακροεντολών που βρήκα αναζητώντας μια απάντηση στο πρόβλημά μου, σας ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ για αυτόν τον κωδικό - μου εξοικονόμησε πολύ χρόνο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω δεδομένα όπως 1. εμφάνιση παρακάτω σε ένα μεμονωμένο κελί και θέλω να μου αρέσει το 2. 1. ZERPUR,MAHENDRAGARH, HARYANA-123029, 30771237, 8813073653, ZERPUR(16),MAHENDRAGARH, HARYANA-123029 όπως:- ZERPUR,MAHENDRAGARH, HARYANA-30771237, 8813073653, 123029 Ευχαριστώ και με εκτίμηση Hanuman Singh 30771237
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
μάθε με πώς; πρεπει να το ξερεις κιολας..
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
μπορούμε να μάθουμε τη θέση του 1ου πεζού γράμματος


Εξέταση - RAMSHsJHSAhsjDDD ------Θέλω να μάθω τη θέση του 1ου μικρού γράμματος κατά τύπο = s
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Meharban,
Μπορείτε να εφαρμόσετε τον ακόλουθο τύπο πίνακα για να λάβετε τη θέση του πρώτου πεζού γράμματος:
=MATCH(1,IF(ABS(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))-109.5)<=12.5,1),0)
Θυμηθείτε να πατήσετε τα πλήκτρα Ctrl + Shift + Enter μαζί.


Ελπίζω να μπορεί να σε βοηθήσει, ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου skyyang

δουλευει σωστα.....
βασικα το ιδιο ηθελα..

Πολλά ευχαριστώ !!


Φίλε Μεχαρμπάν Σινγκ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς να αφαιρέσετε αντίγραφα ταιριασμένων συμβολοσειρών...μπορείτε να μου πείτε


Χαιρετισμούς,
Kiran
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Kiran,
Μπορείτε να δώσετε ένα παράδειγμα του προβλήματός σας; Ή μπορείτε να εισαγάγετε μια εικόνα συνημμένου.
Περιμένω την απάντηση σου!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ευχαριστώ πολύ, με βοηθάει περισσότερο. Θέλω όμως περισσότερα συγκεκριμένα για το σύνολο δεδομένων μου.
Έχω δεδομένα δύο στηλών. Ταυτότητα και Πληροφορίες. Στη στήλη πληροφοριών, το αναγνωριστικό έργου ανά κελί όπως "Kant-, Udp-, Akr- κ.λπ." επαναλαμβάνεται. Για το σύνολο δεδομένων μου, το project_id είναι πάνω από 15 και διορθώθηκε. Θέλω λοιπόν να διαγράψω το repeated_id από το κελί αλλά να κρατήσω το πρώτο.
Παράδειγμα: Kant-526 (0.0287),Kant-527 (0.0113),Kant-528 (0.0262) /// Kant-526 (0.0287),527 (0.0113),528 (0.0262),
Kant-543 (0.0685),Kant-544 (0.0685),Udp-097 (0.0141) /// Kant-543 (0.0685),544 (0.0685),Udp-097 (0.0141)

Δείγμα εικόνας επισυνάπτεται εδώ. Υπάρχει κάποια λύση για αυτό.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Imran,
Συγγνώμη που δεν έλυσα το πρόβλημά σας, αν κάποιος έχει την καλή ιδέα, παρακαλώ σχολιάσει εδώ.
Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω μια λύση μόνος μου. Έχω χρησιμοποιήσει τον τύπο SUBSTITUTE εδώ, αλλά είναι πολύ μεγάλος για τα δεδομένα μου. έτσι επαναλάβετε το δύο ή τρεις φορές για να έχετε το σωστό αποτέλεσμα.

=SUBSTITUTE(SUBSTITUTE("Kant-","",2), ("Kant-","",2)
Εδώ, 1ο 2 για δεύτερο Kant- αντικατάσταση και για επόμενο κάθε Kant- αφαιρώντας απλώς προσθέστε ("Kant-","",2) επιπλέον. Λειτουργεί για μένα. Αλλά προτιμώ ένα καλό VBA.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ για τον κώδικα.

Μπορείτε παρακαλώ να με βοηθήσετε; Χρησιμοποιώ τη συνάρτηση μακροεντολής για να αφαιρέσω λέξεις που χωρίζονται με σημεία στίξης ενός κελιού, ωστόσο τα δεδομένα μου δεν είναι λέξεις είναι στην πραγματικότητα φράσεις. Όπως αντί για "KTE, KTO, KTW, KTO" είναι στην πραγματικότητα σύντομες περιγραφές όπως "ετοιμάστε έναν λογαριασμό, ελέγξτε τα email μου, ενημερώστε τα συμβόλαια, ελέγξτε τα email μου".

Θα ήταν δυνατό να ενημερώσετε το VBA για να αφαιρέσετε διπλότυπες φράσεις αντί για λέξεις;

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

Συνάρτηση RemoveDuplicateValue(xStr ως συμβολοσειρά, xDelim ως συμβολοσειρά) ως συμβολοσειρά
Dim xValue
Αν (Len(xDelim) > 0) Και (Len(Trim(xStr)) > 0) Τότε
Με το CreateObject ("Scripting.Dictionary")
Για κάθε xValue In Split(xStr, xDelim)
Εάν το Trim(xValue) <> "" And Not .exists(Trim(xValue)) Τότε .Add Trim(xValue), Nothing
επόμενος
Αν .Count > 0 Τότε RemoveDuplicateValue = Join(.keys, xDelim)
Τέλος με
Αλλού
RemoveDuplicateValue = xStr
End If
Τέλος Λειτουργία

Στη συνέχεια, εφαρμόστε αυτόν τον τύπο: =RemoveDuplicateValue(A2,","), αλλάξτε το διαχωριστικό , στο δικό σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Skyyang,



Ελπίζω να λάβω βοήθεια με το ακόλουθο κελί:

ΠΡ-ΠΟΥΕΡΤΟ ΡΙΚΟ; ΗΠΑ-ΗΝΩΜΕΝΕΣ ΠΟΛΙΤΕΙΕΣ? ΗΠΑ-ΗΝΩΜΕΝΕΣ ΠΟΛΙΤΕΙΕΣ

Χρειάζομαι την αφαίρεση του διπλότυπου Η.Π.Α.-ΗΝΩΜΕΝΩΝ ΠΟΛΙΤΕΙΩΝ καθώς το εργαλείο μεταφόρτωσης δεν επιτρέπει διπλότυπα.



Χρησιμοποίησα το παραπάνω VBA και αντικατέστησα τον οριοθέτη τύπου μου με ";". Είναι η παύλα που προκαλεί αυτό το πρόβλημα; Επιστρέφει το #NAME; όποτε εκτελώ τον τύπο. Είμαι νέος στις μακροεντολές/VBA, αλλά βεβαιώθηκα ότι το αρχείο έχει αποθηκευτεί ως αρχείο με δυνατότητα Macro. Προσπάθησα πραγματικά να τα ακολουθήσω στο Τ.


Σας ευχαριστώ για όλες αυτές τις ήδη υπέροχες πληροφορίες, καθώς βοήθησαν με ένα άλλο έργο που έπρεπε να ολοκληρώσω επίσης και οτιδήποτε επιπλέον εκτιμάται ιδιαίτερα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Μιχάλη,
Εννοείτε να αφαιρέσετε όλες τις διπλότυπες φράσεις από ένα κελί και να αφήσετε μόνο τις μοναδικές;
Ανυπομονώ για την απάντηση σας!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό είναι το αποτέλεσμα που ψάχνω:

Τρέχον: PR-PUERTO RICO; ΗΠΑ-ΗΝΩΜΕΝΕΣ ΠΟΛΙΤΕΙΕΣ? ΗΠΑ-ΗΝΩΜΕΝΕΣ ΠΟΛΙΤΕΙΕΣ
Επιθυμητό: PR-PUERTO RICO; ΗΠΑ-ΗΝΩΜΕΝΕΣ ΠΟΛΙΤΕΙΕΣ

Ελπίζω να έχει νόημα και ευχαριστώ πολύ για τη γρήγορη απάντηση.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Μιχάλη,
Απλώς πρέπει να εφαρμόσετε τον παρακάτω κώδικα και στη συνέχεια να χρησιμοποιήσετε αυτόν τον τύπο: =RemoveDuplicateValue(A2,";"). Παρακαλώ δοκιμάστε, ελπίζω ότι μπορεί να σας βοηθήσει!

Συνάρτηση RemoveDuplicateValue(xStr ως συμβολοσειρά, xDelim ως συμβολοσειρά) ως συμβολοσειρά
Dim xValue
Αν (Len(xDelim) > 0) Και (Len(Trim(xStr)) > 0) Τότε
Με το CreateObject ("Scripting.Dictionary")
Για κάθε xValue In Split(xStr, xDelim)
Εάν το Trim(xValue) <> "" And Not .exists(Trim(xValue)) Τότε .Add Trim(xValue), Nothing
επόμενος
Αν .Count > 0 Τότε RemoveDuplicateValue = Join(.keys, xDelim)
Τέλος με
Αλλού
RemoveDuplicateValue = xStr
End If
Τέλος Λειτουργία
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ πάρα πολύ. Η απάντησή σας ήταν πιο ευπρόσδεκτη από τον καφέ μου!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας αυτό είναι πραγματικά χρήσιμο
Αλλά θέλω να αφαιρέσω ολόκληρες λέξεις μετά το "NO TO:"

π.χ.: ΟΧΙ ΣΕ: [C11bx1]

ΟΧΙ ΣΕ: [C11bx3] όπως αυτό
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες