Перейти до основного матеріалу

Як підсумувати або скласти числа в одній комірці в Excel?

У багатьох випадках вам може знадобитися підсумувати всі числа в одній комірці. Наприклад, у клітинці A1 є текстовий рядок класу 2, клас 1, і результат додавання цих чисел дорівнює 1 + 2 = 3. Ця стаття покаже вам способи додавання чисел в одну клітинку з деталями.

Підсумовуйте числа в одній комірці з користувацькою функцією
Легко підсумовуйте числа в одній комірці лише за кілька кліків


Підсумовуйте числа в одній комірці з користувацькою функцією

Ви можете підсумовувати числа в одній комірці за допомогою функції, визначеної нижче.

1. прес інший + F11 клавіші одночасно, щоб відкрити Додаток Microsoft Visual Basic вікна.

2 В Додаток Microsoft Visual Basic вікна, натисніть Insert > Модулі. А потім скопіюйте наведений нижче VBA в Модулі вікна.

VBA: сума цифр в одній комірці

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.Натисніть на інший + Q клавіші, щоб закрити Додаток Microsoft Visual Basic вікна.

4. Виберіть порожню комірку для виведення результату. Введіть формулу нижче і натисніть на Що натомість? Створіть віртуальну версію себе у ключ (A2 - клітинка, в якій ви будете підсумовувати одиничні числа).

=SUMNUMS(A2)

5. Потім перетягніть маркер заповнення комірки результату, щоб застосувати формулу до інших необхідних комірок.

примітки: Ця визначена користувачем функція не застосовується до комірок у цифровому форматі.


Легко підсумовуйте числа в одній комірці лише за кілька кліків

Kutools для ExcelАвтора Сумуйте числа в комірці формула може допомогти легко підсумовувати числа в одній комірці (включаючи комірку текстового формату та комірку формату чисел) лише кількома клацаннями.

Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.

1. Виберіть порожню комірку для виведення результату. А потім клацніть Кутулс > Помічник формули > Помічник формули.

2 В Помічник формули діалогове вікно, будь ласка, налаштуйте наступним чином.

2.1) Знайдіть і виберіть Сумуйте числа в комірці в Виберіть формулу коробка;
Tips : Ви можете перевірити фільтр введіть ключове слово, щоб відфільтрувати потрібну формулу.
2.2) У Осередок у полі вкажіть комірку, яка містить цифри, які ви будете підсумовувати;
2.3) Клацніть на OK кнопку. Дивіться знімок екрана:

3. Потім результат заповнюється у вибраній комірці. Виділіть комірку результату, а потім перетягніть її ручку заповнення вниз, щоб отримати інші результати.

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


Легко підсумовуйте числа в одній клітинці за допомогою Kutools для Excel

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA function code works really well. Thank you. 
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?
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?
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
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?
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.
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
This comment was minimized by the moderator on the site
THANKSSSSSS SOOO MUCH THE MODULE IDEA IS AMAZING ! I NEVER KNEW IT EXISTED
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations