Note: The other languages of the website are Google-translated. Back to English

Як підсумувати або скласти числа в одній комірці в 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 для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (8)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
ДУЖЕ ДЯКУЄМО, ІДЕЯ МОДУЛЯ ДИВОВА! Я НІКОЛИ НЕ ЗНАЛА, ЩО ЦЕ ІСНУЄ
Цей коментар був мінімізований модератором на сайті
Проблема з цим інструментом полягає в тому, що він додає всі цифри. Проблема полягає в тому, що 125 + 2 не є 127. Інструмент додасть його як 1 + 2 + 5 + 2. Не знаю, наскільки це корисно для тих, кому потрібно додати всі числа. Навіть у прикладі це не має сенсу чи здається практичним. Я щось пропустив?
Цей коментар був мінімізований модератором на сайті
Неправильно, якщо числа введені в клітинку окремо, наприклад 125 2, а формула введена в наступну клітинку. Комірка з формулою обчислить 127.
Цей коментар був мінімізований модератором на сайті
Привіт Майкл,
Вибачте за помилку. Введіть наведений нижче код VBA у вікно модуля (код), а потім застосуйте цю формулу: =SUMNUMS(A1;""), щоб підсумувати всі цифри в клітинці.

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
Цей коментар був мінімізований модератором на сайті
Ви також можете дуже легко просто ввести "=" в клітинку. Отже, якби у вас була клітинка, яка була 3, але ви хотіли додати 1+2, це було б «=1+2» у клітинці
Цей коментар був мінімізований модератором на сайті
У мене є список чисел, до яких я хочу автоматично додати 30 до кожного числа в кожній окремій клітинці. Це можливо?
Цей коментар був мінімізований модератором на сайті
Як додати +1 цифру до чисел в одній клітинці (word чи excell чи блокнот, не має значення). Але на моїй роботі у мене часто буває: 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, щось таке.

І мені потрібно зробити їх такими: 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 Я роблю це вручну, але, можливо, є швидкий спосіб зробити це?
Цей коментар був мінімізований модератором на сайті
Код функції VBA працює дуже добре. Дякую. 
There are no comments posted here yet

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL