Med hjälp av konvertera komma separata värden VBA
By Gäst tisdagen den 24 december 2019
Inlagd i excel
svar 1
Gillar 0
Visningar 12.5K
Röster 0
Att använda VBA för att konvertera min kommasträng till rader fungerar utmärkt - men nu måste jag matcha brytningen med värdet i kolumn A. Exempel
Kolumn A har "Träd: Kolumn B var kommatecken: Kornell, ask, lönn, alm, äpple.
Hur visar jag som:
[font=Calibri]Aktuella[/ Teckensnitt]
[font=Calibri]Träd[/ Teckensnitt][font=Calibri]Kornell, ask, lönn, alm, äpple[/ Teckensnitt]
[font=Calibri]Behöver[/ Teckensnitt]
[font=Calibri]Träd[/ Teckensnitt][font=Calibri]Dogwood[/ Teckensnitt]
[font=Calibri]Träd[/ Teckensnitt][font=Calibri]Ash[/ Teckensnitt]
[font=Calibri]Träd[/ Teckensnitt][font=Calibri]Lönn[/ Teckensnitt]
[font=Calibri]Träd[/ Teckensnitt][font=Calibri]alm[/ Teckensnitt]
[font=Calibri]Träd[/ Teckensnitt][font=Calibri]Apple [/font]
Tack
Public Sub textToColumns()
Ange ARange = Range("A:A")
Ange BRange = Range("B:B")
Ställ in CRange = Range("C:C")
Ställ in DRange = Range("D:D")
Dim arr() Som sträng
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set out = Arbetsblad. Lägg till
out.Name = "ut"
outRow = 2
För i = 2 Till lr
    arr = Split(ARange(i), ","")
    För j = 0 Till 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
    Nästa j
Nästa jag
End Sub
Jag gjorde inte rubrikerna eller hanterade utdataarket ordentligt men du kan se i princip vad som händer.
Lewis-H
·
3 år sedan
·
0 Likes
·
0 Röster
·
0 Kommentarer
·
Visa hela inlägget