Novo

Uporaba pretvorbe ločenih vrednosti VBA

  Excel
čolnarji
  čolnarji
  Torek, december 24 2019
  1 odgovori
  12.3 tisoč obiskov
0
Glasov
Razveljavi
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
0
Najprej najstarejše Najprej  
Lewis-H
Lewis-H
Pred 3 leti
·
#2048
0
Glasov
Razveljavi
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.
  • Stran:
  • 1
Za to objavo še ni odgovorov.