Πώς να διαιρέσετε τις τιμές των κελιών κάθετα στο Excel;
Στο Excel, μπορείτε να εφαρμόσετε το Κείμενο σε στήλες δυνατότητα να διαιρέσετε τις τιμές κελιού σε πολλές στήλες οριζόντια, αλλά, δεν σας βοηθά να χωρίσετε τα περιεχόμενα του κελιού σε πολλές σειρές κάθετα. Και σε αυτό το άρθρο, θα μιλήσω για μερικούς γρήγορους τρόπους για να χωρίσετε τις τιμές των κελιών σε κάθετες σειρές από συγκεκριμένο διαχωριστικό στο Excel.
Διαχωρίστε τις τιμές κελιού σε σειρές κάθετα με διαχωριστικό με κωδικό VBA
Διαχωρίστε τις τιμές κελιού σε σειρές κάθετα ανά διαχωριστή με το Kutools για Excel
Διαχωρίστε τις τιμές κελιού σε σειρές κάθετα με διαχωριστικό με κωδικό VBA
Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να χωρίσετε τις τιμές των κελιών σε κάθετες γραμμές από οποιοδήποτε διαχωριστικό όπως θέλετε, κάντε τα εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Πατήστε Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Διαχωρίστε τις τιμές κελιού σε σειρές κάθετα ανά συγκεκριμένο διαχωριστικό
Sub splitvertically()
'updatebyExtendoffice
Dim xRg As Range
Dim xOutRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xStr As String
Dim xOutArr As Variant
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
If xOutRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xStr = "" Then
xStr = xCell.Value
Else
xStr = xStr & ";" & xCell.Value
End If
Next
xOutArr = VBA.Split(xStr, ";")
xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub
3. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε τις τιμές κελιών που θέλετε να χωρίσετε κάθετα, δείτε το στιγμιότυπο οθόνης:
4. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, θα εμφανιστεί ένα άλλο πλαίσιο για να σας υπενθυμίσει ότι επιλέγετε ένα κελί για να βάλετε το αποτέλεσμα, δείτε το στιγμιότυπο οθόνης:
5. Κλίκ OK κουμπί και οι τιμές των κελιών έχουν χωριστεί σε μια λίστα από ένα διαχωριστικό, δείτε το στιγμιότυπο οθόνης:
Note: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε το ερωτηματικό ; σε οποιονδήποτε άλλο οριοθέτη που χρειάζεστε.
Διαχωρίστε τις τιμές κελιού σε σειρές κάθετα ανά διαχωριστή με το Kutools για Excel
Kutools για Excel'S Διαίρεση κελιών Το χαρακτηριστικό είναι ένα ισχυρό βοηθητικό πρόγραμμα, μπορεί να σας βοηθήσει να χωρίσετε τις τιμές των κελιών σε πολλές στήλες ή σειρές από οποιονδήποτε διαχωριστή, όπως χρειάζεστε.
Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:
1. Επιλέξτε τα κελιά που θέλετε να χωρίσετε σε σειρές από το συγκεκριμένο οριοθέτη.
2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Συγχώνευση & διαχωρισμός > Διαίρεση κελιών, δείτε το στιγμιότυπο οθόνης:
3. Στην Διαίρεση κελιών , επιλέξτε Διαχωρισμός σε σειρές σύμφωνα με το Χαρακτηριστικά ενότητα και, στη συνέχεια, ελέγξτε ΑΛΛΑ από το Διαχωρισμός από ενότητα και εισαγάγετε το διαχωριστικό στο οποίο θέλετε να διαιρέσετε τις τιμές των κελιών με βάση, δείτε το στιγμιότυπο οθόνης:
4. Και στη συνέχεια κάντε κλικ στο κουμπί Ok κουμπί, στο αναδυόμενο πλαίσιο, επιλέξτε ένα κελί για έξοδο του αποτελέσματος, δείτε το στιγμιότυπο οθόνης:
5. και κάντε κλικ OK κουμπί, οι τιμές των κελιών έχουν χωριστεί σε σειρές με βάση το συγκεκριμένο διαχωριστικό όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!
Επίδειξη: Διαχωρίστε τις τιμές των κελιών σε σειρές κάθετα ανά διαχωριστή με το Kutools για Excel
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!