Eu uso o suplemento do regex gratuito que adiciona funcionalidade de expressão regular no Excel, com o que você obtém funções com regex:
=RegExReplace(RegExReplace(A1,"(\D)+",","),",?(.*[^,]),?","$1")
- função interna converte números não para
,
- função externa remove o início acidental e o final
,
s