formula needed to insert space between every text character in a cell

[usamampk]

i have data in a cell, what i want is a formula that can insert a space between every text character, like

Data in cell= abcdefghijklmnopqrs

Required format = a b c d e f g h i j k l m n o p q r s

the image file is attached

Please help

 

[Sam_D_Ben]

Try =CONCAT(MID(A4,SEQUENCE(LEN(A4)),1)&" ")

 

[usamampk]

Try =CONCAT(MID(A4,SEQUENCE(LEN(A4)),1)&" ")

View attachment 91117

is it possible to get the formula without function "SEQUENCE"?
Thanks

 

[Sam_D_Ben]

Well, Please try scripting.

 

[kweaver]

In think using 2013, you'll have to use a UDF like this:

Function AddSpace(Str As String) As String
    Dim i As Long
    For i = 1 To Len(Str)
        AddSpace = AddSpace & Mid(Str, i, 1) & " "
    Next i
    AddSpace = Trim(AddSpace)
End Function

For example: =AddSpace(A1)

 

[kweaver]

Rick Rothstein has a clever alternative.

Function InsertSpaces(S As String) As String
  InsertSpaces = Trim(Replace(StrConv(S, vbUnicode), Chr(0), " "))
End Function