Split text into letters along column without spaces

[sofas]

Hello. Is there a way or possibility to get Macro or formula to split text into letters along a column without spaces

 

[Herakles]

Does this work?

Use this formula in A2 and copy it across and down.

=IF((ROW()-1)<=LEN(SUBSTITUTE(A$1," ","")),MID(SUBSTITUTE(A$1," ",""),ROW()-1,1),"")

 

[sofas]

Does this work?

Use this formula in A2 and copy it across and down.

=IF((ROW()-1)<=LEN(SUBSTITUTE(A$1," ","")),MID(SUBSTITUTE(A$1," ",""),ROW()-1,1),"")

it's really what i need thank you very much

 

[Peter_SSs]

it's really what i need thank you very much

Just a cautionary note: If you subsequently decided to add any new rows at the top of the worksheet, that formula would return incorrect results. Example:

23 06 04.xlsm
	A	B
1
2	douplicata	Macro to split
3	o	a
4	u	c
5	p	r
6	l	o
7	i	t
8	c	o
9	a	s
10	t	p
11	a	l
12		i
13		t
14
Letters

Cell Formulas
Range	Formula
A3:B14	A3	=IF((ROW()-1)<=LEN(SUBSTITUTE(A$2," ","")),MID(SUBSTITUTE(A$2," ",""),ROW()-1,1),"")

Here is a simpler formula and it also eliminates the above potential problem.

23 06 04.xlsm
	A	B
1	douplicata	Macro to split
2	d	M
3	o	a
4	u	c
5	p	r
6	l	o
7	i	t
8	c	o
9	a	s
10	t	p
11	a	l
12		i
13		t
14
Letters (2)

Cell Formulas
Range	Formula
A2:B14	A2	=MID(SUBSTITUTE(A$1," ",""),ROWS(A$2:A2),1)