Używanie VBA do konwersji mojego ciągu przecinków na wiersze działa świetnie, ale teraz muszę dopasować wybicie z wartością w kolumnie A. Przykład
Kolumna A ma „Drzewa: Kolumna B to ciąg przecinków: Dereń, Jesion, Klon, Wiąz, Jabłoń.
Jak wyświetlić jako:
Dziękuję Ci
Kolumna A ma „Drzewa: Kolumna B to ciąg przecinków: Dereń, Jesion, Klon, Wiąz, Jabłoń.
Jak wyświetlić jako:
| [czcionka=Calibri]Aktualny[/czcionka] | |
| [czcionka=Calibri]Drzewa[/czcionka] | [czcionka=Calibri]Dereń, jesion, klon, wiąz, jabłko[/czcionka] |
| [czcionka=Calibri]Potrzebować[/czcionka] | |
| [czcionka=Calibri]Drzewa[/czcionka] | [czcionka=Calibri]Dereń[/czcionka] |
| [czcionka=Calibri]Drzewa[/czcionka] | [czcionka=Calibri]Jesion[/czcionka] |
| [czcionka=Calibri]Drzewa[/czcionka] | [czcionka=Calibri]Klon[/czcionka] |
| [czcionka=Calibri]Drzewa[/czcionka] | [czcionka=Calibri]Wiąz[/czcionka] |
| [czcionka=Calibri]Drzewa[/czcionka] | [font=Calibri]Apple [/font] |
Public Sub textDoKolumn()
Ustaw ARzakres = Zakres("A:A")
Ustaw BRzakres = zakres("B:B")
Ustaw CRzakres = Zakres("C:C")
Ustaw DRzakres = zakres("D:D")
Dim arr() jako ciąg znaków
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Wyznaczone = Worksheets.Add
out.Nazwa = "out"
wiersz wyjściowy = 2
Dla i = 2 To lr
arr = Split(ARzakres(i), ",")
Dla j = 0 Do UBound(arr)
out.Cells(outRow, 1) = Przytnij(arr(j))
out.Cells(outRow, 2) = BRzakres(i)
out.Cells(outRow, 3) = CRzakres(i)
out.Cells(outRow, 4) = DRzakres(i)
OutRow = outRow + 1
Następny j
Dalej i
End Sub
Nie zrobiłem nagłówków ani nie poradziłem sobie właściwie z arkuszem wyjściowym, ale zasadniczo możesz zobaczyć, co się dzieje.
Ustaw ARzakres = Zakres("A:A")
Ustaw BRzakres = zakres("B:B")
Ustaw CRzakres = Zakres("C:C")
Ustaw DRzakres = zakres("D:D")
Dim arr() jako ciąg znaków
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Wyznaczone = Worksheets.Add
out.Nazwa = "out"
wiersz wyjściowy = 2
Dla i = 2 To lr
arr = Split(ARzakres(i), ",")
Dla j = 0 Do UBound(arr)
out.Cells(outRow, 1) = Przytnij(arr(j))
out.Cells(outRow, 2) = BRzakres(i)
out.Cells(outRow, 3) = CRzakres(i)
out.Cells(outRow, 4) = DRzakres(i)
OutRow = outRow + 1
Następny j
Dalej i
End Sub
Nie zrobiłem nagłówków ani nie poradziłem sobie właściwie z arkuszem wyjściowym, ale zasadniczo możesz zobaczyć, co się dzieje.
- Strony:
- 1
Nie ma jeszcze odpowiedzi na ten post.