Excel añade Dividir por texto y número en la posición especificada de la celda

En Excel, agregar texto o números a celdas es una tarea muy habitual. Por ejemplo, insertar espacios entre nombres, añadir prefijos o sufijos a celdas, o incluir guiones en números de identificación social. Este tutorial recoge casi todos los escenarios de adición en Excel y ofrece los métodos correspondientes.

Nota

En este tutorial, he preparado algunos ejemplos para ilustrar los métodos. Puede adaptar las referencias según sus necesidades al usar el siguiente código VBA o fórmulas, o bien descargar los ejemplos para probar los métodos directamente.

Haga clic para descargar el archivo de ejemplo

Esta parte enumera distintos métodos para añadir caracteres al principio de cada celda, tal como se muestra en la siguiente captura de pantalla:

1,1 Añadir al principio de las celdas mediante fórmula

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

Fórmula 1: operador de concatenación «&»

Combina varios textos utilizando el carácter ampersand «&».

«texto»&celda

Fórmula 2: función CONCATENAR

La función CONCATENAR se utiliza para unir textos.

CONCATENAR(«texto»;celda)

Fórmula 3: función CONCAT

Se trata de una función nueva disponible exclusivamente en Excel 2019, Office 365 y Excel Online.

CONCAT(«texto»;celda)

En las fórmulas genéricas: «celda» es la referencia a la celda que contiene el texto al que desea añadir un prefijo, y «texto» es el prefijo que se añadirá a dicha celda.

Con el ejemplo anterior, puede utilizar las fórmulas en Barra de fórmulas de la siguiente manera:

«&»

=$E$3&B3o =«Iphone»&B3

Función CONCATENAR

=CONCATENAR($E$3;B3)o =CONCATENATE(«Iphone»,B3)

Función CONCAT

=CONCAT($E$3;B3)o =CONCAT(«Iphone»,B3)

Pulse la tecla Intro para obtener el resultado y, a continuación, arrastre el controlador de autorrelleno hacia abajo hasta **Agregar texto** para aplicarlo a cada celda del rango B3:B6.

1,2 Añadir al principio de las celdas mediante Relleno Relámpago

Si utiliza Excel 2013 o versiones posteriores, la potente función Relleno Relámpago puede rellenar automáticamente las celdas en función de los datos introducidos en las anteriores.

Seleccione una celda junto al primer dato original e introduzca manualmente el primer dato con el texto de prefijo, tal como se muestra a continuación:

A continuación, en la celda inferior, escriba el segundo dato incluyendo el texto de prefijo. Mientras escribe, aparecerá una lista en gris; pulse la tecla Intro para que Relleno Relámpago complete automáticamente los datos.

Si no se genera la lista de vista previa, vaya a la pestaña Inicio y haga clic en Rellenar > Relleno Relámpago para ejecutarlo manualmente.

1,3 Añadir al principio de las celdas mediante código VBA

Si está familiarizado con el código VBA, a continuación le presentamos un código VBA para agregar texto al principio de cada celda en un rango.

1. Seleccione un rango de celdas al que desee añadir el prefijo y, a continuación, pulse las teclas Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

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

3. Copie y pegue el siguiente código VBA en el nuevo módulo.

VBA: Añadir al principio 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

4. Pulse la tecla F5 o haga clic en el botón Ejecutar en la ventana para activar el código VBA.

Ahora, todas las celdas seleccionadas tienen el texto «iPhone» añadido al principio.

Además de Agregar texto al principio de las celdas, también es habitual Agregar texto al final de las celdas. A continuación, tomamos como ejemplo la adición de una unidad al final de cada celda, tal como se muestra en la siguiente captura de pantalla:

2,1 Añadir al final de las celdas mediante fórmula

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

Fórmula 1: operador de concatenación «&»

Combina varios textos utilizando el carácter ampersand «&».

Celda&«texto»

Fórmula 2: función CONCATENAR

La función CONCATENAR se utiliza para unir textos.

CONCATENAR(celda,«texto»)

Fórmula 3: función CONCAT

Esta es una función nueva disponible exclusivamente en Excel 2019, Office 365 y Excel en línea.

CONCAT(celda,«texto»)

En las fórmulas genéricas: «celda» hace referencia a la celda que contiene el texto al que desea añadir el sufijo, y «texto» es el contenido que se agregará a dicha celda.

Usando el ejemplo anterior, puede aplicar las siguientes fórmulas en Barra de fórmulas:

«&»

=B3&$E$3o =B3&«Kg»

Función CONCATENAR

=CONCATENAR(B3, $E$3)o =CONCATENATE(B3, «Kg»)

Función CONCAT

=CONCAT(B3, $E$3)o =CONCAT(B3, «Kg»)

Pulse la tecla Intro para obtener el resultado y, a continuación, arrastre el controlador de autorrelleno hacia abajo hasta agregar texto al final de cada celda del rango B3:B6.

2,2 Añadir al final de las celdas mediante Relleno Rápido

Si utiliza Excel 2013 o versiones posteriores, la potente función Relleno Rápido puede rellenar automáticamente las celdas en función de los datos que haya introducido en las celdas superiores.

Seleccione una celda junto al primer dato original e introduzca manualmente el primer dato con el texto de sufijo, tal como se muestra a continuación:

A continuación, active la celda situada bajo el primer resultado y haga clic en Datos > Relleno Rápido. Así, todas las celdas inferiores, incluida la celda activa, se rellenarán automáticamente.

2,3 Añadir al final de las celdas mediante código VBA

A continuación, se muestra un código VBA que permite agregar texto al final de cada celda en un rango.

1. Seleccione un rango de celdas al que desee añadir el texto de sufijo y pulse las teclas Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

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

3. Copie y pegue el siguiente código VBA en el nuevo módulo.

VBA: Añadir 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

4. Pulse la tecla F5o haga clic en el botón Ejecutaren la ventana para activar el código VBA.

Ahora, el texto «kg» se ha añadido al final de cada celda.

Para la mayoría de ustedes, agregar texto al principio o al final de las celdas resulta sencillo, pero insertarlo en medio puede ser un poco más complicado. Por ejemplo, como se muestra en la siguiente captura de pantalla, se desea añadir un delimitador, como los dos puntos «:», justo después del segundo carácter de cada celda en el rango B3:B7.

3,1 Añadir después del n-ésimo carácter de una cadena mediante fórmula

A continuación, se ofrecen cuatro fórmulas para realizar esta tarea; elija la que prefiera:

Fórmula 1: Combinar las funciones IZQUIERDA y DERECHA

IZQUIERDA(celda, n) & «texto» & DERECHA(celda, LARGO(celda) -n)

Fórmula 2: Combinar las funciones CONCATENAR (o CONCAT), DERECHA y LARGO

CONCATENAR(IZQUIERDA(celda, n), «texto», DERECHA(celda, LARGO(celda) -n))

O

CONCAT(IZQUIERDA(celda, n), «texto», DERECHA(celda, LARGO(celda) -n))

Fórmula 3: Función REEMPLAZAR

REEMPLAZAR(celda, n+1, 0, «texto»)

En las fórmulas genéricas: «celda» es la referencia a la celda cuyo texto desea modificar insertando texto en medio; «texto» es el fragmento que se añadirá, y «n» es el número que indica tras qué carácter de la cadena original se insertará el nuevo texto.

Para resolver la tarea mencionada anteriormente, utilice las siguientes fórmulas:

Combinar las funciones IZQUIERDA y DERECHA

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

Combinar las funciones CONCATENAR (o CONCAT), DERECHA y LARGO

=CONCATENATE(LEFT(B3, 2), ":", RIGHT(B3, LEN(B3) -2))o =CONCAT (LEFT(B3, 2), ":", RIGHT(B3, LEN(B3) -2))

Función REEMPLAZAR

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

Pulse la tecla Intro para obtener el resultado y, a continuación, arrastre el controlador de autorrelleno hacia abajo hasta agregar texto después del segundo carácter de cada celda del rango B3:B7.

3,2 Añadir después del n-ésimo carácter de una cadena mediante Relleno Rápido

Si utiliza Excel 2013 o versiones posteriores, la función Relleno Rápido puede rellenar automáticamente las celdas en función de los datos introducidos anteriormente.

Seleccione una celda junto al primer dato original e introduzca manualmente el primer dato con dos puntos después del segundo carácter, tal como se muestra a continuación:

A continuación, active la celda situada bajo el primer resultado y pulse las teclas Ctrl+E para activar el comando de Relleno Rápido. Así, todas las celdas inferiores, incluida la celda activa, se rellenarán automáticamente.

3,3 Añadir después del n-ésimo carácter de una cadena mediante código VBA

Un código VBA también puede encargarse de esta tarea.

1. Pulse las teclas Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

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

3. Copie y pegue el siguiente código VBA en el nuevo módulo.

VBA: Añadir en 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

4. Pulse la tecla F5 o haga clic en el botón Ejecutar en la ventana para activar el código VBA. Aparecerá un cuadro de diálogo para seleccionar las celdas en las que desea agregar texto.

5. Haga clic en Aceptar. Ahora, el texto «:» se ha añadido tras el segundo carácter de cada celda del rango B19:B23.

¿Cansado de fórmulas y VBA? Pruebe una herramienta potente y práctica: Kutools para Excel, que le ayudará con su función de Agregar texto.

Esta función de Agregar texto permite:

• Agregar texto Antes del primer carácter
• Agregar texto Después del último carácter
• Agregar texto en posiciones especificadas
• Extensión
  Agregar texto Antes de las letras mayúsculas
  Agregar texto Antes de las letras minúsculas
  Agregar texto Antes de las letras mayúsculas y minúsculas
  Agregar texto Antes de los números

Seleccione las celdas en las que desea agregar texto y aplique la función **Agregar texto** haciendo clic en Kutools > Texto > Agregar texto.

4,1 Agregar texto antes del primer carácter o después del último carácter

En el cuadro de diálogo Agregar texto, escriba en el cuadro de texto Texto el texto que desea añadir a las celdas y marque la opción Antes del primer carácter en la sección Posición.

Haga clic en Aplicar o en Aceptar para finalizar la operación.

Para agregar texto después del último carácter, escriba en el cuadro de texto Texto el texto que desea añadir a las celdas y marque la opción Después del último carácter en la sección Posición.

Haga clic en Aplicar o en Aceptar para finalizar la operación.

4,2 Agregar texto en la(s) posición(es) especificada(s)

A veces, es posible que desee agregar texto en medio de una celda o insertarlo en varias posiciones dentro de la misma. Por ejemplo, imagine que quiere añadir el separador «-» después del tercer y séptimo dígitos de los números de la seguridad social, tal como se muestra en la siguiente captura de pantalla:

En el cuadro de diálogo Agregar texto, escriba el texto en el cuadro Texto, active la opción Especificar, introduzca las posiciones separadas por comas en el cuadro de texto y, a continuación, haga clic en Aceptar o en Aplicar.

Extensión 4,3 de la utilidad Agregar texto

Además de Agregar texto en las posiciones habituales (inicio, final y posición especificada), la utilidad Agregar textotambién permite Agregar texto

• Antes de las letras mayúsculas
• Antes de las letras minúsculas
• Antes de las letras mayúsculas y minúsculas
• Antes de los números

En el cuadro de diálogo Agregar texto, escriba el texto en el cuadro Texto, active la opción Añadir únicamente a y, a continuación, haga clic en el menú desplegable inferior para elegir la operación que necesite.

Además de la función Agregar texto, Kutools para Excel incluye otras 300+ funciones útiles que le facilitarán distintas tareas en Excel. Descárguelo gratis ahora.

Esta sección ofrece fórmulas para añadir texto antes o después de la primera aparición de un texto específico en Excel.

5,1 Agregar texto antes del primer texto específico

Por ejemplo, desea Agregar texto «(venta)» antes de la primera aparición de la palabra «precio» en la celda, tal como se muestra en las siguientes capturas de pantalla:

En Excel, las funciones REEMPLAZAR y SUSTITUIR pueden resolver esta tarea.

Función REEMPLAZAR

REEMPLAZAR(celda;ENCONTRAR(«texto_a_buscar»;celda);0;«texto_a_añadir»)

Función SUSTITUIR

SUSTITUIR(celda;«texto_a_buscar»;«texto_de_reemplazo»;1)

En este caso, utilice las fórmulas anteriores de la siguiente manera:

=REPLACE(B4,FIND(«price»,B4),0,«(sale)»)

O

=SUBSTITUTE(B4,«price»,«(sale)price»,1)

Los argumentos de la fórmula en este caso son

Celda: B4,

Texto_a_buscar: precio,

Texto_a_añadir: (venta),

Texto de reemplazo: (venta) precio.

Pulse la tecla Entrar para obtener el primer resultado y arrastre el controlador de autorrelleno sobre las celdas que necesiten esta fórmula.

5,2 Agregar texto después del primer texto específico

Por ejemplo, desea añadir el símbolo monetario «$» tras los dos puntos «:» en la celda, tal como se muestra en las siguientes capturas de pantalla:

En Excel, las funciones REEMPLAZAR y SUSTITUIR son ideales para llevar a cabo esta tarea.

Función REEMPLAZAR

REEMPLAZAR(celda;ENCONTRAR(«texto_a_buscar»;celda);longitud_texto_a_buscar;«texto_de_reemplazo»)

Función SUSTITUIR

SUSTITUIR(celda;«texto_a_buscar»;«texto_de_reemplazo»)

En este caso, utilice las fórmulas anteriores de la siguiente manera:

=REPLACE(B12,FIND(":",B12),1,«:$»)

O

=SUBSTITUTE(B12,":",«:$»)

Los argumentos de la fórmula en este caso son

Celda: B12,

Texto_a_buscar: :,

Texto de reemplazo::$.

Longitud_texto_a_buscar:1

Pulse la tecla Entrar para obtener el primer resultado y arrastre el controlador de autorrelleno sobre las celdas que necesiten esta fórmula.

En esta parte del tutorial se presentan tres métodos distintos —fórmula, Buscar y reemplazar y VBA— para ayudarte a añadir caracteres antes o después de cada palabra en una celda.

Añadir caracteres antes de cada palabra

Añadir caracteres después de cada palabra

6,1 Añadir carácter(es) antes o después de cada palabra mediante fórmula

La función SUSTITUIR es ideal para llevar a cabo esta tarea. Las fórmulas generales son las siguientes:

Añadir 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 desea añadir «+» antes de cada palabra en la lista B3:B6, utilice la siguiente fórmula:

=«+»&SUBSTITUTE(B3, " "," +")

Pulse la tecla Entrar para obtener el primer resultado y, a continuación, arrastre el controlador de autorrelleno hacia abajo para obtener todos los resultados.

Suponiendo que desea añadir ($) después de cada palabra de la lista B11:B14, utilice la siguiente fórmula:

=SUBSTITUTE(B11,« »,«($) »)&«($)»

Pulse la tecla Entrar para obtener el primer resultado y, a continuación, arrastre el controlador de autorrelleno hacia abajo para obtener todos los resultados.

6,2 Añadir carácter(es) antes o después de cada palabra mediante Buscar y reemplazar

Si desea añadir caracteres antes de cada palabra excepto la primera, o después de cada palabra excepto la última, como se muestra en la siguiente captura de pantalla, la herramienta integrada de Excel Buscar y reemplazar puede realizar esta tarea.

Añadir antes de cada palabra excepto la primera

Añadir después de cada palabra excepto Última

1. Seleccione las celdas a las que desea añadir caracteres antes o después de cada palabra y, a continuación, pulse las teclas Ctrl+H para abrir el cuadro de diálogo Buscar y reemplazar.

2. Escriba un espacio en el cuadro Buscar qué, luego introduzca los nuevos caracteres con un espacio en el cuadro Reemplazar con y, finalmente, haga clic en el botón Reemplazar todo.

Aquí se incluyen dos códigos VBA para añadir caracteres antes o después de cada palabra. Ejecútelos siguiendo los pasos que se indican a continuación.

1. Pulse las teclas Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

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

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

Añadir 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

Añadir 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. Pulse la tecla F5para ejecutar el código (o bien haga clic en el botón)Ejecutar). Aparecerá un cuadro de diálogo solicitándole que seleccione celdas contiguas para trabajar; haga clic en Aceptar.

5. En el segundo cuadro de diálogo que aparece, escriba los caracteres que desea añadir y haga clic en Aceptar.

Entonces, los caracteres se añadirán al principio o al final de cada palabra.

A veces, es posible que desee agregar texto entre todos los caracteres. En esta sección se describen dos escenarios: uno consiste en agregar texto entre cada carácter y el otro en añadir espacios entre cada número.

7,1 Agregar texto entre cada carácter/dígito mediante una función definida por el usuario

Para insertar caracteres entre cada uno de los caracteres de una cadena, puede utilizar una función definida por el usuario.

En este caso, añadiremos un espacio entre cada carácter.

1. Pulse las teclas Alt+F11para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

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

3. Copie y pegue el siguiente 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 haga clic en Cerrar esta ventana para regresar a la hoja de cálculo. A continuación, introduzca la siguiente fórmula en la celda donde desee mostrar el resultado:

=AddText(B3)

B3 es la celda que contiene la cadena a la que deseas añadir espacios entre sus caracteres.

5. Pulse la tecla Entrar para obtener el resultado y, a continuación, arrastre el controlador de autorrelleno sobre las demás celdas según sea necesario.

7,2 Añadir espacios entre cada número mediante una fórmula

Si desea añadir espacios entre los dígitos de una cadena que representa un valor numérico, puede usar la función TEXTO.

Supongamos que tiene una lista de números de 8 dígitos en el rango B10:B12. Seleccione una celda donde desee colocar el resultado y escriba la siguiente fórmula:

=TEXT(B10,«# # # # # # # #»)

Pulse la tecla Entrar y, a continuación, arrastre el controlador de autorrelleno sobre las demás celdas.

Si la longitud de los números es 5, la fórmula se modificará como sigue:=TEXT(B10,«# # # # #»).

Si desea insertar carácter(es) entre cada palabra —por ejemplo, un espacio entre el nombre, el segundo nombre y el apellido, tal como se muestra en la siguiente captura de pantalla—, puede utilizar una función definida por el usuario.

1. Pulse las teclas Alt+F11para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

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

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

Añadir 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 haga clic en Cerrar esta ventana para regresar a la hoja de cálculo; luego, introduzca la siguiente fórmula en la celda donde desee mostrar el resultado.

=AddCharacters(B3)

B3 es la celda que contiene la cadena a la que desea añadir espacios entre palabras.

5. Pulse la tecla Entrar para obtener el resultado y, si lo necesita, arrastre el controlador de autocompletado sobre las celdas para obtener otros resultados.

Para añadir un carácter o caracteres específicos entre el texto y el número al dividir, como se muestra en la siguiente captura de pantalla, se ofrecen a continuación dos métodos.

9,1 Añadir un carácter entre Dividir por texto y número con fórmula

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

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

Tomando el caso anterior como ejemplo, utilice la siguiente fórmula:

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

Pulse la tecla Entrar para obtener el primer resultado y, a continuación, arrastre el controlador de autocompletado sobre las demás celdas para rellenar esta fórmula.

Si los números están al principio del texto, la fórmula genérica es

IZQUIERDA(cadena;SUMA(LARGO(cadena)-LARGO(SUSTITUIR(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}; «»))))

Tomando el caso anterior como ejemplo, utilice la siguiente fórmula:

=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},«»))))&"."&DERECHA(B13;LARGO(B13)- SUMA(LARGO(B13)-LARGO(SUSTITUIR(B13; {0;1;2;3;4;5;6;7;8;9}; «»))))

Pulse la tecla Entrar para obtener el primer resultado y, a continuación, arrastre el controlador de autocompletado a las demás celdas para rellenar esta fórmula.

9,2 Añadir un carácter entre Dividir por texto y número con Relleno Relámpago

Si utiliza Excel 2013 o versiones posteriores, la función Relleno Relámpago también puede ayudarle a añadir carácter(es) entre texto y número al dividir.

Al lado de los datos originales, escriba los nuevos datos con el carácter (o los caracteres) ya añadidos entre Dividir por texto y número. A continuación, pulse la tecla Entrar para ir a la celda siguiente al primer resultado.

Y pulse las teclas Ctrl+E para activar el Relleno Relámpago.

Extensión

Este tutorial también presenta algunos escenarios cotidianos o laborales en los que podríamos utilizar la función Agregar texto.

A veces, necesita agregar separadores, como guiones, a una serie de números de teléfono o números de la seguridad social, tal como se muestra en la siguiente captura de pantalla. Escribirlos manualmente resultaría agotador si tiene que formatear cientos de números. A continuación, se presentan tres métodos rápidos para realizar esta tarea.

10,1 Añadir guiones a números mediante fórmula

Aquí tiene dos fórmulas para añadir guiones rápidamente a los números. Para insertar guiones después del tercer y sexto dígito en la celda B3, utilice las siguientes fórmulas:

Función REEMPLAZAR

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

Función TEXTO

=TEXT(B3,«???-???-??? »)

Pulse la tecla Entrar para obtener el primer resultado y, a continuación, arrastre el controlador de autocompletado al resto de celdas.

10,2 Añadir guiones a números mediante Establecer formato de celda

Para añadir guiones directamente a los números en las celdas originales, puede utilizar la función Establecer formato de celda.

1. Seleccione los números a los que desea añadir guiones y, a continuación, pulse las teclas Ctrl+1 para abrir el cuadro de diálogo Establecer formato de celda.

2. En el cuadro de diálogo Establecer formato de celda, en la pestaña Número, seleccione Personalizada en la sección Categoría.

3. A continuación, en la sección derecha Tipo, escriba ###-###-### en el cuadro de texto y haga clic en Aceptar.

Ahora los números seleccionados han recibido guiones.

10,3 Añadir guiones a Número de teléfono mediante Agregar texto de Kutools para Excel

Si tiene instalado Kutools para Excel en Excel, la función Agregar texto también puede ayudarle.

1. Seleccione las celdas que contienen los números a los que desea añadir guiones y haga clic en Kutools>Texto>Agregar texto.

2. En el cuadro de diálogo Agregar texto, escriba el guion u otro separador en el cuadro de texto Texto, seleccione la opción Especificar y, a continuación, introduzca las posiciones tras las cuales desea añadir guiones, separadas por comas, en el cuadro de texto inferior.

3. Haga clic en Aceptar o en Aplicar. Así, los números seleccionados habrán recibido guiones.

Descarga gratuita de Agregar texto para una prueba de 30 días.

Supongamos que tiene una lista de números de distinta longitud y desea añadir ceros a la izquierda para igualar su longitud y lograr un aspecto ordenado, como se muestra en la siguiente captura de pantalla. A continuación, le presentamos dos métodos para llevar a cabo esta tarea.

11,1 Añadir ceros a la izquierda a las celdas con la función Establecer formato de celda

Puede utilizar la función Establecer formato de celda para definir un formato personalizado que fije la longitud de la celda añadiendo ceros a la izquierda.

1. Seleccione las celdas a las que desea añadir ceros a la izquierda y, a continuación, pulse las teclas Ctrl+1 para abrir el cuadro de diálogo Establecer formato de celda.

2. En el cuadro de diálogo Establecer formato de celda, en la pestaña Número, seleccione Personalizadaen la sección Categoría.

3. A continuación, en la sección derecha Tipo, escriba 0000 en el cuadro de texto (para fijar la longitud del número a 4 dígitos, introduzca 0000; puede ajustarla a otra longitud, por ejemplo, 5 dígitos, escribiendo 00000) y haga clic en Aceptar.

Entonces, los números habrán recibido ceros a la izquierda y tendrán la misma longitud.

11,2 Añadir ceros a la izquierda a Fórmula

Si no desea modificar los datos originales, puede usar una fórmula para añadir ceros a la izquierda a los números en otras ubicaciones.

Aquí tiene tres funciones que le serán de gran ayuda.

Fórmula 1: función TEXTO

TEXTO(número;«00…»)

Fórmula 2: función DERECHA

DERECHA(«00…»&número;longitud)

Fórmula 3: función BASE

BASE(número;10;longitud)

El número de ceros en la fórmula coincide con la longitud del número.

Aquí ha establecido una longitud de 4 dígitos para los números; utilice las siguientes fórmulas:

=TEXT(B10,"0000")

=RIGHT("0000"&B10,4)

=BASE(B10;10;4)

Pulse la tecla Entrar y arrastre el controlador de autocompletado hacia abajo.

Si desea añadir ceros a la derecha de los números en las celdas B3:B7 para que tengan una longitud fija de 5 dígitos, como se muestra en la siguiente captura de pantalla, puede aplicar una fórmula para lograrlo.

Función REPETIR

número&REPETIR("0",longitud-LARGO(número))

En la fórmula, el argumento «número» representa el número o la referencia de celda al que desea añadir ceros a la derecha, y el argumento «longitud» indica la longitud fija que desea obtener.

Utilice la fórmula de la siguiente manera:

=B3&REPT("0",5-LEN(B3))

Pulse la tecla Intro y arrastre el controlador de autorrelleno hacia abajo hasta las celdas que necesiten esta fórmula.

Si desea exportar o copiar datos desde una hoja de cálculo a un bloc de notas, es posible que el texto aparezca desordenado debido a las distintas longitudes de los valores de las celdas. Para que se muestren alineados, como en la siguiente captura de pantalla, debe añadir espacios a la derecha.

Para resolver esta tarea, la función REPETIR puede ser de gran ayuda.

IZQUIERDA(texto & REPETIR(« »,longitud_máx),longitud_máx)

En la fórmula, el argumento «texto» es el texto o la referencia de celda al que desea añadir espacios a la derecha, y el argumento «longitud_máx» es la longitud fija que desea asignar a los textos, la cual debe ser mayor o igual que la longitud máxima de los textos utilizados.

Para añadir espacios a la derecha a los textos en las celdas B3:C6, utilice la siguiente fórmula:

=LEFT(B3 & REPT(« »,10),10)

Pulse la tecla Intro y, a continuación, arrastre el controlador de autorrelleno hasta todas las celdas que necesiten esta fórmula.

En este caso, dado que el texto más largo utilizado tiene 9 caracteres, usamos 10 aquí.

A veces, necesita añadir comillas o paréntesis alrededor del texto o los números en las celdas, como se muestra en la siguiente captura de pantalla. Además de escribirlos manualmente uno por uno, Excel ofrece dos métodos para resolverlo rápidamente.

14,1 Añadir comillas/paréntesis mediante Establecer formato de celda

Si desea añadir comillas alrededor del texto en los datos originales, la función Establecer formato de celda de Excel le será de gran ayuda.

1. Seleccione las celdas a las que desea añadir comillas y pulse las teclas Ctrl+1 para abrir el cuadro de diálogo Establecer formato de celda.

2. En el cuadro de diálogo Establecer formato de celda, en la pestaña Número, seleccione Personalizada en la lista de Categoría. A continuación, vaya a la sección derecha y escriba «''»@«''» en el cuadro de texto Tipo. Haga clic en Aceptar.

El texto de las celdas seleccionadas ha sido rodeado con comillas.

Si desea añadir paréntesis alrededor del texto, utilice (@) en el cuadro de texto Tipo del cuadro de diálogo Establecer formato de celda.

14,2 Añadir comillas/paréntesis mediante fórmulas

También puede usar fórmulas para añadir comillas al texto de otras celdas.

Uso del conector &

«»«»&texto&«»«»

O

CARÁCT(34)&texto&CARÁCT(34)

En este caso, el texto está en la celda B11; utilice las siguientes fórmulas:

=«»""&B11&""""

O

=CARÁCT(34)&B11&CARÁCT(34)

Pulse la tecla Intro y arrastre el controlador de autorrelleno hacia abajo para rellenar las celdas.

Si desea añadir paréntesis alrededor del texto, utilice la fórmula «(»&texto&«)».

14,3 Añadir comillas/paréntesis mediante VBA

Si necesita código VBA para llevar a cabo esta tarea, aquí lo tiene.

1. Pulse las teclas Alt+F11para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

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

3. Copie y pegue el siguiente código VBA en el nuevo módulo.

VBA: Añadir comillas alrededor de 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

4. Pulse la tecla F5 o haga clic en el botón Ejecutar en la ventana para ejecutar el código VBA. Aparecerá un cuadro de diálogo para seleccionar las celdas a las que añadir comillas.

5. Haga clic en Aceptar. Ahora se han añadido comillas alrededor del texto en las celdas seleccionadas.

A veces, para ayudar a otros usuarios a comprender mejor los datos, es posible que necesites agregar texto en los resultados de fórmulas, como se muestra en la siguiente captura de pantalla. Para incluir texto en una fórmula, basta con rodearlo con comillas y usar el operador & para combinarlo con la fórmula.

Caso 1 Agregar texto antes de la fórmula

«Hoy es »&TEXTO(HOY(),«dddd, mmmm dd.»)

Caso 2 Agregar texto después de lafórmula

TEXTO(AHORA(),«HH:MM:SS»)&« es la hora actual.»

Caso 3 Agregar texto a ambos lados de la fórmula

«Hoy se vendieron »&datos&« kg.»

---

Las mejores herramientas de productividad para Office

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en 80 %

• Super Barra de fórmulas (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (lea y edite cómodamente un gran número de celdas); Pegar en Rango de filtro...
• Fusionar celdas, filas o columnas manteniendo los datos; dividir el contenido de las celdas; combinar filas duplicadas y sumar o calcular el promedio...; evitar entradas duplicadas en celdas; comparar rangos...
• Seleccionar filas duplicadas o únicas;Seleccionar filas en blanco (todas las celdas vacías);Búsqueda avanzada y búsqueda difusa en varios libros de trabajo; selección aleatoria…
• Copia celdas exactamente sin que cambien las referencias de las fórmulas; crea referencias automáticamente en varias hojas; inserta viñetas, casillas de verificación y mucho más...
• Favoritas e inserción rápida de fórmulas, rangos, gráficos e imágenes; cifrado de celdas con contraseña; creación de listas de correo y envío de correos electrónicos…
• Extraer texto, agregar texto, eliminar caracteres en una posición, eliminar espacios; crear e imprimir estadísticas de la página de datos; convertir entre contenido de celdas y comentarios...
• Super Filtro (guarde y aplique esquemas de filtro en otras hojas); Clasificación avanzada por mes, semana, día, frecuencia y más; Filtro especial por negrita, cursiva…
• Combina libros y hojas de trabajo; combina tablas basadas en una columna clave; divide datos en varias hojas; conversión masiva de archivos XLS, XLSX y PDF...
• Agrupación en Tabla Dinámica por número de semana, día de la semana y más…Mostrar celdas desbloqueadas y bloquear la selección con colores diferenciados;Resaltar celdas que contienen fórmulas o nombres…

Leer más...Prueba gratuita de 30 días con todas las funciones...Comprar... 

---

Office Tab: incorpora una interfaz con pestañas en Office y hace su trabajo mucho más fácil

• 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 hacerlo en ventanas separadas.
• ¡Aumente su productividad en un 50 % y ahorre cientos de clics del ratón cada día!

Leer más...Prueba gratuita de 30 días con todas las funciones...Comprar...