Przejdź do głównej zawartości

Jak dodać wartości do wielu komórek w programie Excel?

Jeśli chcesz dodać wartość do wielu komórek w programie Excel, poniższe metody pomogą Ci ją łatwo i szybko przetworzyć:


strzałka niebieski prawy bąbelek Dodaj wartość do wielu komórek za pomocą VBA

Korzystanie z makr może ułatwić wielokrotne przetwarzanie, a także uczynić naszą pracę łatwiejszą i szybszą. Tak robi następujące makro.

Krok 1: Wybierz komórki, do których dodasz wartość.

Krok 2: Przytrzymaj przycisk ALT + F11 keys i otwiera okno Microsoft Visual Basic for Applications.

Krok 3: Kliknij wstawka > Modułi wklej następujący VBA w oknie modułu.

Sub Add2Formula ()
„Dodaj 300

Dla każdego c w zaznaczeniu
c. aktywuj
ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula & "+300"
Dalej c

End Sub

Krok 4: Naciśnij F5 klucz do uruchomienia tego makra.

Uwagi:

1. To makro jest ważne tylko dla komórek, które nie zawierają formuł.

2. To makro doda 300 do wszystkich wybranych komórek. Jeśli chcesz dodać inną wartość, wymień rozszerzenie 300 z inną wartością.


strzałka niebieski prawy bąbelek Dodaj wartość do wielu komórek za pomocą Kutools for Excel

Kutools dla programu Excel zapewnia nam alternatywną, łatwą w użyciu metodę, a jej narzędzia operacyjne mogą nam pomóc w łatwym dodaniu wartości do wielu komórek.

Kutools dla programu Excel zawiera ponad 80 przydatnych narzędzi programu Excel. Bezpłatne wypróbowanie bez ograniczeń w ciągu 30 dni. Zdobądź to teraz.

Krok 1: Wybierz komórki, do których dodasz tę samą wartość.

Krok 2: Kliknij Kutools > Działanie > Narzędzia operacyjne…. Zobacz zrzut ekranu:

Krok 3: Wybierz Dodatek z sekcji Operacja i wprowadź wartość, którą dodasz do wybranych komórek. Zobacz zrzut ekranu:

Krok 4: Sprawdź Twórz formuły opcja.

Krok 5: Kliknij OK.

W narzędziach operacyjnych,
wybierz opcję Dodatek, wprowadź 300 i kliknij przycisk OK.

Kutools dla Excela Narzędzia operacyjne obsługuje wszystkie rodzaje operacji matematycznych na wszystkich zaznaczonych komórkach razem:

  • Dodawanie: Plus określony operand.
  • Odejmowanie: odejmij określony operand.
  • Mnożenie: każda wartość komórek pomnożona przez operand.
  • Dzielenie: każda wartość komórek podzielona przez operand.
  • Potęgowanie: każda wartość komórki zasila operand.
  • Zaokrąglanie: Zaokrąglij każdą wartość komórki do liczb dziesiętnych (określony operand).
  • Funkcja: stosuje funkcję do każdej wartości komórki.
  • Niestandardowe: utwórz wyrażenie podobne do formuły i zastosuj do każdej wartości w komórce.

Powiązany artykuł

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!

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