Πώς να εξαγάγετε ταχυδρομικό κώδικα από τη λίστα διευθύνσεων στο Excel;
Υπάρχει μια λίστα με πλήρεις διευθύνσεις, συμπεριλαμβανομένων ταχυδρομικών κωδικών των πελατών σας στο Excel, και τώρα θέλετε να εξαγάγετε μόνο τους ταχυδρομικούς κώδικες από αυτές τις διευθύνσεις, έχετε καλύτερο τρόπο από την εξαγωγή τους μία προς μία; Εδώ, σας λέω τους γρήγορους τρόπους μαζικής εξαγωγής πολλαπλών ταχυδρομικών κωδικών μόνο κάθε φορά στο Excel.
Εξαγωγή ταχυδρομικού κώδικα με τύπο στο Excel
Εξαγωγή ταχυδρομικού κώδικα με VBA στο Excel
Εξαγωγή ταχυδρομικού κώδικα με τύπο στο Excel
Στις περισσότερες περιπτώσεις, ο ταχυδρομικός κώδικας δεν υπερβαίνει τους 8 χαρακτήρες.
Επιλέξτε ένα κενό κελί και πληκτρολογήστε αυτόν τον τύπο =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) (A1 είναι το κελί από το οποίο θέλετε να εξαγάγετε τον ταχυδρομικό κώδικα), πατήστε εισάγετε κουμπί και συμπληρώστε το εύρος που θέλετε σύροντας τη λαβή πλήρωσης. Τώρα μπορείτε να δείτε μόνο τους ταχυδρομικούς κώδικες που εξάγονται από τη λίστα.
Εξαγωγή ταχυδρομικού κώδικα με VBA στο Excel
Υπάρχει ένα VBA που μπορεί να εξαγάγει ταχυδρομικούς κώδικες από πλήρεις διευθύνσεις γρήγορα στο Excel.
1. Επιλέξτε ένα κελί της στήλης που θέλετε να επιλέξετε και πατήστε Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο αναδυόμενο παράθυρο, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα VBA στη λειτουργική μονάδα.
VBA: Εξαγωγή μόνο ταχυδρομικών κωδικών
Sub ExtractPostCode()
'Updateby20140512
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xValue = Split(Rng.Value, " ")
For i = LBound(xValue) To UBound(xValue)
If xValue(i) Like "[A-Z]*#*" Then
Rng.Value = xValue(i) & " " & xValue(i + 1)
Exit For
End If
Next
Next
End Sub
3. Στη συνέχεια κάντε κλικ στο κουμπί τρέξιμο κουμπί και επιλέξτε το εύρος από το οποίο θέλετε να εξαγάγετε ταχυδρομικούς κώδικες μόνο. Δείτε το στιγμιότυπο οθόνης:
4. κλικ OK, μπορείτε να δείτε μόνο τους ταχυδρομικούς κώδικες που είναι δεσμευμένοι στο εύρος.
Σημείωση:
(1) Η εκτέλεση του παραπάνω VBA θα αλλάξει τα αρχικά σας δεδομένα, καλύτερα να τα αντιγράψετε και να τα αποθηκεύσετε πρώτα.
(2) Αυτή η μακροεντολή VBA δεν είναι σε θέση να εξαγάγει τους ταχυδρομικούς κώδικες των οποίων το πρώτο μέρος περιέχει μόνο γράμματα, όπως "1513 4th St NW, Washington, DC 20001".
Σχετικά άρθρα:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!