Verwenden Sie die Option Komma konvertieren separate Werte VBA
By GUEST am Dienstag, 24. Dezember 2019
Veröffentlicht in Excel
Antworten 1
Likes 0
Views 12.3k
Bewertungen 0
Die Verwendung von VBA zum Konvertieren meiner Kommazeichenfolge in Zeilen funktioniert hervorragend - aber jetzt muss ich den Ausbruch mit dem Wert in Spalte A abgleichen. Beispiel
Spalte A hat "Bäume: Spalte B war die Kommafolge: Hartriegel, Esche, Ahorn, Ulme, Apfel.
Wie zeige ich an als:
[font=Calibri]Strom[/Schriftart]
[font=Calibri]Bäume[/Schriftart][font=Calibri]Hartriegel, Esche, Ahorn, Ulme, Apfel[/Schriftart]
[font=Calibri]Need[/Schriftart]
[font=Calibri]Bäume[/Schriftart][font=Calibri]Hartriegel[/Schriftart]
[font=Calibri]Bäume[/Schriftart][font=Calibri]Asche[/Schriftart]
[font=Calibri]Bäume[/Schriftart][font=Calibri]Ahorn[/Schriftart]
[font=Calibri]Bäume[/Schriftart][font=Calibri]Ulme[/Schriftart]
[font=Calibri]Bäume[/Schriftart][font=Calibri]Apfel [/font]
Vielen Dank.
Öffentlicher UntertextToColumns()
Setze ARange = Range("A:A")
Set BRange = Range("B:B")
Setze CRange = Range("C:C")
Setze DRange = Range("D:D")
Dim arr() als String
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set out = Worksheets.Hinzufügen
out.Name = "aus"
outRow = 2
Für i = 2 bis lr
    arr = Split(ARange(i), ",")
    Für j = 0 zu 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
    Weiter j
Weiter ich
End Sub
Ich habe die Überschriften nicht gemacht oder mich nicht richtig mit dem Ausgabeblatt befasst, aber Sie können im Grunde sehen, was los ist.
Lewis-H
·
3 Jahren
·
0 Likes
·
0 Stimmen
·
0 Kommentare
·
Vollständigen Beitrag anzeigen