Cómo eliminar espacios entre palabras usando vba excel

0

Apreciaría enormemente alguna ayuda para descubrir cómo eliminar los espacios entre las palabras. Solo necesitaré apuntar a lo que sea que esté en la celda "A1", por ejemplo, si tengo "Next Ex" en la celda, quiero que la macro la cambie a "NextEx". Ejecutaré esto en varias hojas, por eso una fórmula no sería mi mejor opción.

microsoft-excel microsoft-excel-2010 vba Eric
fuente
Uso uso SUBSTITUTE() o REPLACE() en un bucle.
BruceWayne
Eso es por la respuesta. Cómo se vería el código porque no estoy familiarizado con el uso de ninguno de los dos. Gracias.
Eric
1
Para comenzar, lea algunas de las diversas preguntas sobre el uso de bucles en VBA: superuser.com/search?q=vba+loop+through+worksheets . Necesitará modificar el código: haga una fiesta y, si tiene problemas, edite su pregunta para preguntar algo específico sobre la parte del código que no hace lo que necesita.
Andi Mohr
(1) Otro buen punto de partida es la ayuda integrada de Excel. (2) ¿Quieres en realidad cambio valores en celdas? Si es así, una fórmula no es una opción en absoluto. Debe comprenderlo y nos ayuda a todos si tiene claros sus requisitos. (3) ¿Es tu pregunta más complicada de lo que has descrito, o menos? Si quieres eliminar todos los espacios en un valor de texto, solo di eso. "Eliminar los espacios entre las palabras" suena como si pudiera ser algo más complicado y sutil. ... (Cont)
Scott
(Continuación) ... (4) Si desea tomar el valor en A1 y monitor con todos los espacios eliminados en alguna otra celda (como A2 o Q42 ) en cada hoja, que no requiere un bucle y se puede hacer fácilmente con una fórmula. Cuanto mejor describa sus requisitos, mejor podremos responderle.
Scott

Respuestas:

2

Considerar: 

Sub NoSpace()
    Dim sh As Worksheet
    For Each sh In Sheets
        sh.Range("A1").Replace what:=" ", replacement:=""
    Next sh
End Sub
Gary's Student
fuente
Simplemente probé y funcionó. ¡Gracias!
Eric
1

VBA: 

Dim cellText As String
cellText = [Get Cell Text From Worksheet]
cellText = Replace(cellText," ", "")

Fórmula: 

=SUBSTITUTE(A1," ","")
Kaz
fuente
1

VBA:

Join(Split(Range("A1").Value, " "), "")

Split ( Doc ) cadena en la matriz usando "" (espacio) como delimitador; Join ( Doc ) matriz en cadena usando "" (cadena vacía) como delimitador.

Yorik
fuente