Utilizzando il Converti valori separati da virgola VBA
By GUEST il martedì, 24 dicembre 2019
pubblicato in Excel
Risposte 1
Mi piace 0
Visualizzazioni 12.4K
voti 0
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:
[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]
Grazie
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.
Lewis-H
·
anni fa, 3
·
0 Piace
·
0 Voti
·
Commenti
·
Visualizza il post completo