Dividere stringa con macro
Hai un problema con Excel? 
Dividere stringa con macro
di Guybrush (utente non iscritto) data: 23/03/2016 12:34:45
Salve a tutti,
avrei bisogno di una breve consulenza:
Nella colonna "A" ho una serie di stringe di questo tipo:
xx(12)+yy(54)+zz(88)
xx(55)+yy(1)+zz(3)+kk(43)
Di diverse lunghezze.
Io avrei bisogno che nelle colonne B, C, D , E ecc (in base alla lunghezza della stringa) ci fossero le parti della stringa separate dal "+"
Esempio:
Colonna A:
xx(12)+yy(54)+zz(88)
Colonna B:
xx(12)
Colonna C:
yy(54)
Colonna D:
zz(88)
Spero di essere stato abbastanza chiaro. Vi ringrazio anticipatamente per l'aiuto.
Saluti
di patel data: 23/03/2016 12:58:32
eccola
Sub a()
LR = Cells(Rows.Count, "A").End(xlUp).Row
For r = 1 To LR
s = Cells(r, 1)
arr = Split(s, "+")
For c = 0 To UBound(arr)
Cells(r, c + 2) = arr(c)
Next
Next
End Sub |
Vuoi Approfondire?