¿Cómo agregar texto en el medio de las celdas seleccionadas en Excel?

Agregar texto en el medio de las celdas seleccionadas en Excel es una técnica útil para organizar y presentar datos. Esta guía proporcionará instrucciones claras y paso a paso sobre cómo insertar nuevo texto dentro del contenido existente de las celdas utilizando las funciones y características integradas de Excel.

• Agregar texto en el medio de las celdas seleccionadas con fórmula
• Agregar texto en el medio de las celdas seleccionadas con Kutools para Excel
• Agregar texto en el medio de las celdas seleccionadas con código VBA

Agregar texto en el medio de las celdas seleccionadas con fórmula

En esta sección, le proporcionaremos la fórmula para agregar texto en el medio de las celdas seleccionadas. Por favor, siga los siguientes pasos.

1. Este método debe realizarse con una columna auxiliar. Seleccione la celda en blanco adyacente a los datos originales; aquí selecciono la celda B2.

2. Copie y pegue la fórmula =IZQUIERDA(A2,1) & "D" & MED(A2,2,100) en la Barra de fórmulas, y luego presione la tecla Enter. Ver captura de pantalla:

Notas:

• 1). En la fórmula, el número 1 significa que el texto se agregará después del primer carácter de la celda.
• 2). Los números 2 y 100 indican que los caracteres del segundo al centésimo de la celda original se agregarán después del nuevo texto insertado.
• 3). Si desea agregar texto después del segundo carácter, cambie el número 1 por 2, y el 2 por 3 en la fórmula.
• 4). Y el carácter “D” es el texto que agregará a la celda. Cámbielo según sus necesidades.

3. Seleccione la celda B2, arrastre el controlador de relleno hacia abajo hasta la celda que desee cubrir con esta fórmula. Puede ver que el texto se ha agregado en el medio de las celdas en toda la lista.

Consejos: Además de la fórmula anterior, también puede aplicar esta fórmula =REEMPLAZAR(A2,2,0,"D"), (el número 2 indica la ubicación donde desea insertar el texto, y la letra D se refiere al texto que necesita agregar; puede cambiarlos según sea necesario), luego presione la tecla Enter para obtener el resultado.

Agregar texto en el medio de las celdas seleccionadas con Kutools para Excel

Debemos admitir que los dos métodos anteriores son inconvenientes para nosotros. Aquí le mostraré la utilidad Agregar texto de Kutools para Excel, con esta herramienta, puede especificar fácilmente la posición central de la lista y luego agregar cierto texto a esa posición de toda la lista al mismo tiempo.

1. Seleccione la lista en la que desea agregar texto en el medio de las celdas, y luego haga clic en Kutools > Texto > Agregar texto. Ver captura de pantalla:

2. En el Agregar texto cuadro de diálogo, escriba el texto que desea agregar a las celdas en el cuadro de texto, especifique la posición donde desea agregar el texto marcando la opción Especificar (aquí ingreso el número 1), luego haga clic en el botón Aceptar. (Puede previsualizar instantáneamente el resultado de la adición en el cuadro derecho)

Nota: Para agregar texto en múltiples posiciones de la celda seleccionada a la vez, puede especificar las posiciones separadas por comas en el cuadro Especificar. Ver captura de pantalla:

Ahora el texto especificado se ha agregado después de la primera letra en la lista seleccionada.

Agregar texto en el medio de las celdas seleccionadas con código VBA

Además, puede agregar texto en el medio de las celdas seleccionadas con código VBA.

1. Presione Alt + F11 para abrir la ventana Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo. Luego copie y pegue el siguiente código VBA en el editor de Código.

Código VBA: Agregar texto a una lista de datos después del 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 Sub

3. Presione la tecla F5 para ejecutar el código, y en el cuadro de diálogo emergente KutoolsforExcel, seleccione el rango al que desea agregar texto, y finalmente haga clic en el botón Aceptar.

Ahora el texto especificado se ha agregado después del primer carácter de las celdas seleccionadas.

Nota: En el código anterior, insertará un valor específico después del primer carácter dentro de la celda; puede cambiar los números 1 y 2 a los números 2 y 3 si agrega el texto después del segundo carácter en este script VBA.Izquierda(Rng.Value, 1) & "D" & VBA.Med(Rng.Value, 2, VBA.Longitud(Rng.Value) - 1), y la letra D es el nuevo texto que desea insertar.

Esta guía lo lleva a través de tres métodos para lograr esto: usando fórmulas de Excel, aprovechando el complemento Kutools para Excel y aplicando código VBA. Cada método ofrece un enfoque único para insertar nuevo texto dentro del contenido existente de las celdas, adaptándose a diferentes niveles de habilidad en Excel y necesidades del usuario. Si está interesado en explorar más consejos y trucos de Excel, nuestro sitio web ofrece miles de tutoriales. Por favor, haga clic aquí para acceder a ellos.

Artículo relacionado:

• ¿Cómo agregar texto al principio o al final de todas las celdas en Excel?