Как суммировать в Excel только числа, заключённые в скобки?
Если у вас есть список текстовых строк и нужно быстро сложить только числа, заключённые в скобки (как на снимке экрана ниже), как это сделать? В этой статье я покажу несколько эффективных приёмов для суммирования только таких чисел в Excel.
Суммирование только чисел в скобках с помощью формулы
Чтобы просуммировать только числа в скобках, сначала извлеките заключённые в них числа, а затем сложите их.
1. Выберите пустую ячейку рядом с той, из которой нужно извлечь числа в скобках (например, B2), и введите следующую формулу:
=IF(ISERROR(MID(A1,FIND(«(»,A1)+1,(FIND(«)»,A1))-(FIND(«(»,A1)+1))),0,(MID(A1,FIND(«(»,A1)+1,(FIND(«)»,A1))-(FIND(«(»,A1)+1)))+0).
Затем перетащите маркер автозаполнения вниз, чтобы извлечь числа в скобках из каждой ячейки. См. снимок экрана:
2. Выберите ячейку, в которую нужно поместить результат суммирования, введите =SUM(B1:B8) и нажмите клавишу Enter. См. снимок экрана:
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Суммирование только чисел в скобках с помощью пользовательской функции
Вы также можете воспользоваться пользовательской функцией для суммирования чисел в скобках.
1. Нажмите сочетание клавиш Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications, выберите Вставка > Модуль и вставьте приведённый ниже код в пустое окно редактора.
VBA: Суммирование чисел в скобках
Function SumBracket(Target As Range) As Double
'UpdatebyExtendoffice20160901
Dim xCell As Range
Dim xObjs As Object, xObj As Object
Dim xSum As Double
Set xObjs = CreateObject("VBScript.RegExp")
xSum = 0
With xObjs
.Global = True
.Pattern = "\((\d+(\.\d+)?)\)"
For Each xCell In Target
If xCell.Value <> "" Then
For Each xObj In xObjs.Execute(xCell.Value)
xSum = xSum + xObj.submatches(0)
Next
End If
Next
End With
SumBracket = xSum
End Function
2. Сохраните код, выберите ячейку для размещения результата и введите формулу: =SumBracket(A1:A8), затем нажмите клавишу Enter. См. снимок экрана:
Суммирование только чисел в скобках с помощью Kutools для Excel
На самом деле, с помощью Kutools для Excel можно воспользоваться функцией Извлечь текст, чтобы извлечь числа в скобках, а затем применить функцию Сумма абсолютных значений для их суммирования.
После установки Kutools для Excel выполните действия, описанные ниже: ()Бесплатно скачать Kutools для Excel прямо сейчас!)
1. Выделите строки, из которых нужно извлечь числа в скобках, и нажмите Kutools > Текст > Извлечь текст. См. снимок экрана:
2. В диалоговом окне Извлечь текст введите (*) в поле Текст и нажмите кнопку Добавить, чтобы добавить это правило в раздел Извлечь список. Затем нажмите кнопку ОК и выберите ячейку для размещения извлечённых чисел в появившемся диалоговом окне, например C1. См. снимок экрана:
 |  |  |
3. Нажмите кнопку ОК, и числа в скобках будут извлечены. По умолчанию такие числа распознаются как отрицательные, поэтому для их суммирования используйте Абсолютное значение.
4. Выберите ячейку для размещения результата вычисления и нажмите Kutools > Помощник формул > Математика и тригонометрия > Сумма абсолютных значений. См. снимок экрана:
5. В диалоговом окне Помощник формул выберите в поле Число диапазон, содержащий извлечённые числа — в данном случае C1:C8. Нажмите кнопку ОК, и абсолютные значения чисел будут добавлены. См. снимок экрана:
 | |  |
Суммирование чисел в скобках
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек