Saltar al contenido principal

¿Cómo agregar valores a múltiples celdas en Excel?

Si desea agregar un valor a varias celdas en Excel, los siguientes métodos lo ayudarán a procesarlo fácil y rápidamente:


flecha azul burbuja derecha Agregue valor a múltiples celdas con VBA

El uso de macros puede facilitar muchos procesos repetidos y hacer que nuestro trabajo sea más fácil y rápido. También lo hace la siguiente macro.

Paso 1: seleccione las celdas a las que agregará un valor.

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 el siguiente VBA en la ventana del módulo.

Sub Add2Formula ()
'Agregar 300

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

End Sub

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

Notas:

1. Esta macro solo es válida para celdas que no contengan fórmulas.

2. Esta macro agregará 300 a todas las celdas seleccionadas. Si desea agregar otro valor, reemplace el 300 con otro valor.


flecha azul burbuja derecha Agregue valor a múltiples celdas con Kutools para Excel

Kutools for Excel nos proporciona un método alternativo fácil de usar, y sus herramientas de operación pueden ayudarnos a agregar valor a múltiples celdas fácilmente.

Kutools for Excel incluye más de 80 útiles herramientas de Excel. Prueba gratis sin límite en 30 días. Consiguelo ahora.

Paso 1: seleccione las celdas a las que agregará el mismo valor.

Paso 2: haga clic en Kutools > Operación > Herramientas de operación .... Ver captura de pantalla:

Paso 3: Seleccione el Adición de la sección Operación e ingrese el valor que agregará a las celdas seleccionadas. Ver captura de pantalla:

Paso 4: Verifique el Crea fórmulas .

Paso 5: Click OK.

En herramientas de operación,
seleccione Adición, ingrese 300 y haga clic en Aceptar.

Kutools para Excel Herramientas de operación admite todo tipo de operaciones matemáticas para todas las celdas seleccionadas juntas:

  • Adición: más un operando especificado.
  • Resta: resta el operando especificado.
  • Multiplicación: cada valor de las celdas multiplicado por el operando.
  • División: cada valor de las celdas dividido por el operando.
  • Exponenciación: cada valor de la celda alimenta al operando.
  • Redondeo: Redondea cada valor de celda a los números decimales (operando especificado).
  • Función: aplica una función a cada valor de celda.
  • Personalizado: cree una expresión similar a una fórmula y aplíquela a cada valor de la celda.

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 herramientas12 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 (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks a lot. It is working 💖
This comment was minimized by the moderator on the site
If you want to include cells with formula, you could try, which is only a slight modification from the original. But adding numbers to an established formula could be dangerous so beware:


Sub Add2Formula()
' Add a number
Dim formulae As String
Dim a_number As Double

a_number = InputBox("what number to increment")

For Each cell In Selection
cell.Activate
formulae = ActiveCell.Formula
' gets rid of formula non-essentials that could cause errors
formulae = Replace(formulae, "'", "")
formulae = Replace(formulae, "=", "")

If formulae = "" Then
ActiveCell.Formula = "= " & ActiveCell.Formula & "+" & a_number
Else
ActiveCell.Formula = "= " & formulae & "+" & a_number
End If
Next cell

End Sub


This could be easily modified to skip blank cells, and to skip text cells you could probably evaluate the value of the cell, and when it errors you could go to the next cell. Hope this helps.
This comment was minimized by the moderator on the site
How can I get this VBA formula to skip blank and text cells? Thanks
This comment was minimized by the moderator on the site
sir.iam doing survey list in excel if a=200,b=100,c=50,d=15.e=10 for 3 questions if he selects a,b,b means 200+100+100=400 and Description should be good ..how to do this one
This comment was minimized by the moderator on the site
this tool is so useful and can trust the product.
This comment was minimized by the moderator on the site
any reply? will this site answer our enquiry?
This comment was minimized by the moderator on the site
Dear Expert Have a question here. How to increase age automatically for each year? Thanks
This comment was minimized by the moderator on the site
Add Value to multiple cells with VBA's techque is very useful Thanks
This comment was minimized by the moderator on the site
sir if a1=100 b1=100 and after dat we want to insert 100 again in a1 den b1 should automatically update to 200 means a1 value added in b1 and so on and on. how it is possibe we have to take the two cells only. sir plz solve dis problem
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations