A única maneira de fazer isso em que posso pensar, e não uma que eu já recomende, é alguma combinação de uma função VBA e o evento Worksheet.SelectionChange para interceptar o texto original, o esquilo -lo em algum lugar e substituí-lo com a versão truncada. Se a célula for selecionada no futuro, o texto original será substituído para que possa ser copiado, etc.
Isso seria extremamente confuso, lento e pode até não funcionar satisfatoriamente. Se você tem uma necessidade realmente premente e o leque de células em que isso seria realizado é limitado, então pode valer a pena prosseguir, mas em toda a planilha / pasta de trabalho, esqueça.