Contanto que sejam números, o Excel pode fornecer formatação especial. Caso contrário, temo que não haja maneira de contornar as fórmulas ou o VBA.
Quanto à sua fórmula, ela pode ser reduzida um pouco:
=TEXT(LEFT(A1,FIND(".",A1)-1),"00000.")&TEXT(RIGHT(A1,LEN(A1)-FIND(".",A1)),"0000.0")
Algumas coisas que usei aqui:
-
&
pode ser usado para concatenar em vez de=CONCATENATE()
. -
O último parâmetro do
FIND()
é opcional e, embora você o tenha omitido no segundoFIND()
, você o usou no primeiro, sem saber por quê. - Eu removi o ponto no meio, porque você pode adicionar isso na formatação personalizada de
TEXT()
Mas sim, ainda é um pouco difícil de lembrar.