열의 셀 값을 빈 셀에 도달할 때까지 합산하는 방법은 무엇입니까?

일부 빈 셀이 포함된 숫자 목록이 있고, 이제 이 목록에서 빈 셀까지 위 또는 아래의 숫자를 합산하여 다음 결과를 얻으려고 합니다. Excel에서 이 작업을 해결하기 위한 빠르거나 쉬운 방법이 있습니까?

배열 수식을 사용하여 빈 셀에 도달할 때까지 아래쪽 셀 값 합계

VBA 코드를 사용하여 빈 셀에 도달할 때까지 위쪽 셀 값 합계

배열 수식을 사용하여 빈 셀에 도달할 때까지 아래쪽 셀 값 합계

빈 셀에 도달할 때까지 아래쪽 셀 값을 합산하려면 다음과 같은 배열 수식을 사용하십시오:

1. 예를 들어, 숫자 열 옆의 빈 셀(E1)에 이 수식을 입력합니다.

=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1과 D2는 열의 첫 두 셀이며, D17은 숫자 열의 마지막 빈 셀입니다).

2. 그런 다음 Ctrl + Shift + Enter 키를 함께 누른 후, 빈 셀이 나올 때까지 아래로 합산하려는 셀까지 채우기 핸들을 드래그합니다. 스크린샷 참조:

VBA 코드를 사용하여 빈 셀에 도달할 때까지 위쪽 셀 값 합계

빈 셀에 도달할 때까지 위쪽 셀 값을 합산해야 하는 경우, 다음 VBA 코드가 도움이 될 수 있습니다.

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

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 키를 눌러 이 코드를 실행하면, 빈 셀까지 위쪽 셀을 합산하려는 셀 범위를 선택하라는 메시지 상자가 나타납니다. 스크린샷 참조:

4. 그런 다음 확인 버튼을 클릭하면, 빈 셀 위의 모든 셀 값이 다음 스크린샷에 표시된 대로 합산됩니다: