Przejdź do głównej zawartości

Jak sumować lub dodawać liczby w jednej komórce w programie Excel?

W wielu przypadkach może być konieczne zsumowanie wszystkich liczb w jednej komórce. Na przykład w komórce A1 znajduje się ciąg tekstowy Class 2 Grade 1, a wynik dodania tych liczb to 1 + 2 = 3. Ten artykuł pokaże Ci metody dodawania liczb w jednej komórce ze szczegółami.

Sumuj liczby w jednej komórce za pomocą funkcji zdefiniowanej przez użytkownika
Z łatwością sumuj liczby w jednej komórce za pomocą kilku kliknięć

Sumuj liczby w jednej komórce za pomocą funkcji zdefiniowanej przez użytkownika

Możesz zsumować liczby w jednej komórce za pomocą poniższej funkcji zdefiniowanej przez użytkownika.

1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Aplikacja Microsoft Visual Basic okno.

2. w Aplikacja Microsoft Visual Basic okno, kliknij wstawka > Moduł. A następnie skopiuj poniższy VBA do pliku Moduł okno.

VBA: suma liczb w jednej komórce

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
	Dim arr As Variant
	Dim xIndex As Long
	arr = Split(pWorkRng, xDelim)
	For xIndex = LBound(arr) To UBound(arr) Step 1
		SumNums = SumNums + VBA.Val(arr(xIndex))
	Next
End Function

3. Naciśnij przycisk inny + Q klucze do zamknięcia Aplikacja Microsoft Visual Basic okno.

4. Wybierz pustą komórkę, aby wyświetlić wynik. Wprowadź do niego poniższą formułę i naciśnij Wchodzę klucz (A2 to komórka, w której będziesz sumować pojedyncze liczby).

=SUMNUMS(A2)

5. Następnie przeciągnij uchwyt wypełnienia komórki wynikowej, aby zastosować formułę do innych potrzebnych komórek.

Note: Ta funkcja zdefiniowana przez użytkownika nie ma zastosowania do komórek w formacie liczbowym.

Z łatwością sumuj liczby w jednej komórce za pomocą kilku kliknięć

Kutools dla programu Excel'S Sumuj liczby w komórce Formuła może pomóc w łatwym sumowaniu liczb w pojedynczej komórce (w tym komórce formatu tekstu i komórce formatu liczb) za pomocą kilku kliknięć.

Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.

1. Wybierz pustą komórkę, aby wyświetlić wynik. A następnie kliknij Kutools > Pomocnik formuły > Pomocnik formuły.

2. w Pomocnik formuły okno dialogowe, skonfiguruj w następujący sposób.

2.1) Znajdź i wybierz Sumuj liczby w komórce Wybierz formułę pudełko;
Tips: Możesz sprawdzić FILTRY wpisz słowo kluczowe, aby przefiltrować potrzebną formułę.
2.2) W Komórka box, określ komórkę zawierającą liczby, które zsumujesz;
2.3) Kliknij OK przycisk. Zobacz zrzut ekranu:

3. Następnie wynik zostanie umieszczony w wybranej komórce. Wybierz komórkę wynikową, a następnie przeciągnij jej uchwyt wypełnienia w dół, aby uzyskać inne wyniki.

  Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.

Z łatwością sumuj liczby w jednej komórce za pomocą Kutools for Excel

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ędzi:  12 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 (8)
No ratings yet. Be the first to rate!
Eric Hammond
Eric Hammond
This comment was minimized by the moderator on the site
The VBA function code works really well. Thank you. 
Reply
0
0
Migle
Migle
This comment was minimized by the moderator on the site
How do I add +1 digit to numbers in one cell (word or excell or notepad, doesn't matter). But at My work I often have: 14,17,28,31,35,38,50,53,70,73,80,83,90,93,120,123,135,138,150,153,165,168,180,183,210,213,250,253,275,278,300,303 something like that.

And I need to make them like: 15,18,29,32,36,39,51,54,71,74,81,84,91,94,121,124,136,139,151,154,166,169,181,184,211,214,251,254,276,279,301,304. I do it manually, but maybe there is a fast way to do it?
Reply
0
0
Louanne Zettler
Louanne Zettler
This comment was minimized by the moderator on the site
I have a list of numbers that I want to automatically add 30 to each number in each single cell. Is that possible?
Reply
0
0
Em
Em
This comment was minimized by the moderator on the site
You can also very easily just type "=" in the cell. So if you had a cell that was 3 but wanted to add 1+2 it would be "=1+2" in the cell
Reply
0
0
Dan
Dan
This comment was minimized by the moderator on the site
The problem with this tool is that it adds all the digits. The problem is 125 + 2 is not 127. The tool would add it as 1 + 2 + 5 + 2. Not sure how this is useful to someone that needs to add all the numbers. Even in the example it does not make sense or seem practical. Did I miss something?
Reply
0
0
Michael
Michael     Dan
This comment was minimized by the moderator on the site
Incorrect if the numbers are entered into the cell separately, for example 125 2 and the formula is entered into the next cell. The cell with the formula will calculate 127.
Reply
0
0
crystal
crystal     Michael
This comment was minimized by the moderator on the site
Hi Michael,
Sorry for the mistake. Please enter the following VBA code into the Module (Code) window, and then apply this formula: =SUMNUMS(A1,"") to sum all digits in a cell.

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
'Updated by ExtendOffice 20221122
    If pWorkRng.CountLarge > 0 Then Exit Function
    On Error Resume Next
    Application.Volatile
    
    Dim arr As Variant
    Dim xIndex As Long
    If xDelim <> "" Then
        arr = Split(pWorkRng, xDelim)
        For xIndex = LBound(arr) To UBound(arr) Step 1
            SumNums = SumNums + VBA.Val(arr(xIndex))
        Next
    Else
        For xIndex = 1 To Len(pWorkRng) Step 1
            If IsNumeric(Mid(pWorkRng, xIndex, 1)) Then
                SumNums = SumNums + VBA.Val(Mid(pWorkRng, xIndex, 1))
            End If
        Next
    End If
End Function
Reply
Report
0
0
Omar
Omar
This comment was minimized by the moderator on the site
THANKSSSSSS SOOO MUCH THE MODULE IDEA IS AMAZING ! I NEVER KNEW IT EXISTED
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