Πώς να μετατρέψετε συμβολοσειρά κειμένου διαχωρισμένη με κόμμα σε λίστα ή σειρές στο Excel;
Ας υποθέσουμε, έχετε μια λίστα τιμών κελιών που διαχωρίζονται με κόμματα, τώρα, πρέπει να μετατρέψετε αυτές τις συμβολοσειρές κειμένου διαχωρισμένες με κόμμα σε πολλές σειρές ή μια στήλη όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Πώς θα μπορούσαν να χωριστούν πολλές τιμές κελιών σε σειρές με βάση το κόμμα ταυτόχρονα στο Excel;
Μετατροπή συμβολοσειράς κειμένου διαχωρισμένου με κόμμα σε σειρές με κώδικα VBA
Μετατροπή συμβολοσειράς κειμένου διαχωρισμένου με κόμμα σε σειρές με το Kutools για Excel
Μετατροπή συμβολοσειράς κειμένου διαχωρισμένου με κόμμα σε σειρές με κώδικα VBA
Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να μετατρέψετε πολλές τιμές κελιών διαχωρισμένων με κόμμα σε μια στήλη, κάντε τα εξής:
1. Κρατήστε πατημένο το Alt + F11 στο Excel και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Μετατροπή συμβολοσειράς κειμένου διαχωρισμένου με κόμμα σε γραμμές ή λίστα
Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice
Dim xArr() As String
Dim xAddress As String
Dim Rg As Range
Dim Rg1 As Range
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)
If Rg Is Nothing Then Exit Sub
Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
If Rg1 Is Nothing Then Exit Sub
xArr = Split(Join(Application.Transpose(Rg.Value), ","), ",")
Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)
Rg1.Parent.Activate
Rg1.Resize(UBound(xArr) + 1).Select
End Sub
3. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα, στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε το εύρος δεδομένων που θέλετε να μετατρέψετε, δείτε το στιγμιότυπο οθόνης:
4. και κάντε κλικ OK, στον ακόλουθο διάλογο, καθορίστε ένα κελί στο οποίο θέλετε να εξάγετε το αποτέλεσμα, δείτε το στιγμιότυπο οθόνης:
5. Κλίκ OK κουμπί, οι επιλεγμένες τιμές κελιού διαχωρισμένες με κόμμα έχουν μετατραπεί σε λίστα γραμμών. Δείτε το στιγμιότυπο οθόνης:
Μετατροπή συμβολοσειράς κειμένου διαχωρισμένου με κόμμα σε σειρές με το Kutools για Excel
Εάν έχετε Kutools για Excel, Με τους Διαίρεση κελιών βοηθητικό πρόγραμμα, μπορείτε να διαχωρίσετε γρήγορα τις τιμές κελιών που διαχωρίζονται με κόμμα σε πολλές σειρές ή στήλες με βάση το διαχωριστικό κόμμα, όπως χρειάζεστε.
Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω βήματα:
1. Επιλέξτε τις τιμές κελιών που θέλετε να μετατρέψετε σε σειρές με βάση το διαχωριστικό κόμμα.
2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Συγχώνευση & διαχωρισμός > Διαίρεση κελιών, δείτε το στιγμιότυπο οθόνης:
3. Στην Διαίρεση κελιών , επιλέξτε Διαχωρισμός σε σειρές επιλογή βάσει του Χαρακτηριστικά ενότητα και στη συνέχεια από το Καθορίστε ένα διαχωριστικό , ελέγξτε ΑΛΛΑ πλαίσιο ελέγχου και, στη συνέχεια, εισαγάγετε το κόμμα στο πλαίσιο κειμένου, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί Okκαι θα εμφανιστεί ένας άλλος διάλογος για να σας υπενθυμίσει ότι επιλέγετε ένα κελί για να βάλετε το αποτέλεσμα, δείτε το στιγμιότυπο οθόνης:
5. Και στη συνέχεια κάντε κλικ στο κουμπί Ok κουμπί, τα κελιά διαχωρισμένα με κόμμα έχουν χωριστεί σε πολλές σειρές με βάση το διαχωριστικό κόμμα, δείτε το στιγμιότυπο οθόνης:
Κάντε κλικ για να μάθετε περισσότερα σχετικά με αυτήν τη δυνατότητα Split Cells…
Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!
Επίδειξη: Μετατροπή συμβολοσειράς κειμένου διαχωρισμένου με κόμμα σε σειρές με το Kutools για Excel
Σχετικά άρθρα:
Πώς να χωρίσετε κελιά σε πολλές στήλες ή σειρές με επιστροφή μεταφοράς;
Πώς να διαιρέσετε τις τιμές των κελιών σε πολλές στήλες στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!