Прескочи на основното съдържание

Как да добавя стойности към множество клетки в Excel?

Автор: Кели Последна промяна: 2013-06-03

Ако искате да добавите стойност към няколко клетки в Excel, следните методи ще ви помогнат да я обработите лесно и бързо:


стрелка син десен балон Добавете стойност към множество клетки с VBA

Използването на макроси може да улесни много повтарящи се обработки и да направи нашата работа по-лесна и по-бърза. Същото прави и следният макрос.

Стъпка 1: Изберете клетките, към които ще добавите стойност.

Стъпка 2: Задръжте надолу ALT + F11 клавиши и отваря прозореца на Microsoft Visual Basic за приложения.

Стъпка 3: Кликнете върху Поставете > Модулии поставете следния VBA в прозореца на модула.

Sub Add2Formula()
' Добавете 300

За всеки c В селекцията
c.Activate
ActiveCell.FormulaR1C1 = "= " & ActiveCell.Formula & "+300"
Следваща c

End Sub

Стъпка 4: Натиснете бутона F5 ключ за стартиране на този макрос.

бележки:

1. Този макрос е валиден само за клетки, които не съдържат формули в тях.

2. Този макрос ще добави 300 към всички избрани клетки. Ако искате да добавите друга стойност, моля, заменете 300 с друга стойност.


стрелка син десен балон Добавете стойност към множество клетки с Kutools за Excel

Kutools за Excel ни предоставя алтернативен лесен за използване метод и неговите операционни инструменти могат да ни помогнат лесно да добавим стойност към множество клетки.

Kutools за Excel включва повече от 80 удобни инструмента на Excel. Безплатно изпробване без ограничение за 30 дни. Вземи го сега.

Стъпка 1: Изберете клетките, към които ще добавите същата стойност.

Стъпка 2: Кликнете върху Kutools > операция > Операционни инструменти…. Вижте екранна снимка:

Стъпка 3: Изберете Допълнение от секцията Операция и въведете стойността, която ще добавите към избраните клетки. Вижте екранна снимка:

Стъпка 4: Проверете Създайте формули опция.

Стъпка 5: Кликнете върху OK.

В Операционни инструменти,
изберете Добавяне, въведете 300 и щракнете върху OK.

Kutools за Excel Операционни инструменти поддържа всички видове математически операции към всички избрани клетки заедно:

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

Свързан член

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!

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