Note: The other languages of the website are Google-translated. Back to English

Excel agrega texto y número en la posición especificada de la celda

En Excel, agregar textos o números a las celdas es un trabajo muy común. Como agregar espacios entre nombres, agregar prefijos o sufijos a las celdas, agregar guiones a los números sociales. Aquí, en este tutorial, enumera casi todos los escenarios de adición en Excel y proporciona los métodos correspondientes para usted.

Las navegaciones de este tutorial

1. Agregar al inicio de cada celda

1.1 Agregar al comienzo de las celdas usando la fórmula

1.2 Añadir al principio de las celdas por Flash Fill

1.3 Agregar al comienzo de las celdas usando el código VBA

2. Agregar al final de cada celda

2.1 Agregar al final de las celdas usando la fórmula

2.2 Agregar al final de las celdas mediante Flash Fill

2.3 Agregar al final de las celdas usando el código VBA

3. Añadir a la mitad de la cadena

3.1 Agregar después del enésimo carácter de cadena por fórmula

3.2 Agregar después del carácter n de la cadena mediante Flash Fill

3.3 Agregue después del carácter n de la cadena usando el código VBA

4. Agregue texto con Kutools para Excel (agregue caracteres a una posición específica según lo necesite)

4.1 Agregar texto antes del primer carácter o después del último carácter

4.2 Agregar texto en la(s) posición(es) especificada(s)

4.3 Extensión de la utilidad Agregar texto

5. Agregue texto antes o después del primer texto específico

5.1 Añadir texto antes del primer texto específico

5.2 Agregar texto después del primer texto específico

6. Agregue caracteres antes o después de cada palabra

6.1 Agregar carácter(es) antes o después de cada palabra por fórmula

6.2 Agregar carácter(es) antes o después de cada palabra mediante Buscar y reemplazar

6.3 Agregar carácter(es) antes o después de cada palabra por código VBA

7. Agrega texto entre caracteres

7.1 Agregue texto entre cada carácter/dígito con la función definida por el usuario

7.2 Agregar espacio entre cada número con fórmula

8. Agrega carácter(es) entre cada palabra

9. Agrega caracteres entre textos y números

9.1 Agregar carácter entre textos y números con fórmula

9.2 Agregar caracteres entre textos y números con Flash Fill

10. Agregue guiones a números de teléfono/números sociales

10.1 Agregar guiones a números por fórmula

10.2 Agregar guiones a los números por formato de celdas

10.3 Agregue guiones al número de teléfono agregando texto de Kutools para Excel

11. Agregue ceros iniciales a las celdas para corregir la longitud

11.1 Agregue ceros iniciales a las celdas con la función Formato de celdas

11.2 Agregar ceros a la izquierda de las celdas con fórmula

12. Agregue ceros finales a los números para fijar la longitud

13. Agregue un espacio final al texto

14. Agregue comillas/corchetes alrededor del texto o los números

14.1 Agregue comillas/corchetes alrededor de las celdas de formato

14.2 Agregar comillas/corchetes alrededor de las fórmulas

14.3 Agregar comillas/corchetes por VBA

15. Agregue texto al resultado de la fórmula directamente

Nota:

En este tutorial, creo algunos ejemplos para explicar los métodos, puede cambiar las referencias que necesita cuando usa el código o las fórmulas de VBA a continuación, o puede descargar los ejemplos para probar los métodos directamente.

muestra de docHaga clic para descargar el archivo de muestra


1. Agregar al inicio de cada celda

Esta parte enumera diferentes métodos para agregar caracteres al comienzo de cada celda, como se muestra a continuación:
documento agregar al inicio 1

1.1 Agregar al comienzo de las celdas usando la fórmula


Aquí puede elegir una de las siguientes tres fórmulas:

Operador de concatenación de fórmula 1 "&"

Une varios textos con un carácter de ampersand "&".

"texto" y celda

Función CONCATENAR Formula2

La función CONCATENAR se utiliza para unir textos.

CONCATENAR("texto",celda)

Función CONCAT de Fórmula 3

Esta es una nueva función que solo aparece en Excel 2019, Office 365 y Excel en línea.

CONCAT("texto",celda)

En las fórmulas genéricas: celda es la referencia de celda al texto al que desea agregar un prefijo, y texto es el texto que solía agregar a la celda.

Usando el ejemplo anterior, puede usar las fórmulas en la barra de fórmulas como estas:

"&"

=$E$3&B3 or ="Iphone"&B3

Función de CONCATENAR

=CONCATENAR($E$3,B3) or =CONCATENAR("Iphone",B3)

Función CONCAT

= CONCAT ($ E $ 3, B3) or =CONCAT("Iphone",B3)

Prensa Enviar para obtener el resultado, luego arrastre el controlador de autocompletar hacia abajo para agregar texto a cada celda del rango B3: B6.
documento agregar al inicio 1

 Atención: El texto debe estar entre comillas dobles o la fórmula devuelve un valor de error #¿NOMBRE?. Si usa la referencia de celda a un texto, recuerde usar la referencia absoluta, puede presionar la tecla F4 para cambiar la referencia relativa a referencia absoluta.

1.2 Añadir al principio de las celdas por Flash Fill


Si está en Excel 2013 o versiones posteriores, la nueva y poderosa función, Relleno flash, puede llenar las celdas en función de las celdas anteriores que ingresó automáticamente.

Elija una celda junto a los primeros datos originales, escriba manualmente los primeros datos con el texto de prefijo como se muestra a continuación:
documento agregar al inicio 1

Luego, en la celda a continuación, continúe escribiendo los segundos datos con el texto del prefijo, durante la escritura, se mostrará una lista en color gris, presione Enviar para permitir que Flash Fill llene los datos automáticamente.
documento agregar al inicio 1documento agregar al inicio 1

Si la lista de vista previa no se genera, vaya a la pestaña Inicio y luego haga clic en Llene > Relleno flash para ejecutarlo manualmente.

1.3 Agregar al comienzo de las celdas usando el código VBA


Si está familiarizado con el código VBA, aquí se presenta un código VBA para agregar texto al comienzo de cada celda en un rango.

1. Seleccione un rango de celdas al que desea agregar el texto de prefijo, luego presione otro + F11 claves para habilitar el Microsoft Visual Basic para aplicaciones ventana.

2. Luego, en la ventana emergente, haga clic en recuadro > Módulo para insertar un nuevo módulo en blanco.
documento agregar al inicio 1

3. Copie y pegue el código VBA a continuación en el nuevo módulo.

VBA: agregar al comienzo de las celdas

Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub
 Atención: en el script de código, iphone es el texto que desea agregar al comienzo de las celdas seleccionadas, cámbielo según sus necesidades.

documento agregar al inicio 1

4. Prensa F5 tecla o clic Corraldocumento agregar al inicio 1 en la ventana para activar el código VBA.

Ahora a todas las celdas seleccionadas se les ha agregado el texto "Iphone" al principio.
documento agregar al inicio 1


2. Agregar al final de cada celda

Excepto agregar texto al inicio de las celdas, también es común agregar texto al final de las celdas. Aquí tomamos la unidad de adición al final de cada celda para ver ejemplos como se muestra a continuación:
documento agregar al final 1

2.1 Agregar al final de las celdas usando la fórmula


Aquí puede elegir una de las siguientes tres fórmulas:

Operador de concatenación de fórmula 1 "&"

Une varios textos con un carácter de ampersand "&".

Celda&"texto"

Función CONCATENAR Formula2

La función CONCATENAR se utiliza para unir textos.

CONCATENAR(celda,"texto")

Función CONCAT de Fórmula 3

Esta es una nueva función que solo aparece en Excel 2019, Office 365 y Excel en línea.

CONCAT(celda,"texto")

En las fórmulas genéricas: celda es la referencia de celda al texto al que desea agregar el sufijo, y texto es el texto que solía agregar a la celda.

Usando el ejemplo anterior, puede usar las fórmulas en la barra de fórmulas como estas:

"&"

=B3&$E$3 or =B3&"Kg"

Función de CONCATENAR

=CONCATENAR(B3, $E$3) or =CONCATENAR(B3, "Kg")

Función CONCAT

=CONCAT(B3, $E$3) or =CONCAT(B3, "Kg")

Prensa Enviar para obtener el resultado, luego arrastre el controlador de autocompletar hacia abajo para agregar texto al final de cada celda del rango B3: B6.
documento agregar al final 1

 Atención: El texto debe estar entre comillas dobles o la fórmula devuelve un valor de error #¿NOMBRE?. Si usa la referencia de celda a un texto, recuerde usar la referencia absoluta, puede presionar la tecla F4 para cambiar la referencia relativa a referencia absoluta.

2.2 Agregar al final de las celdas mediante Flash Fill


Si está en Excel 2013 o versiones posteriores, la nueva y poderosa función, Relleno flash, puede llenar las celdas en función de las celdas anteriores que ingresó automáticamente.

Elija una celda junto a los primeros datos originales, escriba manualmente los primeros datos con el texto de sufijo como se muestra a continuación:
documento agregar al final 1

Luego active la celda debajo del primer resultado, haga clic en Datos > Relleno flash, todas las celdas siguientes, incluida la celda activa, se rellenarán automáticamente.
documento agregar al final 1
documento agregar al final 1

2.3 Agregar al final de las celdas usando el código VBA


Aquí hay un código VBA que puede agregar texto al final de cada celda en un rango.

1. Seleccione un rango de celdas al que desea agregar el texto de sufijo, luego presione otro + F11 claves para habilitar el Microsoft Visual Basic para aplicaciones ventana.

2. Luego, en la ventana emergente, haga clic en recuadro > Módulo para insertar un nuevo módulo en blanco.
documento agregar al inicio 1

3. Copie y pegue el código VBA a continuación en el nuevo módulo.

VBA: agregar al final de las celdas

Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub
Atención: en el script de código, Kg es el texto que desea agregar al final de las celdas seleccionadas, cámbielo según sus necesidades. 

documento agregar al inicio 1

4. Prensa F5 tecla o clic Corraldocumento agregar al inicio 1 en la ventana para activar el código VBA.

Ahora se ha agregado el texto "Kg" al final de cada celda.
documento agregar al inicio 1


3. Añadir a la mitad de la cadena

Para la mayoría de ustedes, agregar textos al principio o al final de las celdas es fácil, pero agregar textos en el medio de las celdas puede ser algo difícil. Tome un ejemplo, como se muestra a continuación, agregando un delimitador, como dos puntos: al final del segundo carácter de cada celda en el rango B3: B7.
doc agregar al medio 1

3.1 Agregar después del enésimo carácter de cadena por fórmula


Aquí hay cuatro fórmulas provistas para que usted maneje este trabajo, elija una para usar:

Formula1 Combina las funciones IZQUIERDA y DERECHA

IZQUIERDA (celda, n) & "texto" & DERECHA (celda, LARGO (celda) -n)

Fórmula2 COMBINAR CONCATENAR (CONCAT), funciones DERECHA y LEN

CONCATENAR (IZQUIERDA (celda, n), "texto", DERECHA (celda, LEN (celda) -n))

Or

CONCAT(IZQUIERDA(celda, n), "texto", DERECHA(celda, LARGO(celda) -n))

Función de REEMPLAZO de Formula3

REEMPLAZAR (celda, n+1, 0, "texto")

En las fórmulas genéricas: celda es la referencia de celda al texto que desea agregar texto en el medio, y texto es el texto que solía agregar a la celda, n es el número que define después de qué carácter en la cadena de texto desea agregar añadir texto.

Para resolver el trabajo mencionado anteriormente, utilice las fórmulas como estas:

Combine las funciones IZQUIERDA y DERECHA

=IZQUIERDA(B3, 2) & ":" & DERECHA(B3, LARGO(B3) -2) or =IZQUIERDA(B3, 2) & $E$3 & DERECHA(B3, LARGO(B3) -2)

Funciones COMBINAR CONCATENAR(CONCAT), DERECHA y LEN

=CONCATENAR(IZQUIERDA(B3, 2), ":", DERECHA(B3, LARGO(B3) -2)) or =CONCAT (IZQUIERDA(B3, 2), ":", DERECHA(B3, LARGO(B3) -2))

Función REEMPLAZAR

=REEMPLAZAR(B3, 2+1, 0, ":") or =REEMPLAZAR(B3, 2+1, 0, $E$3)

Prensa Enviar para obtener el resultado, luego arrastre el controlador de autocompletar hacia abajo para agregar texto después del segundo carácter de cada celda del rango B3: B7.
doc agregar al medio 1

 Atención: El texto debe estar entre comillas dobles o la fórmula devuelve un valor de error #¿NOMBRE?. Si usa la referencia de celda a un texto, recuerde usar la referencia absoluta, puede presionar la tecla F4 para cambiar la referencia relativa a referencia absoluta.

3.2 Agregar después del carácter n de la cadena mediante Flash Fill


Si está en Excel 2013 o versiones posteriores, el Relleno flash, puede llenar las celdas en función de las celdas anteriores que ingresó automáticamente.

Elija una celda al lado de los primeros datos originales, escriba manualmente los primeros datos con dos puntos después del segundo carácter como se muestra a continuación:
doc agregar al medio 1

Luego active la celda debajo del primer resultado, presione Ctrl + E teclas para activar Relleno flash comando, todas las celdas a continuación, incluida la celda activa, se han llenado automáticamente.
doc agregar al medio 1

Atención: Si está en un sistema MAC, presione las teclas Comando + E. 

3.3 Agregue después del carácter n de la cadena usando el código VBA


Un código VBA también puede hacer este trabajo.

1. Prensa otro + F11 claves para habilitar el Microsoft Visual Basic para aplicaciones ventana.

2. Luego, en la ventana emergente, haga clic en recuadro > Módulo para insertar un nuevo módulo en blanco.
documento agregar al inicio 1

3. Copie y pegue el código VBA a continuación en el nuevo módulo.

VBA: agregar al medio de las celdas

Sub AddToMidduleOfString()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        Rng.Value = VBA.Left(Rng.Value, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
    Next
End Sub
Atención: en el script de código, 2 es el número define la posición en la que desea agregar texto después, : es el texto que desea agregar, 3 es la suma de 2 y la longitud del texto que agrega. Tome otro ejemplo, para agregar "y" después del primer carácter de la cadena "AB", la secuencia de comandos debe ser Rng.Value = VBA.Left(Rng.Value, 1) & "y" & VBA.Mid(Rng.Valor, 4, VBA.Len(Rng.Valor) - 1) 

documento agregar al inicio 1

4. Prensa F5 tecla o clic Corraldocumento agregar al inicio 1 en la ventana para activar el código VBA. Aparece un cuadro de diálogo para seleccionar celdas para agregar texto.
documento agregar al inicio 1

5. Hacer clic OK. Ahora se agregó el texto ":" después del segundo carácter de cada celda en el rango B19: B23.
documento agregar al inicio 1


4. Agregue texto con Kutools para Excel (agregue caracteres a una posición específica según lo necesite)

Si está cansado de fórmulas y VBA, puede probar una herramienta poderosa y útil, Kutools for Excel, que le puede ayudar con su Añadir texto .
doc agregar texto 1

Esta función Agregar texto puede:

  • Agregar texto antes del primer carácter
  • Agregar texto después del último carácter
  • Agregar texto en posiciones específicas
  • Extensión
    Agregar texto antes de letras mayúsculas
    Agregar texto antes de letras minúsculas
    Agregar texto antes de letras mayúsculas/minúsculas
    Agregar texto antes de los caracteres numéricos

Haga clic para obtener una prueba gratuita de 30 días ahora.

Seleccione las celdas a las que desea agregar texto, luego aplique Agregar texto haciendo clic en Kutools > Texto > Añadir texto.
doc agregar texto 1
4.1 Agregar texto antes del primer carácter o después del último carácter


En los Añadir texto cuadro de diálogo, escriba el texto que desea agregar a las celdas en el Texto cuadro de texto, luego verifique Antes del primer carácter en la Posición .
doc agregar texto 1

Presione Aplicar or Ok para terminar de agregar.
doc agregar texto 1

Para agregar texto después del último carácter, escriba el texto que desea agregar a las celdas en el Texto cuadro de texto, luego verifique Después del último personaje en la Posición .
doc agregar texto 1

Presione Aplicar or Ok para terminar de agregar.
doc agregar texto 1

4.2 Agregar texto en la(s) posición(es) especificada(s)


A veces, es posible que desee agregar texto en el medio de la celda o agregar texto en varias posiciones de la celda. Supongamos que agrega el separador "-" después del tercer y séptimo dígito de los números sociales, como se muestra a continuación:
doc agregar texto 1

En los Añadir texto cuadro de diálogo, escriba el texto en Texto cuadro de texto y comprobar Especificar opción, luego escriba las posiciones usando una coma para separarlas en el cuadro de texto y luego haga clic en Ok or Aplicar.
doc agregar texto 1

4.3 Extensión de la utilidad Agregar texto


Además de agregar texto en las posiciones normales (comienzo, fin y posición especificada), el Añadir texto La utilidad también admite agregar texto.

  • Antes de letras mayúsculas
  • Antes de minúsculas
  • Antes de mayúsculas/minúsculas
  • Antes de caracteres numéricos

En los Añadir texto cuadro de diálogo, escriba el texto en Texto cuadro de texto y comprobar Solo agregar a opción, luego haga clic en el menú desplegable a continuación para elegir la operación que necesita.
doc agregar texto 1
doc agregar texto 1

Excepto la función Agregar texto, Kutools for Excel tiene otras funciones útiles de 300+ que pueden hacerle un favor en diferentes trabajos de Excel, obtenga la descarga gratuita ahora.


5. Agregue texto antes o después del primer texto específico

Esta parte proporciona fórmulas para agregar texto antes o después del texto específico que apareció por primera vez en Excel.

5.1 Añadir texto antes del primer texto específico


Por ejemplo, desea agregar el texto "(venta)" antes del primer texto "precio" en la celda, como se muestra a continuación:
doc agregar texto 1

En Excel, las funciones REEMPLAZAR y SUSTITUIR pueden resolver este trabajo.

Función REEMPLAZAR

REEMPLAZAR(celda,ENCONTRAR("buscar_texto",celda),0,"agregar_texto")

Función de SUSTITUCIÓN

SUSTITUIR(celda,"buscar_texto","reemplazar_texto",1)

En este caso, utilice las fórmulas anteriores como estas:

=REEMPLAZAR(B4,ENCONTRAR("precio",B4),0,"(venta)")

Or

=SUSTITUIR(B4,"precio","(venta)precio",1)

Los argumentos de la fórmula en este caso son

Celda: B4,

Find_text: precio,

Add_text: (venta),

Reemplazar_texto:(venta)precio.

Prensa Enviar para obtener el primer resultado de adición, luego arrastre el controlador de autocompletar sobre las celdas que necesitan esta fórmula.
doc agregar texto 1

5.2 Agregar texto después del primer texto específico


Por ejemplo, desea agregar el símbolo de moneda "$" después de los primeros dos puntos ":" en la celda como se muestra a continuación:
doc agregar texto 1

En Excel, las funciones REEMPLAZAR y SUSTITUIR pueden resolver este trabajo.

Función REEMPLAZAR

REEMPLAZAR(celda,ENCONTRAR("buscar_texto",celda),buscar_texto_longitud,"reemplazar_texto")

Función de SUSTITUCIÓN

SUSTITUIR(celda,"buscar_texto","reemplazar_texto")

En este caso, utilice las fórmulas anteriores como estas:

=REEMPLAZAR(B12,BUSCAR(":",B12),1,":$")

Or

=SUSTITUIR(B12,":",":$")

Los argumentos de la fórmula en este caso son

Celda: B12,

Buscar texto: :,

Reemplazar_texto::$.

Buscar_texto_longitud:1

Prensa Enviar para obtener el primer resultado de adición, luego arrastre el controlador de autocompletar sobre las celdas que necesitan esta fórmula.
doc agregar texto 1


6. Agregue caracteres antes o después de cada palabra

En esta parte del tutorial, presenta tres métodos diferentes (fórmula, Buscar y reemplazar, VBA) para ayudarlo a agregar caracteres antes o después de cada palabra de la celda.

Agregar caracteres antes de cada palabra 
doc agregar antes de cada palabra 1
Agregar caracteres después de cada palabra
doc agregar antes de cada palabra 1

6.1 Agregar carácter(es) antes o después de cada palabra por fórmula


La función SUSTITUIR se puede utilizar para resolver este trabajo, las fórmulas generales son las siguientes:

Agregar antes de cada palabra

"carácter"&SUSTITUIR(cadena, " "," carácter")

Añadir después de cada palabra

SUSTITUIR(cadena," ","carácter")&"carácter"

Suponiendo que agregue "+" antes de cada palabra en la lista de B3: B6, use la fórmula como esta:

="+"&SUSTITUIR(B3, " "," +")

Prensa Enviar para obtener el primer resultado, luego arrastre el controlador de autocompletar hacia abajo para obtener todos los resultados.
doc agregar antes de cada palabra 1

Suponiendo que agregue ($) después de cada palabra de la lista B11: B14, use la fórmula de la siguiente manera:

=SUSTITUIR(B11," ","($) ")&"($)"

Prensa Enviar para obtener el primer resultado, luego arrastre el controlador de autocompletar hacia abajo para obtener todos los resultados.
doc agregar antes de cada palabra 1

6.2 Agregar carácter(es) antes o después de cada palabra mediante Buscar y reemplazar


Si desea agregar caracteres antes de cada palabra, excluyendo la primera, o agregar caracteres después de cada palabra, excluyendo la última, como se muestra a continuación, el Excel incorporado Buscar y reemplazar utilidad puede manejar este trabajo.

Agregar antes de cada palabra excluyendo la primera
doc agregar antes de cada palabra 1

Agregar después de cada palabra excluyendo la última
doc agregar antes de cada palabra 1

1. Seleccione las celdas a las que desea agregar caracteres antes o después de cada palabra, luego presione Ctrl + H claves para habilitar el Buscar y reemplazar diálogo.

2. Escriba un espacio en el Encuentra lo que cuadro de texto, luego escriba los nuevos caracteres con espacio en Reemplazar con cuadro de texto, y finalmente haga clic en el reemplazar todo

Operación General Ejemplo
Agregar caracteres antes de cada palabra Agregar nuevos caracteres después de un espacio Agregar (venta) antes de cada palabra

doc agregar antes de cada palabra 1doc agregar antes de cada palabra 1

Operación General Ejemplo
Agregar caracteres después de cada palabra Nuevos personajes seguidos de un espacio Agregar - después de cada palabra

doc agregar antes de cada palabra 1doc agregar antes de cada palabra 1

6.3 Agregar carácter(es) antes o después de cada palabra por código VBA

Aquí proporciona dos códigos VBA para agregar caracteres antes o después de cada palabra, ejecute el código siguiendo los pasos a continuación.

1. Prensa otro + F11 claves para habilitar el Microsoft Visual Basic para aplicaciones ventana.

2. En la ventana emergente, haga clic en recuadro > Módulo para insertar un nuevo módulo en blanco.
doc agregar antes de cada palabra 1

3. Copie y pegue debajo del código VBA en el módulo.

Agregar antes de cada palabra

Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
   
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = xInStr & Trim(xStr)
                Else
                    xValue = xValue & " " & xInStr & Trim(xStr)
                    End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

Agregar después de cada palabra

Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
 
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
   
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
   
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = Trim(xStr) & xInStr
                Else
                    xValue = xValue & " " & Trim(xStr) & xInStr
                End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

4. Prensa F5 para ejecutar el código (o puede hacer clic en Corraldocumento agregar al inicio 1 ), aparece un cuadro de diálogo para pedirle que seleccione celdas continuas para trabajar, haga clic en OK.
doc agregar antes de cada palabra 1

5. En el segundo cuadro de diálogo emergente, escriba los caracteres que desea agregar, haga clic en OK.
doc agregar antes de cada palabra 1

Luego, los caracteres se agregarán al principio o al final de cada palabra.


7. Agrega texto entre caracteres

A veces, es posible que desee agregar texto entre cada carácter. Aquí, en esta parte, enumera dos escenarios, uno es agregar texto entre cada carácter, otro es agregar espacio entre cada número.

7.1 Agregue texto entre cada carácter/dígito con la función definida por el usuario


Para agregar caracteres entre cada carácter de una cadena, la función definida por el usuario puede ayudarlo.

En este caso, agregamos un espacio entre cada carácter.

1. Prensa otro + F11 claves para habilitar el Microsoft Visual Basic para aplicaciones ventana.

2. En la ventana emergente, haga clic en recuadro > Módulo para insertar un nuevo módulo en blanco.
doc agregar antes de cada palabra 1

3. Copie y pegue debajo del código VBA en el módulo.

Agregar texto entre caracteres

Function AddText(Str As String) As String
    Dim i As Long
    For i = 1 To Len(Str)
        AddText = AddText & Mid(Str, i, 1) & " "
    Next i
    AddSpace = Trim(AddSpace)
End Function

4. Guarde el código y cierre la ventana para volver a la hoja de trabajo, luego escriba la siguiente fórmula en una celda en la que desea colocar el resultado de la adición.

=AñadirTexto(B3)

B3 es la celda que contiene la cadena a la que desea agregar espacio entre los caracteres.

5. Prensa Enviar para obtener el resultado, arrastre el controlador de autocompletar sobre las celdas para obtener otros resultados que necesite.
doc agregar antes de cada palabra 1

 

Atención:

1) En el código VBA, puede cambiar el "" a otros textos que necesites, suponiendo que lo cambies a "-" para agregar - entre caracteres.

2) El código agregará el nuevo texto después de cada carácter. Puede eliminar el último texto agregado si no lo necesita utilizando la fórmula a continuación. Para obtener más detalles sobre la fórmula, visite:

Cómo eliminar los primeros o últimos N caracteres de una celda o cadena en Excel?

IZQUIERDA (celda, LARGO (celda)-texto_longitud)

7.2 Agregar espacio entre cada número con fórmula


Si desea agregar un espacio entre los dígitos de una cadena que es un valor numérico, puede usar la función TEXTO.

Atención: los números del rango entre los que desea agregar espacio deben tener la misma longitud; de lo contrario, algunos resultados pueden ser incorrectos. 

Supongamos que aquí hay una lista de números de 8 dígitos en el rango B10: B12, seleccione una celda que colocará el resultado, escriba la siguiente fórmula:

=TEXTO(B10,"# # # # # # # #")

Prensa Enviar y luego arrastre el controlador de autorrelleno sobre otras celdas.
doc agregar antes de cada palabra 1

Si la longitud de los números es 5, la fórmula se cambiará como =TEXTO(B10,"# # # # #").


8. Agrega carácter(es) entre cada palabra

Si desea agregar caracteres entre cada palabra, suponiendo que agregue espacio entre el nombre, el segundo y el apellido como se muestra a continuación, puede usar una función definida por el usuario.
doc agregar antes de cada palabra 1

1. Prensa otro + F11 claves para habilitar el Microsoft Visual Basic para aplicaciones ventana.

2. En la ventana emergente, haga clic en recuadro > Módulo para insertar un nuevo módulo en blanco.

3. Copie y pegue debajo del código VBA en el módulo.

Agregar caracteres entre palabras

Function AddCharacters(pValue As String) As String
'UpdatebyExtendoffice20160908
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddCharacters = xOut
End Function

4. Guarde el código y cierre la ventana para volver a la hoja de trabajo, luego escriba la siguiente fórmula en una celda en la que desea colocar el resultado de la adición.

=AñadirCaracteres(B3)

B3 es la celda que contiene la cadena que desea agregar espacio entre palabras.

5. Prensa Enviar para obtener el resultado, arrastre el controlador de autocompletar sobre las celdas para obtener otros resultados que necesite.
doc agregar antes de cada palabra 1

 Atención: en el código VBA, puede cambiar el "" a otros textos que necesites, suponiendo que lo cambies a "-" agregar - entre palabras.

9. Agrega caracteres entre textos y números

Para agregar caracteres específicos entre textos y números como se muestra a continuación, aquí se proporcionan dos métodos.
doc agregar entre el texto y el número 1

9.1 Agregar carácter entre textos y números con fórmula


Si los textos están delante de los números, la fórmula genérica es

TRIM(REEMPLAZAR(cadena,MIN(ENCONTRAR({1,2,3,4,5,6,7,8,9,0},cadena&"1234567890")),0,"-"))

Usando el caso anterior como ejemplo, use la fórmula como esta:

=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))

Prensa Enviar para obtener el primer resultado, luego arrastre el controlador de autocompletar sobre otras celdas para completar esta fórmula.
doc agregar entre el texto y el número 1

Si los números están al frente de los textos, la fórmula genérica es

IZQUIERDA(cadena,SUMA(LARGO(cadena)-LARGO(SUSTITUTO(cadena,{0,1,2,3,4,5,6,7,8,9},""))))&"."&DERECHA (cadena,LARGO(B13)- SUMA(LARGO(cadena)-LARGO(SUSTITUIR(cadena, {0,1,2,3,4,5,6,7,8,9}, ""))))

Usando el caso anterior como ejemplo, use la fórmula como esta:

=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT(B13,LEN(B13)- SUM(LEN(B13)-LEN(SUBSTITUTE(B13, {0,1,2,3,4,5,6,7,8,9}, ""))))

Prensa Enviar para obtener el primer resultado, luego arrastre el controlador de autocompletar sobre otras celdas para completar esta fórmula.
doc agregar entre el texto y el número 1

9.2 Agregar caracteres entre textos y números con Flash Fill


Si está en Excel 2013 o versiones posteriores, el Relleno flash también puede ayudarlo a agregar caracteres entre textos y números.

Junto a los datos originales, escriba los nuevos datos a los que se han añadido los caracteres entre textos y números. Luego presione la tecla Intro para ir a la siguiente celda del primer resultado.
doc agregar entre el texto y el número 1

Y presione Ctrl + E teclas para habilitar Flash Fill.
doc agregar entre el texto y el número 1

Extensión

Este tutorial también enumera algunos escenarios sobre cómo agregar texto que podemos encontrar en nuestra vida diaria o en el trabajo.


10. Agregue guiones a números de teléfono/números sociales

A veces, debe agregar separadores, como guiones, a una serie de números de teléfono o números sociales, como se muestra a continuación. Se intentará escribir manualmente si se necesitan agregar cientos de números. En esta parte, presenta tres trucos para manejar este trabajo rápidamente.
doc agrega guiones a los números 1

10.1 Agregar guiones a números por fórmula


Aquí hay dos fórmulas que pueden agregar guiones rápidamente a los números. Para agregar guiones después del tercer y sexto número en la celda B3, use la fórmula de la siguiente manera:

Función REEMPLAZAR

=REEMPLAZAR(REEMPLAZAR(B3,4,0,"-"),8,0,"-")

Función de texto

=TEXTO(B3,"???-???-??? ")

Prensa Enviar para obtener el primer resultado, luego arrastre el controlador de autocompletar sobre otras celdas.
doc agrega guiones a los números 1

Atención:

Puede cambiar los argumentos de las fórmulas anteriores según lo necesite. Suponiendo que agregue "-" después del segundo, cuarto y sexto dígito, puede usar las fórmulas como:

=REEMPLAZAR(REEMPLAZAR(REEMPLAZAR(B3,3,0,"-"),6,0,"-"),9,0,"-")

=TEXTO(B3,"??-??-??-??? ")

 

10.2 Agregar guiones a los números por formato de celdas


Para agregar guiones directamente a los números en las celdas originales, puede usar el Formato de celdas .

1. Seleccione los números a los que desea agregar guiones, luego presione Ctrl + 1 claves para habilitar el Formato de celdas diálogo.

2. En el Formato de celdas diálogo, bajo el Número pestaña, elegir Personalizado from the Categoría .

3. Luego a la derecha Tipo sección, tipo ###-###-### en el cuadro de texto, haga clic en OK.
doc agrega guiones a los números 1

Ahora a los números seleccionados se les han agregado guiones.
doc agrega guiones a los números 1

10.3 Agregue guiones al número de teléfono agregando texto de Kutools para Excel


Si no Kutools for Excel instalado en Excel, el Añadir texto La función también puede hacerte un favor.

1. Seleccione las celdas que contienen los números necesarios para agregar guiones, haga clic en Kutools > Texto > Añadir texto.
doc agrega guiones a los números 1

2. En el Añadir texto cuadro de diálogo, escriba el guión u otro separador en Texto cuadro de texto, elija Especificar opción, luego escriba las posiciones que desea agregar guiones después y sepárelos con comas en el cuadro de texto a continuación.
doc agrega guiones a los números 1

3. Hacer clic Ok o Aplicar. Luego, a los números seleccionados se les han agregado guiones.

Descarga gratis Add Text para una prueba de 30 días.


11. Agregue ceros iniciales a las celdas para corregir la longitud

Supongamos que hay una lista de números en diferentes longitudes, desea agregar ceros a la izquierda para que tengan la misma longitud y se vean ordenados como se muestra a continuación. Aquí hay dos métodos provistos para que usted maneje el trabajo.
doc agregar ceros a la izquierda 1

11.1 Agregue ceros iniciales a las celdas con la función Formato de celdas


Puede utilizar el Formato de celdas función para establecer un formato personalizado para corregir la longitud de la celda agregando ceros a la izquierda.

1. Seleccione las celdas a las que desea agregar ceros a la izquierda, luego presione Ctrl + 1 claves para habilitar Formato de celdas diálogo.

2. En el Formato de celdas diálogo, bajo el Número pestaña, elegir Personalizado from the Categoría .

3. Luego a la derecha Tipo sección, tipo 0000 en el cuadro de texto (para fijar la longitud del número a 4 días, escriba 0000, puede cambiarlo a otra longitud, como 5 días, escriba 00000), haga clic en OK.
doc agregar ceros a la izquierda 1

Luego se han sumado los números con ceros a la izquierda y de la misma longitud.
doc agregar ceros a la izquierda 1

Atención: si la longitud de los datos originales excede la longitud establecida, mostrará los datos originales sin ceros a la izquierda.


11.2 Agregar ceros a la izquierda de las celdas con fórmula


Si no desea cambiar los datos originales, puede usar la fórmula para agregar ceros a los números en otras ubicaciones.

Aquí hay tres funciones que pueden ayudarte.

Función de TEXTO Fórmula1

TEXTO(número,"00…")

Función Formula2 DERECHA

DERECHA("00…"&número,longitud)

Función BASE de Fórmula 3

BASE(número,10,longitud)

El número de ceros en la fórmula es igual a la longitud del número.

Aquí establece 4 dígitos como la longitud de los números, utilice las fórmulas de la siguiente manera:

= TEXTO (B10, "0000")

=DERECHA("0000"&B10,4)

=BASE(B10,10,4)

Prensa Enviar y arrastre el controlador de relleno automático hacia abajo.
doc agregar ceros a la izquierda 1

Atención: si la longitud de los datos originales excede la longitud establecida, mostrará los datos originales sin ceros a la izquierda.


12. Agregue ceros finales a los números para fijar la longitud

Si desea agregar ceros finales a los números para hacer una longitud fija, supongamos que agrega ceros finales a los números en la celda B3: B7 para que tengan una longitud de 5 dígitos como se muestra a continuación, puede aplicar una fórmula para hacer frente al trabajo .
doc agregar ceros finales 1

Función REPT

numero&REPT("0",longitud-LEN(numero))

En la fórmula, el argumento "número" representa el número o una referencia de celda a la que desea agregar ceros finales, y el argumento "longitud" es la longitud fija que desea.

Utilice la fórmula como esta:

=B3&REPETIR("0",5-LARGO(B3))

Prensa Enviar y arrastre el controlador de autocompletar hacia las celdas que necesitan esta fórmula.
doc agregar ceros finales 1


13. Agregue un espacio final al texto

Si desea exportar o copiar datos de una hoja de trabajo a un bloc de notas, los textos pueden colocarse desordenadamente ya que los valores de las celdas tienen diferentes longitudes, para que se vean ordenados como se muestra a continuación, debe agregar un espacio final.
doc agregar espacio final 1

Para resolver este trabajo, la función REPT puede hacerte un favor.

IZQUIERDA(texto & REPETIR(" ",longitud_máxima),longitud_máxima)

En la fórmula, el argumento "texto" es el texto o la referencia de celda a la que desea agregar un espacio final, y el argumento "max_length" es la longitud fija que desea que tengan los textos, que debe ser mayor o igual que el longitud máxima de los textos utilizados.

Para agregar un espacio final a los textos en la celda B3: C6, use la siguiente fórmula:

=IZQUIERDA(B3 & REPETIR(" ",10),10)

Prensa Enviar tecla, luego arrastre el controlador de autocompletar a todas las celdas que necesitan esta fórmula.

En este caso, como el más largo del texto usado es de 9 caracteres, aquí usamos 10.
doc agregar espacio final 1


14. Agregue comillas/corchetes alrededor del texto o los números

A veces, debe agregar comillas o corchetes alrededor del texto o los números en las celdas como se muestra a continuación, excepto la escritura manual uno por uno, aquí hay dos métodos en Excel que pueden resolverlo rápidamente.
doc añadir comillas 1

14.1 Agregue comillas/corchetes alrededor de las celdas de formato


Si desea agregar comillas alrededor del texto en los datos originales, la función Formato de celdas en Excel puede ayudarlo.

1. Seleccione las celdas que desea agregar comillas, presione Ctrl + 1 claves para habilitar el Formato de celdas diálogo.

2. En el Formato de celdas diálogo, bajo Número pestaña, elegir Personalizado de la lista de Categoría, luego vaya a la sección derecha para escribir "''" @ "''" en el Tipo caja de texto. Hacer clic OK.
doc añadir comillas 1

El texto de las celdas seleccionadas se ha añadido entre comillas.

Si desea agregar corchetes alrededor del texto, en el cuadro de texto Tipo del cuadro de diálogo Formato de celdas, use (@).

14.2 Agregar comillas/corchetes alrededor de las fórmulas


Las fórmulas también se pueden usar para agregar comillas al texto en otras celdas.

Uso y conector

""""&texto&""""

Or

char(34)&texto&char(34)

En este caso, texto en la celda B11, utilice las fórmulas como estas:

=""""&B11&""""

Or

=carácter(34)&B11&carácter(34)

Prensa Enviar y arrastre el controlador de autocompletar hacia abajo para llenar las celdas.
doc añadir comillas 1

Si desea agregar corchetes alrededor del texto, use la fórmula como "("&texto&")".

14.3 Agregar comillas/corchetes por VBA


Si necesita un código VBA para resolver este trabajo, aquí hay un VBA.

1. Prensa otro + F11 claves para habilitar el Microsoft Visual Basic para aplicaciones ventana.

2. Luego, en la ventana emergente, haga clic en recuadro > Módulo para insertar un nuevo módulo en blanco.

3. Copie y pegue el código VBA a continuación en el nuevo módulo.

VBA: agregue comillas alrededor de los textos

Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = """" & Rng.Value & """"
Next
End Sub
 Atención: en el script de código, """" & Rng.Valor & """" indica agregar "" alrededor de los textos, si desea agregar corchetes () alrededor del texto, cámbielo a "(" & Rng.Value & ")".

doc añadir comillas 1

4. Prensa F5 tecla o clic Corraldoc añadir comillas 1 en la ventana para activar el código VBA. Aparece un cuadro de diálogo para seleccionar celdas para agregar comillas.
doc añadir comillas 1

5. Hacer clic OK. Ahora las comillas se han agregado alrededor de los textos en las celdas seleccionadas.


15. Agregue texto al resultado de la fórmula directamente

A veces, para ayudar a otros usuarios a comprender mejor los datos, es posible que deba agregar texto en los resultados de la fórmula como se muestra a continuación. Para incluir texto en la fórmula, puede usar las comillas que rodean el texto y agregar el conector & para combinar el texto y la fórmula.
doc agregar texto en la fórmula 1

Caso 1 agregar texto antes de la fórmula

"Hoy es "&TEXTO(HOY(),"dddd, mmmm dd.")
doc agregar texto en la fórmula 1

Caso 2 añadir texto después fórmula

TEXT(NOW(),"HH:MM:SS")&" es la hora actual".
doc agregar texto en la fórmula 1

Caso 3 agregar textos en dos lados de la fórmula

"Hoy vendió "&data&" kg."
doc agregar texto en la fórmula 1


Más tutoriales de Excel:

Combine varios libros de trabajo/hojas de trabajo en uno
Este tutorial enumera casi todos los escenarios de combinación que puede enfrentar y le proporciona soluciones profesionales relativas.

Dividir celdas de texto, número y fecha (separadas en varias columnas)
Este tutorial se divide en tres partes: dividir celdas de texto, dividir celdas numéricas y dividir celdas de fecha. Cada parte proporciona diferentes ejemplos para ayudarlo a saber cómo manejar el trabajo de división cuando se encuentra con el mismo problema.

Combine el contenido de varias celdas sin perder datos en Excel
Este tutorial limita la extracción a una posición específica en una celda y recopila diferentes métodos para ayudar a extraer texto o números de una celda por posición específica en Excel.

Compare dos columnas para coincidencias y diferencias en Excel
Aquí, este artículo cubre la mayoría de los escenarios posibles de la comparación de dos columnas que podría encontrar, y espero que pueda ayudarlo.



  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y conservación de datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertar rápidamente, Rangos, gráficos e imágenes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Agrupación de tablas dinámicas por número de semana, día de la semana y más ... Mostrar celdas bloqueadas y desbloqueadas por diferentes colores; Resalte las celdas que tienen fórmula / nombre...
pestaña kte 201905
  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior