Hi,
Office 365:
=TRANSPOSE(FILTERXML("<a><b>"&SUBSTITUTE(A1," ","</b><b>")&"</b></a>","//b[contains(., '#')]"))
Else, Excel 2013 and later:
=INDEX(FILTERXML("<a><b>"&SUBSTITUTE($A1," ","</b><b>")&"</b></a>","//b[contains(., '#')]"),COLUMNS($A1:A1))
and copied to the right.
Regards