Excel: Πώς να χωρίσετε οριοθετημένο κείμενο σε σειρές
Ας υποθέσουμε ότι εδώ είναι ένας πίνακας με τρεις στήλες σε ένα φύλλο εργασίας, ο πρώτος παραθέτει τα επίπεδα τιμών, ο δεύτερος παραθέτει ονόματα φρούτων με κόμματα οριοθετημένα σε κελιά και η τρίτη στήλη αναφέρει τις τιμές των φρούτων. Η δουλειά είναι να χωρίσετε τα οριοθετημένα ονόματα φρούτων σε σειρές και να επαναλάβετε τα σχετικά επίπεδα τιμών και τις σειρές τιμών όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
Εδώ εισάγετε δύο μεθόδους για την επίλυση αυτής της εργασίας.
Διαχωρίστε οριοθετημένο κείμενο σε σειρές χρησιμοποιώντας VBA
Διαχωρίστε το οριοθετημένο κείμενο σε σειρές χρησιμοποιώντας Power Query
Εδώ είναι ένας κώδικας VBA που μπορεί να χωρίσει γρήγορα το οριοθετημένο κείμενο σε σειρές.
1. Τύπος άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα καρτέλα> Μονάδα μέτρησης για να δημιουργήσετε μια νέα κενή ενότητα.
3. Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην κενή μονάδα.
VBA: Διαχωρισμός οριοθετημένου κειμένου σε σειρές
Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
Dim xSRg, xIptRg, xCrRg, xRg As Range
Dim xSplitChar As String
Dim xArr As Variant
Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
Dim xWSh As Worksheet
Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
If xSRg Is Nothing Then Exit Sub
xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
If xSplitChar = "" Then Exit Sub
Application.ScreenUpdating = False
xRow = xSRg.Row
xColumn = xSRg.Column
Set xWSh = xSRg.Worksheet
For xFNum = xSRg.Rows.Count To 1 Step -1
Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
Debug.Print xRg.Address
xArr = Split(xRg, xSplitChar)
For xFFNum = LBound(xArr) To UBound(xArr)
xRg.EntireRow.Copy
xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xFFNum)
Next
xRg.EntireRow.Delete
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub4. Τύπος F5 πλήκτρο για να κάνετε κλικ στο κουμπί εκτέλεσης 
για να ενεργοποιήσετε τον κώδικα, εμφανίζεται ένα παράθυρο διαλόγου για να επιλέξετε τη στήλη που εξαιρεί την κεφαλίδα που περιέχει το οριοθετημένο κείμενο που χρειάζεται να χωριστεί σε σειρές. Κάντε κλικ OK.
5. Στη συνέχεια εμφανίζεται το δεύτερο παράθυρο διαλόγου για να εισαγάγετε τον οριοθέτη που χρησιμοποιείτε. Εδώ πληκτρολογείτε κόμμα (,). Κάντε κλικ OK.
Τώρα τα οριοθετημένα κείμενα έχουν χωριστεί σε σειρές και άλλες σχετικές στήλες έχουν επαναληφθεί.
Το VBA θα αλλάξει τα αρχικά δεδομένα, καλύτερα να αποθηκεύσετε ένα αντίγραφό τους πριν.
Εάν βρίσκεστε σε Excel 2013 ή νεότερες εκδόσεις, το Power Query θα είναι μια καλή επιλογή για την επίλυση αυτής της δουλειάς.
1. Επιλέξτε το εύρος δεδομένων για να κάνετε κλικ ημερομηνία > Από Πίνακας/Εύρος.
2. Στο σκάσιμο Δημιουργία πίνακα διάλογος, ελέγξτε Ο πίνακας μου έχει κεφαλίδες όπως χρειάζεστε και κάντε κλικ OK.
Στη συνέχεια, η Power Query συντάκτης εμφανίζεται το παράθυρο και τα δεδομένα έχουν εμφανιστεί σε αυτό.
3. Κάντε κλικ στη στήλη που θέλετε να χωρίσετε τα οριοθετημένα κείμενα σε σειρές και κάντε κλικ Μεταμορφώστε καρτέλα> Διαίρεση στήλης > Με Οριοθέτη.
Ή μπορείτε επίσης να επιλέξετε τη στήλη και να κάνετε δεξί κλικ στην κεφαλίδα της στήλης για να επιλέξετε αυτήν τη δυνατότητα στο μενού περιβάλλοντος.
4. Στο Διαίρεση στήλης κατά οριοθέτη παράθυρο, επιλέξτε τον οριοθέτη όπως χρειάζεστε από το Επιλέξτε ή εισαγάγετε οριοθέτη ενότητα και μετά επιλέξτε Κάθε εμφάνιση του οριοθέτη επιλογή και, στη συνέχεια, επεκτείνετε Επιλογές για προχωρημένους ενότητα για να επιλέξετε Γραμμές επιλογή. Κάντε κλικ OK.
Τώρα τα οριοθετημένα κείμενα έχουν χωριστεί σε σειρές.
5. Στη συνέχεια, κλείστε το παράθυρο, εμφανίζεται ένα παράθυρο διαλόγου, κάντε κλικ Διατήρηση κουμπί.
Στη συνέχεια θα δημιουργηθεί ένα νέο φύλλο με τον πίνακα.
Πώς να αντικαταστήσετε το χρώμα γραμμής με βάση την ομάδα στο Excel;
Στο Excel, το να χρωματίζετε κάθε άλλη σειρά μπορεί να είναι ευκολότερο για τους περισσότερους από εμάς, αλλά έχετε προσπαθήσει ποτέ να χρωματίσετε τις σειρές εναλλάξ με βάση τις αλλαγές τιμής στήλης - Στήλη Α όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, σε αυτό το άρθρο, θα μιλήσω για το πώς για εναλλαγή χρώματος γραμμής με βάση την ομάδα στο Excel.
Πώς να μειώσετε το μέγεθος αρχείου Excel;
Μερικές φορές, θα χρειαστούν λίγα λεπτά για να ανοίξει ή να αποθηκευτεί εάν το αρχείο Excel είναι πολύ μεγάλο. Για την επίλυση αυτού του προβλήματος, εδώ σε αυτό το σεμινάριο, σας λέει πώς να μειώσετε το μέγεθος του αρχείου Excel αφαιρώντας τα περιεχόμενα ή τις μορφές που δεν είναι απαραίτητα ή δεν χρησιμοποιούνται ποτέ.
Excel: Πώς να δημιουργήσετε ή να εισαγάγετε έναν σελιδοδείκτη
Έχετε φανταστεί ποτέ τη δημιουργία ή την εισαγωγή ενός σελιδοδείκτη για γρήγορη μετάβαση σε ένα συγκεκριμένο εύρος δεδομένων ενώ υπάρχουν πολλά δεδομένα σε ένα φύλλο εργασίας ή ένα βιβλίο εργασίας;
Πώς να εφαρμόσετε σκίαση σε μονές ή ζυγές (εναλλακτικές) σειρές / στήλες στο Excel;
Κατά το σχεδιασμό ενός φύλλου εργασίας, πολλοί άνθρωποι τείνουν να εφαρμόζουν σκίαση σε μονές ή ακόμη και (εναλλακτικές) σειρές ή στήλες για να κάνουν το φύλλο εργασίας πιο οπτικό. Αυτό το άρθρο θα σας δείξει δύο μεθόδους για την εφαρμογή σκίασης σε μονές ή ζυγές σειρές / στήλες στο Excel.
Τα καλύτερα εργαλεία παραγωγικότητας του Office
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
- Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
- Συγχώνευση κελιών / σειρών / στηλών και τήρηση δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές και άθροισμα / μέσος όρος... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
- Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
- Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
- Αγαπημένα και γρήγορη εισαγωγή τύπων, Σειρά, Διαγράμματα και Εικόνες; Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
- Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
- Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
- Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
- Ομαδοποίηση συγκεντρωτικού πίνακα κατά αριθμός εβδομάδας, ημέρα εβδομάδας και πολλά άλλα ... Εμφάνιση ξεκλειδωμένων, κλειδωμένων κελιών με διαφορετικά χρώματα. Επισημάνετε τα κελιά που έχουν τύπο / όνομα...
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
