Extract multiple numbers from an horizontal string to vertical cells

[JohnBi]

Hello to everybody
I have many of "25918, 26012, 26188,26506,26824,26964" strings where, btwn numbers there is a comma only or a comma plus a space.
Is there a formula to extract each group of numbers in a cell like the picture? At the moment I am doing "data to column" and then "copy-paste/transpose".
Thank you for your help and time.
Regards
John

 

[Fluff]

What version of Excel are you using?

I suggest that you update your Account details (or click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

 

[JohnBi]

Office 2019.
Regards. John

 

[mohadin]

Hi
For one range A1
a VBA

Sub test()
Dim x
x = Split(Cells(1, 1), ",")
Cells(2, 1).Resize(UBound(x)) = Application.Transpose(x)

End Sub

 

[Fluff]

Thanks for that.
How about

Fluff.xlsm
	A
1
2	25918, 26012, 26188,26506,26824,26964
3
4	25918
5	26012
6	26188
7	26506
8	26824
9	26964
10
11
Master

Cell Formulas
Range	Formula
A4:A11	A4	=IFERROR(FILTERXML("<k><m>"&SUBSTITUTE($A$2,",","</m><m>")&"</m></k>","//m["&ROWS(A$4:A4)&"]"),"")

The formula may need to be confirmed with Ctrl Shift Enter.

 

[JohnBi]

Hi,
can I ask you please to confirm the formula, as I can see some Html code:
=IFERROR(FILTERXML(SUBSTITUTE($A$2,",","),ROWS(A$4:A4)),"")

Thanks for your help.
Regards
John

 

[Fluff]

I can see some Html code

It's XML code & it needs to be there.

 

[JohnBi]

Hi
For one range A1
a VBA

Sub test()
Dim x
x = Split(Cells(1, 1), ",")
Cells(2, 1).Resize(UBound(x)) = Application.Transpose(x)

End Sub

Thank you for your suggestion, it works fine.
John

 

[JohnBi]

Thanks to you as well for your suggestion, it works fine and I was not aware about the "Filterxml" function. Very interesting.
John

 

[Fluff]

Glad we could help & thanks for the feedback.