Dividere stringa con macro



  • 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