Перейти к основному содержанию
 

Как суммировать значения ячеек в столбце, пока не будет достигнута пустая ячейка?

Автор: Сяоян Последнее изменение: 2024 июля 11 г.

Если у вас есть список чисел, заполненный некоторыми пустыми ячейками, и теперь вам нужно просуммировать числа выше или ниже пустых ячеек в этом списке, чтобы получить следующие результаты. Есть ли у вас какие-либо быстрые или простые способы решения этой задачи в Excel?

Суммировать значения ячеек выше до пустой ячейки

Скриншот Excel, показывающий суммирование значений выше до тех пор, пока ячейка не станет пустой

Суммируйте значения ячеек ниже до пустой ячейки

Скриншот Excel, показывающий суммирование значений ниже до тех пор, пока ячейка не станет пустой

Суммируйте значения ячеек ниже до пустых ячеек с формулой массива

Суммируйте значения ячеек выше до пустых ячеек с кодом VBA


стрелка синий правый пузырь Суммируйте значения ячеек ниже до пустых ячеек с формулой массива

Чтобы суммировать значения ячеек ниже до пробелов, вот формула массива, сделайте следующее:

1. Введите эту формулу в пустую ячейку рядом со столбцом чисел, E1, Например.

=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 первые две ячейки в столбце, D17 - последняя пустая ячейка в числовом столбце).

2, Затем нажмите Shift + Ctrl + Enter вместе, а затем перетащите дескриптор заполнения вниз к ячейкам, в которых вы хотите суммировать числа ниже, до пустых значений, см. снимок экрана:

Скриншот Excel с результатами суммирования значений под пустыми ячейками


стрелка синий правый пузырь Суммируйте значения ячеек выше до пустых ячеек с кодом VBA

Если вам нужно суммировать указанные выше значения ячеек до пустых ячеек, следующий код VBA может оказать вам услугу.

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: суммируйте значения ячеек выше до пробелов:

Sub InsertTotals()
'Updateby Extendoffice
    Dim xRg As Range
    Dim i, j, StartRow, StartCol As Integer
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.AddressLocal
    Set xRg = Application.InputBox("please select the cells:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    StartRow = xRg.Row
    StartCol = xRg.Column
    For i = StartCol To xRg.Columns.Count + StartCol - 1
        For j = xRg.Row To xRg.Rows.Count + StartRow - 1
            If Cells(j, i) = "" Then
                Cells(j, i).Formula = "=SUM(" & Cells(StartRow, i).Address & ":" & Cells(j - 1, i).Address & ")"
                StartRow = j + 1
            End If
        Next
        StartRow = xRg.Row
    Next
End Sub

3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится окно подсказки, напоминающее вам о выборе диапазона ячеек, в котором вы хотите суммировать ячейки выше до пустых ячеек, см. снимок экрана:

Скриншот поля ввода VBA для выбора диапазона для суммирования значений над пустыми ячейками

4. Затем нажмите OK кнопки, все значения ячеек над пустыми ячейками были добавлены, как показано на следующем снимке экрана:

Скриншот Excel, показывающий результаты суммирования значений над пустыми ячейками с использованием VBA

Лучшие инструменты для офисной работы

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

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!