Η χρήση του VBA για τη μετατροπή της συμβολοσειράς με κόμματα σε σειρές λειτουργεί άψογα- αλλά τώρα πρέπει να αντιστοιχίσω το ξεκάθαρο με την τιμή στη στήλη Α. Παράδειγμα
Η στήλη Α έχει "Δέντρα: Η στήλη Β ήταν η συμβολοσειρά κόμματος: Dogwood, Ash, Maple, Elm, Apple.
Πώς εμφανίζω ως:
Ευχαριστούμε
Η στήλη Α έχει "Δέντρα: Η στήλη Β ήταν η συμβολοσειρά κόμματος: Dogwood, Ash, Maple, Elm, Apple.
Πώς εμφανίζω ως:
| [font=Calibri]Ρεύμα[/ Font] | |
| [font=Calibri]Δέντρα[/ Font] | [font=Calibri]Dogwood, Ash, Maple, Elm, Apple[/ Font] |
| [font=Calibri]Ανάγκη[/ Font] | |
| [font=Calibri]Δέντρα[/ Font] | [font=Calibri]Κρανιά[/ Font] |
| [font=Calibri]Δέντρα[/ Font] | [font=Calibri]Φλαμουριά[/ Font] |
| [font=Calibri]Δέντρα[/ Font] | [font=Calibri]Σφεντάμι[/ Font] |
| [font=Calibri]Δέντρα[/ Font] | [font=Calibri]φτελιά[/ Font] |
| [font=Calibri]Δέντρα[/ Font] | [font=Calibri]Μήλο [/font] |
Public Sub textToColumns()
Ορισμός ARange = Εύρος ("A:A")
Ορισμός BRange = Εύρος ("B:B")
Ρύθμιση CRange = Range ("C:C")
Ορισμός DRange = Εύρος ("D:D")
Dim arr() Ως συμβολοσειρά
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Σειρά
Set out = Φύλλα εργασίας.Προσθήκη
out.Name = "έξω"
OutRow = 2
Για i = 2 Προς lr
arr = Split(ARange(i), ",")
Για j = 0 To UBound(arr)
out.Cells(outRow, 1) = Trim(arr(j))
out.Cells(outRow, 2) = BRange(i)
out.Cells(outRow, 3) = CRange(i)
out.Cells(outRow, 4) = DRange(i)
OutRow = OutRow + 1
Επόμενο j
Επόμενο i
Sub End
Δεν έκανα τις κεφαλίδες ή δεν ασχολήθηκα σωστά με το φύλλο εξόδου, αλλά μπορείτε να δείτε βασικά τι συμβαίνει.
Ορισμός ARange = Εύρος ("A:A")
Ορισμός BRange = Εύρος ("B:B")
Ρύθμιση CRange = Range ("C:C")
Ορισμός DRange = Εύρος ("D:D")
Dim arr() Ως συμβολοσειρά
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Σειρά
Set out = Φύλλα εργασίας.Προσθήκη
out.Name = "έξω"
OutRow = 2
Για i = 2 Προς lr
arr = Split(ARange(i), ",")
Για j = 0 To UBound(arr)
out.Cells(outRow, 1) = Trim(arr(j))
out.Cells(outRow, 2) = BRange(i)
out.Cells(outRow, 3) = CRange(i)
out.Cells(outRow, 4) = DRange(i)
OutRow = OutRow + 1
Επόμενο j
Επόμενο i
Sub End
Δεν έκανα τις κεφαλίδες ή δεν ασχολήθηκα σωστά με το φύλλο εξόδου, αλλά μπορείτε να δείτε βασικά τι συμβαίνει.
- σελίδα:
- 1
Δεν υπάρχουν ακόμη απαντήσεις για αυτήν την ανάρτηση.