Uporaba pretvorbe ločenih vrednosti VBA
By Gost v torek, 24. decembra 2019
Objavljeno v Excel
odgovori 1
všeč mi je 0
Ogledov 12.3K
Glasov 0
Uporaba VBA za pretvorbo mojega vejičnega niza v vrstice deluje odlično - zdaj pa moram prelom povezati z vrednostjo v stolpcu A. Primer
Stolpec A ima "Drevesa: stolpec B je bil vejica: dren, jesen, javor, brest, jabolka.
Kako se prikažem kot:
[font=Calibri]Trenutna[/ font]
[font=Calibri]Drevesa[/ font][font=Calibri]Dren, jesen, javor, brest, jabolka[/ font]
[font=Calibri]Nimate[/ font]
[font=Calibri]Drevesa[/ font][font=Calibri]Dren[/ font]
[font=Calibri]Drevesa[/ font][font=Calibri]Ash[/ font]
[font=Calibri]Drevesa[/ font][font=Calibri]Maple[/ font]
[font=Calibri]Drevesa[/ font][font=Calibri]Elm[/ font]
[font=Calibri]Drevesa[/ font][font=Calibri]Apple [/font]
Hvala
Javno podbesediloToColumns()
Nastavite ARrange = Range("A:A")
Nastavi BRange = Range("B:B")
Nastavite CRange = Range("C:C")
Nastavi DRange = Range("D:D")
Dim arr() Kot niz
lr = Celice.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Zastavljeno = Delovni listi.Dodaj
out.Name = "out"
izven vrstice = 2
Za i = 2 do lr
    arr = Split(ARrange(i), ",")
    Za j = 0 do 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) = DRrange(i)
        outRow = outRow + 1
    Naslednja j
Naslednja i
End Sub
Nisem naredil glav ali pravilno obdelal izhodnega lista, vendar lahko v bistvu vidite, kaj se dogaja.
Lewis-H
·
Pred 3 leti
·
0 Likes
·
0 Glasovi
·
0 Komentarji
·
Ogled celotne objave