Transcribir en excel una Cadena y agregar espacio entre Letras
Sres. T.E.
La Consulta es la siguiente:
Necesito una pequeña macro "No una Fórmula" que al transcribir una cadena intercale un espacio entre Letras ejemplo:
Cadena: Todoexpertos
Resultado: T o d o e x p e r t o s
Como pueden observar la cadena
Nota: Utilizo Excel 2003
1 respuesta
Respuesta de Elsa Matilde
1
Esta macro realiza lo que solicitas. Como no supe cómo le indicarás a la macro el texto a convertir lo imaginé tomado de la celda A1. Ajusta este detalle.
Sub espaciado() 'x Elsamatilde 'la cadena se toma de A1 de la hoja activa - Ajustar cadena = ActiveSheet.[A1] 'se extrae cada caracter en otra variable intercalando espacios For i = 1 To Len(cadena) nvotexto = nvotexto & Mid(cadena, i, 1) & " " Next i 'se quita espacio final nvotexto = RTrim(nvotexto) End Sub
Sdos. No olvides valorar la respuesta si el tema queda resuelto.
¡Gracias!
La repuesta es justamente la que necesitaba
Saludos
Debes valorar la respuesta para darla por cerrada (Buena o Excelente) (ver imagen).
Sdos!
