Πώς να διαιρέσετε με οριοθέτη και να μεταφέρετε κελιά στο Excel;
Σε αυτό το άρθρο, εισάγω τους τρόπους για να χωρίσετε ένα εύρος με συγκεκριμένο οριοθέτη και μετά να το μεταφέρω στο Excel όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Εάν ενδιαφέρεστε για αυτήν την εργασία, μεταβείτε στις παρακάτω λεπτομέρειες.
Διαχωρισμός και μεταφορά με VBA
Διαχωρισμός και μεταφορά με Kutools για Excel
Διαχωρισμός και μεταφορά με VBA
Δεν υπάρχει άμεσος τρόπος διαχωρισμού και μεταφοράς δεδομένων από ένα συγκεκριμένο οριοθέτη, αλλά μπορώ να εισαγάγω έναν κωδικό VBA για να σας βοηθήσω να λύσετε γρήγορα αυτό το πρόβλημα.1. Τύπος Alt + F11 πλήκτρα για εμφάνιση Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον παρακάτω κώδικα στο νέο Μονάδα μέτρησης παράθυρο.
VBA: Διαχωρισμός και μεταφορά
Sub Vertical()
'UpdatebyExtendoffice20161125
Dim i As Long, strTxt As String
Dim startP As Range
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
i = 1
Application.ScreenUpdating = False
For Each yRg In xRg
If i = 1 Then
strTxt = yRg.Text
i = 2
Else
strTxt = strTxt & "," & yRg.Text
End If
Next
Application.ScreenUpdating = True
Set startP = Application.InputBox _
(Prompt:="paste range...", _
Title:="Kutools For Excel", Type:=8)
ary = Split(strTxt, ",")
i = 1
Application.ScreenUpdating = False
For Each a In ary
startP(i, 1).Value = a
i = i + 1
Next a
Application.ScreenUpdating = True
End Sub
3. Τύπος F5 κλειδί για να εκτελέσετε τον κώδικα, εμφανίζεται ένα παράθυρο διαλόγου για να επιλέξετε μια περιοχή για διαχωρισμό και μεταφορά.
4. κλικ OK. Εμφανίζεται ένας διάλογος για να επιλέξετε μια θέση για να τοποθετήσετε τα δεδομένα.
5. κλικ OK, και η επιλογή χωρίστηκε και μεταφέρθηκε με κόμμα.
Διαχωρισμός και μεταφορά με Kutools για Excel
Με Kutools για Excel, μπορείτε να το εφαρμόσετε Διαίρεση κελιών πρώτα για να χωρίσετε τα κελιά με οριοθέτη και μετά να εφαρμόσετε το Μετασχηματισμός εύρους βοηθητικό πρόγραμμα για τη μετατροπή των κελιών σε μία στήλη.
Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. |
Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω :(Δωρεάν λήψη Kutools για Excel τώρα!)
1. Επιλέξτε τα κελιά που θέλετε να διαχωρίσετε και κάντε κλικ στο Kutools > Συγχώνευση & διαχωρισμός > Διαίρεση κελιών. Δείτε το στιγμιότυπο οθόνης:
2. Στο Διαίρεση κελιών διάλογος, ελέγξτε Διαχωρισμός σε στήλες επιλογή και, στη συνέχεια, καθορίστε τον οριοθέτη στον οποίο θέλετε να διαχωρίσετε, κάντε κλικ στο Ok. Και επιλέξτε ένα κενό κελί για να τοποθετήσετε το αποτέλεσμα στο δεύτερο Διαίρεση κελιών διάλογος. Δείτε το στιγμιότυπο οθόνης:
3. κλικ OK, τότε τα κελιά έχουν χωριστεί σε στήλες και, στη συνέχεια, κάντε κλικ στο Kutools > Σειρά > Μετασχηματισμός εύρους. Δείτε το στιγμιότυπο οθόνης:
4. Στο Μετασχηματισμός εύρους διάλογος, ελέγξτε Εύρος έως μία στήλη, Κλίκ Okκαι επιλέξτε ένα κελί για να τοποθετήσετε το αποτέλεσμα. Δείτε το στιγμιότυπο οθόνης:
5. κλικ OK, τώρα το εύρος έχει μεταφερθεί σε μία στήλη.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!