L'uso di VBA per convertire la mia stringa di virgole in righe funziona alla grande, ma ora devo abbinare l'interruzione con il valore nella colonna A. Esempio
La colonna A ha "Alberi: la colonna B era la stringa di virgola: corniolo, frassino, acero, olmo, mela.
Come faccio a visualizzare come:
Grazie
La colonna A ha "Alberi: la colonna B era la stringa di virgola: corniolo, frassino, acero, olmo, mela.
Come faccio a visualizzare come:
| [carattere=Calibri]Corrente[/ Font] | |
| [carattere=Calibri]Alberi[/ Font] | [carattere=Calibri]Corniolo, Frassino, Acero, Olmo, Mela[/ Font] |
| [carattere=Calibri]Bisogno[/ Font] | |
| [carattere=Calibri]Alberi[/ Font] | [carattere=Calibri]Corniolo[/ Font] |
| [carattere=Calibri]Alberi[/ Font] | [carattere=Calibri]Cenere[/ Font] |
| [carattere=Calibri]Alberi[/ Font] | [carattere=Calibri]Acero[/ Font] |
| [carattere=Calibri]Alberi[/ Font] | [carattere=Calibri]Olmo[/ Font] |
| [carattere=Calibri]Alberi[/ Font] | [font=Calibri]Mela [/font] |
Pubblico Sub textToColumns()
Imposta ARange = Intervallo("A:A")
Imposta BRange = Intervallo("B:B")
Imposta CRange = Intervallo("C:C")
Imposta DRange = Intervallo("D:D")
Dim arr() come stringa
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Imposta = Fogli di lavoro.Aggiungi
out.Name = "fuori"
OutRow = 2
Per i = 2 A lr
arr = Dividi(Arange(i), ",")
Per j = 0 A UBound(arr)
out.Cells(outRow, 1) = Taglia(arr(j))
out.Cells(outRow, 2) = BRrange(i)
out.Cells(outRow, 3) = CRange(i)
out.Cells(outRow, 4) = DRange(i)
OutRow = OutRow + 1
Successivo j
Avanti
End Sub
Non ho eseguito le intestazioni o gestito correttamente il foglio di output, ma puoi vedere praticamente cosa sta succedendo.
Imposta ARange = Intervallo("A:A")
Imposta BRange = Intervallo("B:B")
Imposta CRange = Intervallo("C:C")
Imposta DRange = Intervallo("D:D")
Dim arr() come stringa
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Imposta = Fogli di lavoro.Aggiungi
out.Name = "fuori"
OutRow = 2
Per i = 2 A lr
arr = Dividi(Arange(i), ",")
Per j = 0 A UBound(arr)
out.Cells(outRow, 1) = Taglia(arr(j))
out.Cells(outRow, 2) = BRrange(i)
out.Cells(outRow, 3) = CRange(i)
out.Cells(outRow, 4) = DRange(i)
OutRow = OutRow + 1
Successivo j
Avanti
End Sub
Non ho eseguito le intestazioni o gestito correttamente il foglio di output, ma puoi vedere praticamente cosa sta succedendo.
- Pagina :
- 1
Non ci sono ancora risposte per questo post.