Πίνακας περιεχομένων
Αυτό το σεμινάριο θα δείξει πώς να χωρίσετε συμβολοσειρές σε κελιά.
Διαχωρισμός συμβολοσειράς σε κελιά
Στο VBA, μπορούμε να χρησιμοποιήσουμε τη λειτουργία Split για να χωρίσουμε μια συμβολοσειρά κειμένου σε πίνακα.
Σημείωση: Γράψαμε έναν ολόκληρο mega-guide για τη χρήση της λειτουργίας Split στο VBA. Σας συνιστούμε ανεπιφύλακτα να το ελέγξετε.
Στη συνέχεια, μπορούμε να κάνουμε βρόχο στον πίνακα, εξάγοντας το διαχωρισμένο κείμενο σε κελιά Excel:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample ()«Ορισμός μεταβλητώνDim MyArray () As String, MyString As String, I As Variant, N As Integer«Δείγμα συμβολοσειράς με οριοθετητές ημι -παχέος εντέρουMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'Χρησιμοποιήστε τη λειτουργία Split για να χωρίσετε τα συστατικά μέρη της συμβολοσειράςMyArray = Split (MyString, ";")«Διαγράψτε το φύλλο εργασίαςActiveSheet.UsedRange.Clear«επαναλάβετε μέσω του πίνακαΓια N = 0 To UBound (MyArray)«Τοποθετήστε κάθε διεύθυνση ηλεκτρονικού ταχυδρομείου στην πρώτη στήλη του φύλλου εργασίαςΕύρος ("A" & N + 1) .Value = MyArray (N)Επόμενο ΝΤέλος υπο |
Εναλλακτικά, μπορούμε να χρησιμοποιήσουμε τη συνάρτηση μεταφοράς για να εξάγουμε τον πίνακα σε ένα φύλλο εργασίας:
| 12345678910111213 | Sub CopyToRange ()«Δημιουργήστε μεταβλητέςDim MyArray () As String, MyString As String«Δείγμα συμβολοσειράς με οριοθέτες χώρουMyString = "Ένα, δύο, τρία, τέσσερα, πέντε, έξι"'Χρησιμοποιήστε τη λειτουργία Split για να χωρίσετε τα συστατικά μέρη της συμβολοσειράςMyArray = Split (MyString, ",")'Αντιγράψτε τον πίνακα στο φύλλο εργασίαςΕύρος ("A1: A" & UBound (MyArray) + 1). Value = WorksheetFunction.Transpose (MyArray)Τέλος υπο |
