Блог

Я нашел этот код в Интернете. Как мне получить значение суммы, отображаемое в пустой ячейке над ячейками, содержащими последовательные значения. Я подумываю о том, чтобы запустить код из последней строки. Спасибо за все

https://www.extendoffice.com/documents/excel/3963-excel-sum-until-blank.html

 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(" amp; Cells(StartRow, i).Address amp; ":" amp; Cells(j - 1, i).Address amp; ")"
                StartRow = j   1
            End If
        Next
        StartRow = xRg.Row
    Next
End Sub