¿Cómo agregar texto en medio de las celdas seleccionadas en Excel?
Insertar Agregar texto en medio de las celdas seleccionadas en Excel es una técnica útil para organizar y presentar datos. Esta guía le proporcionará instrucciones claras y paso a paso sobre cómo insertar Texto nuevo dentro del contenido existente de las celdas utilizando las funciones y características integradas de Excel.
Agregar texto en medio de las Fórmula seleccionadas
En esta sección le proporcionamos la fórmula para agregar texto en medio de las celdas seleccionadas. Siga estos pasos.
1. Este método requiere una columna auxiliar. Seleccione la celda en blanco adyacente a los datos originales; en este caso, la celda B2.
2. Copie y pegue la fórmula =IZQUIERDA(A2;1) & «D» & EXTRAE(A2;2;100) en la Barra de fórmulas y pulse la tecla Intro. Vea la captura de pantalla:
Notas:
- 1). En la fórmula, el número 1 indica que el texto se añadirá después del primer carácter de la celda.
- 2). Los números 2 y 100 indican que se añadirán al nuevo texto insertado los caracteres comprendidos desde la segunda hasta la centésima posición del contenido original de la celda.
- 3). Si desea agregar texto tras el segundo carácter, sustituya el número 1 por el 2 y el 2 por el 3 en la fórmula.
- 4). Y el carácter «D» es el texto que se añadirá a la celda. Cámbielo según sus necesidades.
3. Seleccione la celda B2 y arrastre el controlador de relleno hacia abajo hasta la celda que desee incluir con esta fórmula. Verá cómo el texto se añade automáticamente en medio de las celdas a lo largo de toda la lista.
Consejos: Además de la fórmula anterior, también puede usar esta otra: =REPLACE(A2,2,0,«D») (el número 2 indica la posición en la que desea insertar el texto y la letra D representa el texto que debe añadir; puede ajustar ambos valores según sus necesidades). Pulse Intro para obtener el resultado.
Agregar texto en medio de las celdas seleccionadas con Kutools para Excel
Debemos admitir que los dos métodos anteriores resultan incómodos. A continuación, le presentamos la utilidad Agregar texto de Kutools para Excel, con la que podrá indicar fácilmente una posición intermedia en la lista e insertar el texto deseado en dicha ubicación de todos los elementos al mismo tiempo.
1. Seleccione la lista en la que desea agregar texto en medio de las celdas y haga clic en Kutools > Texto > Agregar texto. Vea la captura de pantalla:
2. En el cuadro de diálogo Agregar texto, introduzca el texto que desea añadir a las celdas en el campo Texto, especifique la posición en la que desea insertarlo marcando la opción Especificar (en este caso, introduzco el número 1) y haga clic en el botón Aceptar. (Podrá previsualizar inmediatamente el resultado en el cuadro de la derecha)
Nota: Para agregar texto en varias posiciones de las celdas seleccionadas simultáneamente, especifique dichas posiciones separándolas con comas en el campo Especificar. Vea la captura de pantalla:
Ahora, el texto especificado se ha insertado tras la primera letra de la lista seleccionada.
Si desea probar gratuitamente (30 días) esta utilidad, haga clic aquí para descargarla y, a continuación, siga los pasos anteriores para aplicar la operación.
Agregar texto en medio de las celdas seleccionadas con código VBA
Además, puede agregar texto en medio de las celdas seleccionadas mediante código VBA.
1. Pulse Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y copie y pegue el siguiente código VBA en el editor de código.
Código VBA: Agregar texto a una lista de datos tras el primer carácter
Sub AddString()
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, 1) & "D" & VBA.Mid(Rng.Value, 2, VBA.Len(Rng.Value) - 1)
Next
End Sub3. Pulse la tecla F5 para ejecutar el código. En el cuadro de diálogo Kutools for Excel que aparece, seleccione el rango al que desea agregar texto y, finalmente, haga clic en el botón Aceptar.
Ahora, el texto especificado se ha insertado justo después del primer carácter de las celdas seleccionadas.
Nota: En el código anterior, se inserta un valor específico tras el primer carácter de la celda. Puede cambiar los números 1 y 2 por 2 y 3 si desea añadir el texto tras el segundo carácter en este script VBA.Izquierda(Rng.Value, 1) & «D» & VBA.Extrae(Rng.Value, 2, VBA.Largo(Rng.Value) - 1). La letra «D» es el texto nuevo que desea insertar.
Esta guía le muestra tres métodos para lograrlo: mediante fórmulas de Excel, utilizando el complemento Kutools para Excel o aplicando código VBA. Cada enfoque permite insertar texto nuevo dentro del contenido existente de las celdas, adaptándose a distintos niveles de experiencia en Excel y a sus necesidades específicas. ¿Quiere descubrir más trucos y consejos de Excel? Nuestra página web ofrece miles de tutoriales.Haga clic aquí para acceder a ellos.
Artículo relacionado:.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos