Saltar al contenido principal

¿Cómo agregar cadenas de texto a múltiples celdas en Excel?

Si necesitamos agregar algún texto específico o cadenas de texto en varias celdas, será arduo y lento copiar este texto y pegarlo en cada celda una por una. Los siguientes métodos pueden ayudarnos a agregar texto específico en varias celdas de manera conveniente y rápida.

flecha azul burbuja derecha Agregue texto específico a múltiples celdas en Excel con VBA

El uso de un VBA puede facilitar nuestro trabajo y agregar texto específico en varias celdas sin copiar y pegar.

Paso 1: Seleccione las celdas en las que agregará el texto específico.

Paso 2: mantenga presionada la tecla ALT + F11 teclas y abre la ventana de Microsoft Visual Basic para Aplicaciones.

Paso 3: Click recuadro >> Móduloy pegue la siguiente macro en la ventana del módulo.

Sub Add2Formula ()
' Añadir texto

Para cada c en la selección
c. activar
ActiveCell.FormulaR1C1 = "prueba -" & ActiveCell.Formula
Siguiente c

End Sub

Paso 4: Presione el F5 clave para ejecutar esta macro.

Note: Esta macro solo puede agregar el texto - al frente del texto de cada celda. Si desea agregar otro texto o cadenas, reemplace el texto - con el texto específico que desea agregar.

flecha azul burbuja derecha Agregue texto específico a múltiples celdas en Excel con Kutools para Excel

Para los usuarios comunes de Microsoft Excel, es posible que no estemos familiarizados con VBA. Alternativamente, el Kutools for ExcelLa herramienta Agregar texto puede ayudarnos a agregar el texto específico o las cadenas en varias celdas de forma rápida y sencilla.

Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. Comprar ahora

Paso 1: Seleccione las celdas en las que agregará el texto específico.

Paso 2: haga clic en Kutools > Herramientas de texto > Añadir texto…. Ver captura de pantalla:

Paso 3: en el Añadir texto cuadro de diálogo, introduzca el texto y los caracteres específicos en la sección Texto.

Paso 4: marque una posición donde agregará el texto específico en el Puesto de trabajo sección. (Nota: si desea insertar el texto en una posición específica, marque Especificar y especificar la posición.) Ver captura de pantalla:

Paso 5: Click OK or ¡Aplicá!.

La Añadir texto La herramienta de Kutools para Excel nos apoya para agregar cualquier texto y caracteres específicos antes o después del texto de la celda original. Además, podemos agregar texto específico entre los textos de las celdas originales. Independientemente de la configuración que establezca, puede obtener una vista previa de los cambios de celda en la sección Vista previa.

Artículo relacionado:

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples  |   Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas   |  Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas   |  Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas:  12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea 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 en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (4)
No ratings yet. Be the first to rate!
Anish
Anish
This comment was minimized by the moderator on the site
how to add multiple cells and compare with one cell ,such that the one cell compared to value is dynamically changing. For example sum of column and you are adding values in the column then sum is dynamically changing.

Thank you in Advance.
Reply
0
0
Peter
Peter
This comment was minimized by the moderator on the site
If i need to add values to text like: "text" value E12 "text" value E12 "text" valueE12 is it possible? need make SEO
Reply
0
0
cpk.adm@gmail.com
This comment was minimized by the moderator on the site
i want to add one character in before and after . please help .. mail me
Reply
Report
0
0
cpk.adm@gmail.com
This comment was minimized by the moderator on the site
Private Sub CommandButton1_Click()
On Error GoTo errorhandler:
Dim objRange1 As Range
Dim wk As Workbook

'Set up the ranges


Set objRange1 = Range("A22:A51")


objRange1.TextToColumns , Destination:=Sheet1.Range("Z1"), _
DataType:=xlDelimited, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=True, _
OtherChar:="|"
Dim rn As String
Dim rn1 As String
Dim rn2 As String
Dim rep As String
Dim res As String
rep = "Do you want to copy Values?"
res = MsgBox(rep, vbQuestion + vbYesNo, "???")
If res = vbYes Then

rn = InputBox(" Enter Range to Copy Circuit Id")
Sheets("Sheet1").Range("AH1:AH10").Cut Destination:=Sheets("Sheet2").Range(rn)
MsgBox (" Circuit Id has Successfully Pasted")
rn1 = InputBox(" Enter Range to copy Order Reference")
Sheets("Sheet1").Range("AK1:AK10").Cut Destination:=Sheets("Sheet2").Range(rn1)
MsgBox (" Order Reference has Successfully Pasted")
rn2 = InputBox(" Enter Range to copy Inventory Name")
Sheets("Sheet1").Range("AG1:AG10").Cut Destination:=Sheets("Sheet2").Range(rn2)
MsgBox (" Inventory has Successfully Pasted")
Sheets("sheet1").Range("Z1:AM10").ClearContents
Sheets("sheet2").Activate
Else
MsgBox (" Thank You")
End If
errorhandler:
MsgBox ("you have clicked cancelled bitton")
Sheet1.Activate
End Sub


Private Sub CommandButton2_Click()
Sheet1.Range("A10:A32").ClearContents
End Sub







it is working , but i have to add text in one cell . please help me
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations