Folosirea VBA pentru a converti șirul meu de virgulă în rânduri funcționează grozav, dar acum trebuie să potrivesc întreruperea cu valoarea din coloana A. Exemplu
Coloana A are „Arbori: coloana B a fost șirul de virgulă: Dogwood, Frasin, Arțar, Ulm, Măr.
Cum afișez ca:
mulțumesc
Coloana A are „Arbori: coloana B a fost șirul de virgulă: Dogwood, Frasin, Arțar, Ulm, Măr.
Cum afișez ca:
| [font=Calibri]Curent[/ font] | |
| [font=Calibri]Copaci[/ font] | [font=Calibri]Dogwood, frasin, arțar, ulm, măr[/ font] |
| [font=Calibri]Nevoie[/ font] | |
| [font=Calibri]Copaci[/ font] | [font=Calibri]Dogwood[/ font] |
| [font=Calibri]Copaci[/ font] | [font=Calibri]Frasin[/ font] |
| [font=Calibri]Copaci[/ font] | [font=Calibri]Arțar[/ font] |
| [font=Calibri]Copaci[/ font] | [font=Calibri]Ulm[/ font] |
| [font=Calibri]Copaci[/ font] | [font=Calibri]Mere [/font] |
Public Sub textToColumns()
Set Arange = Range("A:A")
Setați BRrange = Range ("B:B")
Set CRrange = Range("C:C")
Set DRrange = Range ("D:D")
Dim arr() ca șir
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set out = Worksheets.Add
out.Name = "out"
OutRow = 2
Pentru i = 2 To lr
arr = Split(ARrange(i), ",")
Pentru j = 0 La UBound(arr)
out.Cells(outRow, 1) = Trim(arr(j))
out.Cells(outRow, 2) = BRrange(i)
out.Cells(outRow, 3) = CRrange(i)
out.Cells(outRow, 4) = DRrange(i)
outRow = outRow + 1
Următorul j
Apoi eu
End Sub
Nu am făcut antetele sau nu m-am ocupat corect cu foaia de ieșire, dar puteți vedea în principiu ce se întâmplă.
Set Arange = Range("A:A")
Setați BRrange = Range ("B:B")
Set CRrange = Range("C:C")
Set DRrange = Range ("D:D")
Dim arr() ca șir
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set out = Worksheets.Add
out.Name = "out"
OutRow = 2
Pentru i = 2 To lr
arr = Split(ARrange(i), ",")
Pentru j = 0 La UBound(arr)
out.Cells(outRow, 1) = Trim(arr(j))
out.Cells(outRow, 2) = BRrange(i)
out.Cells(outRow, 3) = CRrange(i)
out.Cells(outRow, 4) = DRrange(i)
outRow = outRow + 1
Următorul j
Apoi eu
End Sub
Nu am făcut antetele sau nu m-am ocupat corect cu foaia de ieșire, dar puteți vedea în principiu ce se întâmplă.
- Pagina:
- 1
Nu există răspunsuri făcute pentru acest post.