Note: The other languages of the website are Google-translated. Back to English

¿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:

Pestaña de Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
  • Reutiliza cualquier cosa: Agregue las fórmulas, gráficos y cualquier otra cosa más utilizados o complejos a sus favoritos y reutilícelos rápidamente en el futuro.
  • Más de 20 funciones de texto: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convierta números y monedas a palabras en inglés.
  • Combinar herramientas: Varios libros de trabajo y hojas en uno; Fusionar varias celdas / filas / columnas sin perder datos; Fusionar filas duplicadas y suma.
  • Herramientas divididas: Divida los datos en varias hojas según el valor; Un libro de trabajo para varios archivos Excel, PDF o CSV; Una columna a varias columnas.
  • Pegar saltando Filas ocultas / filtradas; Cuenta y suma por color de fondo; Envíe correos electrónicos personalizados a varios destinatarios de forma masiva.
  • Súper filtro: Cree esquemas de filtros avanzados y aplíquelos a cualquier hoja; Ordenar por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de 300 potentes funciones; Funciona con Office 2007-2021 y 365; Admite todos los idiomas; Fácil implementación en su empresa u organización.

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

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • 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 sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... 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 ...
  • 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...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior

Comentarios (8)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Señor, si a1 = 100 b1 = 100 y después de eso queremos insertar 100 nuevamente en a1 den b1 debería actualizarse automáticamente a 200 significa que el valor a1 se agrega en b1 y así sucesivamente. cómo es posible que tengamos que tomar las dos celdas solamente. señor, por favor resuelva este problema
Este comentario fue minimizado por el moderador en el sitio
Agregar valor a múltiples celdas con la técnica de VBA es muy útil Gracias
Este comentario fue minimizado por el moderador en el sitio
Estimado experto Tiene una pregunta aquí. ¿Cómo aumentar la edad automáticamente para cada año? Gracias
Este comentario fue minimizado por el moderador en el sitio
¿cualquier respuesta? ¿Responderá este sitio a nuestra consulta?
Este comentario fue minimizado por el moderador en el sitio
esta herramienta es tan útil y puede confiar en el producto.
Este comentario fue minimizado por el moderador en el sitio
señor.iam haciendo una lista de encuestas en excel si a=200,b=100,c=50,d=15.e=10 para 3 preguntas si selecciona a,b,b significa 200+100+100=400 y Descripción debería ser bueno .. cómo hacer este
Este comentario fue minimizado por el moderador en el sitio
¿Cómo puedo obtener esta fórmula de VBA para omitir celdas en blanco y de texto? Gracias
Este comentario fue minimizado por el moderador en el sitio
Si desea incluir celdas con fórmula, puede intentarlo, que es solo una ligera modificación del original. Pero agregar números a una fórmula establecida podría ser peligroso, así que tenga cuidado:


Sub Add2Formula ()
' Agregar un número
Dim fórmulas como cadena
Dim a_number como doble

a_number = InputBox("qué número incrementar")

Para cada celda en la selección
celular.Activar
fórmulas = ActiveCell.Fórmula
' se deshace de fórmulas no esenciales que podrían causar errores
fórmulas = Reemplazar (fórmulas, "'", "")
fórmulas = Reemplazar (fórmulas, "=", "")

Si fórmulas = "" Entonces
ActiveCell.Formula = "= " & ActiveCell.Formula & "+" & a_number
otro
ActiveCell.Formula = "= " & fórmulas & "+" & a_number
Si terminar
Siguiente celda

End Sub


Esto podría modificarse fácilmente para omitir celdas en blanco, y para omitir celdas de texto, probablemente podría evaluar el valor de la celda, y cuando se equivoque, podría pasar a la siguiente celda. Espero que esto ayude.
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL