Перейти к основному содержанию

Как добавить значения в несколько ячеек в Excel?

Если вы хотите добавить значение в несколько ячеек в Excel, следующие методы помогут вам легко и быстро обработать его:

стрелка синий правый пузырь Добавить значение в несколько ячеек с помощью VBA

Использование макросов может упростить выполнение многих повторяющихся операций и сделать нашу работу проще и быстрее. Так делает следующий макрос.

Шаг 1: Выберите ячейки, в которые вы добавите значение.

Шаг 2: Удерживайте ALT + F11 ключи, и он открывает окно Microsoft Visual Basic для приложений.

Шаг 3: нажмите Вставить > Модулии вставьте следующий код VBA в окно модуля.

Подложка Add2Formula ()
'Добавить 300

Для каждого c в выделении
c. Активировать
ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula & "+300"
Следующий c

End Sub

Шаг 4: нажмите F5 ключ для запуска этого макроса.

Заметки:

1. Этот макрос действителен только для ячеек, в которых нет формул.

2. Этот макрос добавит 300 ко всем выбранным ячейкам. Если вы хотите добавить другое значение, замените 300 с другим значением.

стрелка синий правый пузырь Добавить значение в несколько ячеек с помощью Kutools for Excel

Kutools for Excel предоставляет нам альтернативный простой в использовании метод, а его инструменты работы могут помочь нам легко повысить ценность нескольких ячеек.

Kutools for Excel включает более 80 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получи это сейчас.

Шаг 1. Выберите ячейки, в которые вы добавите то же значение.

Шаг 2: нажмите Кутулс > Эксплуатация > Инструменты работы…. Смотрите скриншот:

Шаг 3: выберите Дополнение из раздела «Операция» и введите значение, которое вы добавите в выбранные ячейки. Смотрите скриншот:

Шаг 4. Проверьте Создавать формулы опцию.

Шаг 5: нажмите OK.

В инструментах работы,
выберите Дополнение, введите 300 и нажмите ОК..

Kutools для Excel Инструменты для работы поддерживает все виды математических операций для всех выбранных ячеек вместе:

  • Дополнение: плюс указанный операнд.
  • Вычитание: вычитание указанного операнда.
  • Умножение: каждое значение ячеек умножается на операнд.
  • Деление: каждое значение ячеек, деленное на операнд.
  • Возведение в степень: каждое значение ячейки определяет операнд.
  • Округление: округлить каждое значение ячейки до десятичных чисел (указанный операнд).
  • Функция: применяет функцию к каждому значению ячейки.
  • Пользовательский: создайте выражение, подобное формуле, и примените к каждому значению ячейки.

Связанная статья

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup  |   VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар   |  Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки   |  Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов:  12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Comments (9)
No ratings yet. Be the first to rate!
Taher
Taher
This comment was minimized by the moderator on the site
Thanks a lot. It is working 💖
Reply
0
0
Joe Riter
Joe Riter
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.
Reply
0
0
Hum3
Hum3
This comment was minimized by the moderator on the site
How can I get this VBA formula to skip blank and text cells? Thanks
Reply
0
0
sharfudheen
sharfudheen
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
Reply
0
0
Fazlan
Fazlan
This comment was minimized by the moderator on the site
this tool is so useful and can trust the product.
Reply
0
0
Alan
Alan
This comment was minimized by the moderator on the site
any reply? will this site answer our enquiry?
Reply
0
0
Desmond
Desmond
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
Reply
0
0
Desmond
Desmond
This comment was minimized by the moderator on the site
Add Value to multiple cells with VBA's techque is very useful Thanks
Reply
0
0
jorawar singh
jorawar singh
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
Reply
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