A VBA használata a vesszőkarakterláncom sorokká alakítására remekül működik – de most össze kell egyeztetnem a kitörést az A oszlopban lévő értékkel. Példa
Az A oszlopban a következő szerepel: "Fák: A B oszlopban a vessző volt: Dogwood, Ash, Maple, Elm, Apple.
Hogyan jeleníthetem meg:
Köszönöm
Az A oszlopban a következő szerepel: "Fák: A B oszlopban a vessző volt: Dogwood, Ash, Maple, Elm, Apple.
Hogyan jeleníthetem meg:
| [font=Calibri]Jelenlegi[/ Font] | |
| [font=Calibri]Fák[/ Font] | [font=Calibri]Dogfa, kőris, juhar, szil, alma[/ Font] |
| [font=Calibri]Szükség[/ Font] | |
| [font=Calibri]Fák[/ Font] | [font=Calibri]Somfa[/ Font] |
| [font=Calibri]Fák[/ Font] | [font=Calibri]Hamu[/ Font] |
| [font=Calibri]Fák[/ Font] | [font=Calibri]Juharfa[/ Font] |
| [font=Calibri]Fák[/ Font] | [font=Calibri]szilfa[/ Font] |
| [font=Calibri]Fák[/ Font] | [font=Calibri]Apple [/font] |
Nyilvános alszövegToColumns()
ARange beállítása = Tartomány("A:A")
BRange beállítása = Tartomány("B:B")
CRange beállítása = Tartomány("C:C")
DRange beállítása = Tartomány("D:D")
Dim arr() As String
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Sor
Set out = Munkalapok.Hozzáadás
out.Name = "out"
outSor = 2
Ha i = 2 To lr
arr = Felosztás(ARrange(i), ",")
j = 0 - UBound(arr) esetén
ki.Cells(outSor, 1) = Trim(arr(j))
ki.Cells(outSor, 2) = BTartomány(i)
ki.Cells(outSor, 3) = CRange(i)
ki.Cells(outSor, 4) = DRange(i)
outRow = outRow + 1
Következő j
Következő i
End Sub
Nem csináltam meg a fejléceket és nem foglalkoztam megfelelően a kimeneti lappal, de alapvetően láthatod, hogy mi történik.
ARange beállítása = Tartomány("A:A")
BRange beállítása = Tartomány("B:B")
CRange beállítása = Tartomány("C:C")
DRange beállítása = Tartomány("D:D")
Dim arr() As String
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Sor
Set out = Munkalapok.Hozzáadás
out.Name = "out"
outSor = 2
Ha i = 2 To lr
arr = Felosztás(ARrange(i), ",")
j = 0 - UBound(arr) esetén
ki.Cells(outSor, 1) = Trim(arr(j))
ki.Cells(outSor, 2) = BTartomány(i)
ki.Cells(outSor, 3) = CRange(i)
ki.Cells(outSor, 4) = DRange(i)
outRow = outRow + 1
Következő j
Következő i
End Sub
Nem csináltam meg a fejléceket és nem foglalkoztam megfelelően a kimeneti lappal, de alapvetően láthatod, hogy mi történik.
- Oldal:
- 1
Erre a bejegyzésre még nem válaszoltak.