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.
Note
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.
Haga clic para descargar el archivo de muestra
Esta parte enumera diferentes métodos para agregar caracteres al comienzo de cada celda, como se muestra a continuación:
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 Participar para obtener el resultado, luego arrastre el controlador de autocompletar hacia abajo para agregar texto a cada celda del rango B3: B6.
| 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:
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 Participar para permitir que Flash Fill llene los datos automáticamente.
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.
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. |
4. Prensa F5 tecla o clic Ejecutar . 
en la ventana para activar el código VBA.
Ahora a todas las celdas seleccionadas se les ha agregado el texto "Iphone" al principio.
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:
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 Participar para obtener el resultado, luego arrastre el controlador de autocompletar hacia abajo para agregar texto al final de cada celda del rango B3: B6.
| 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:
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.
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.
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. |
4. Prensa F5 tecla o clic Ejecutar . en la ventana para activar el código VBA.
Ahora se ha agregado el texto "Kg" al final de cada celda.
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.
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 Participar 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.
| 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:
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.
| 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.
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) |
4. Prensa F5 tecla o clic Ejecutar . en la ventana para activar el código VBA. Aparece un cuadro de diálogo para seleccionar celdas para agregar texto.
5. Hacer clic en OK. Ahora se agregó el texto ":" después del segundo carácter de cada celda en el rango B19: B23.
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 .
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.
4.1 Agregar texto antes del primer carácter o después del último carácter
En 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 existentes Puesto de trabajo .
Haga Clic en ¡Aplicá! or Ok para terminar de agregar.
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 existentes Puesto de trabajo .
Haga Clic en ¡Aplicá! or Ok para terminar de agregar.
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:
En 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 ¡Aplicá!.
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 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.
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:
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 Participar para obtener el primer resultado de adición, luego arrastre el controlador de autocompletar sobre las celdas que necesitan esta fórmula.
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:
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 Participar para obtener el primer resultado de adición, luego arrastre el controlador de autocompletar sobre las celdas que necesitan esta fórmula.
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 |
 |
| Agregar caracteres después de cada palabra |
 |
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 Participar para obtener el primer resultado, luego arrastre el controlador de autocompletar hacia abajo para obtener todos los resultados.
Suponiendo que agregue ($) después de cada palabra de la lista B11: B14, use la fórmula de la siguiente manera:
=SUSTITUIR(B11," ","($) ")&"($)"
Prensa Participar para obtener el primer resultado, luego arrastre el controlador de autocompletar hacia abajo para obtener todos los resultados.
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
Agregar después de cada palabra excluyendo la última
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 del botón.
| Operación | General | Ejemplo |
| Agregar caracteres antes de cada palabra | Agregar nuevos caracteres después de un espacio | Agregar (venta) antes de cada palabra |
| Operación | General | Ejemplo |
| Agregar caracteres después de cada palabra | Nuevos personajes seguidos de un espacio | Agregar - después de cada palabra |
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.
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 SubAgregar 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 Sub4. Prensa F5 para ejecutar el código (o puede hacer clic en Ejecutar . ), aparece un cuadro de diálogo para pedirle que seleccione celdas continuas para trabajar, haga clic en OK.
5. En el segundo cuadro de diálogo emergente, escriba los caracteres que desea agregar, haga clic en OK.
Luego, los caracteres se agregarán al principio o al final de cada palabra.
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.
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 Function4. 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 Participar para obtener el resultado, arrastre el controlador de autocompletar sobre las celdas para obtener otros resultados que necesite.
|
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 Participar y luego arrastre el controlador de autorrelleno sobre otras celdas.
Si la longitud de los números es 5, la fórmula se cambiará como =TEXTO(B10,"# # # # #").
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.
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 Function4. 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 Participar para obtener el resultado, arrastre el controlador de autocompletar sobre las celdas para obtener otros resultados que necesite.
| Atención: en el código VBA, puede cambiar el "" a otros textos que necesites, suponiendo que lo cambies a "-" agregar - entre palabras. |
Para agregar caracteres específicos entre textos y números como se muestra a continuación, aquí se proporcionan dos métodos.
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 Participar para obtener el primer resultado, luego arrastre el controlador de autocompletar sobre otras celdas para completar esta fórmula.
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 Participar para obtener el primer resultado, luego arrastre el controlador de autocompletar sobre otras celdas para completar esta fórmula.
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.
Y presione Ctrl + E teclas para habilitar Flash Fill.
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.
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.
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 Participar para obtener el primer resultado, luego arrastre el controlador de autocompletar sobre otras celdas.
|
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 del desplegable Categoría .
3. Luego a la derecha Tipo de Propiedad sección, tipo ###-###-### en el cuadro de texto, haga clic en OK.
Ahora a los números seleccionados se les han agregado guiones.
10.3 Agregue guiones al número de teléfono agregando texto de Kutools para Excel
Si tiene 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.
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.
3. Hacer clic en 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.
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.
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 del desplegable Categoría .
3. Luego a la derecha Tipo de Propiedad 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.
Luego se han sumado los números con ceros a la izquierda y de la misma longitud.
| 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 Participar y arrastre el controlador de relleno automático hacia abajo.
| Atención: si la longitud de los datos originales excede la longitud establecida, mostrará los datos originales sin ceros a la izquierda. |
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 .
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 Participar y arrastre el controlador de autocompletar hacia las celdas que necesitan esta fórmula.
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.
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 Participar 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.
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.
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 de Propiedad caja de texto. Hacer clic OK.
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 Participar y arrastre el controlador de autocompletar hacia abajo para llenar las celdas.
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 & ")". |
4. Prensa F5 tecla o clic Ejecutar . en la ventana para activar el código VBA. Aparece un cuadro de diálogo para seleccionar celdas para agregar comillas.
5. Hacer clic en OK. Ahora las comillas se han agregado alrededor de los textos en las celdas seleccionadas.
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.
Caso 1 agregar texto antes de la fórmula
"Hoy es "&TEXTO(HOY(),"dddd, mmmm dd.")
Caso 2 añadir texto después fórmula
TEXT(NOW(),"HH:MM:SS")&" es la hora actual".
Caso 3 agregar textos en dos lados de la fórmula
"Hoy vendió "&data&" kg."
Más tutoriales de Excel: |
|
Combine varios libros de trabajo/hojas de trabajo en uno Dividir celdas de texto, número y fecha (separadas en varias columnas) Combine el contenido de varias celdas sin perder datos en Excel Compare dos columnas para coincidencias y diferencias en Excel |
Las mejores herramientas de productividad de oficina
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
- 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...
- 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!
