Split String After 15 Characters

[Ethan]

Hello all,

I'd like to split a string after each 15th character into different cells.
i.e:
a1: hjh3 hjkh khhkjh jkhkh hkghf fg ghf hjkj lj ghjg gkjlh
a2: hjh3 hjkh khhkj
a3: h jkhkh hkghf f
a4: g ghf hjkj lj g
a5: hjg gkjlh

Any ideas?

[mancubus]

hi.

try this.

Sub Split_Into_Equal_Parts()


    Const dlmtr As Long = 15
    Dim length As Long, parts As Long, i As Long
    
    length = Len(Range("A1"))
    
    If length Mod dlmtr = 0 Then
        parts = length \ dlmtr
    Else
        parts = length \ dlmtr + 1
    End If
    
    For i = 0 To parts - 1
        Range("A" & i + 1).Offset(1) = Mid(Range("A1"), (i * dlmtr) + 1, dlmtr)
    Next


End Sub

[Ethan]

Thanks!

[mancubus]

you are welcome.