Format text in cell to view with spaces?

Originally Posted by nkoichev

Can I format a cell with text inside to show the text with spaces between some characters?

EXM: The text in A1 is "ABCDEFG". I want to see it "AB CD EF G" or "ABC DEF G".

you can use function to do this
if your data is in A1 put in B1

=MID(A1,1,2)&" "&MID(A1,3,2)&" "&MID(A1,5,2)&" "&MID(A1,7,2)

Regards.

Here is a different flavor

Sub separate()
rowcount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
For i = 1 To rowcount
Range("a" & i).Select
valu = ActiveCell.Value
len_valu = Len(valu)
For counter = 1 To len_valu
'2 letters if you want 3 letters change 2 to 3 if the following line
car = Mid(valu, counter, 2)
total = total + " " + car
counter = counter + 1
Next
'MsgBox total
total = " "
len_valu = " "
Next

End Sub