Блог

У меня есть данные за тот же месяц в нескольких столбцах в непрерывном диапазоне.

Каждый диапазон месяцев разделяется пустым столбцом.

Мне нужен макрос, который находит следующую пустую ячейку в начальной ячейке столбца B10 и автоматически суммирует столбцы, предшествующие пустой ячейке.

Я хочу, чтобы автосумма в выделенных столбцах выделялась желтым цветом (должен быть цикл).

пример изображения

Я начал писать код, но застрял:

 Sub sum()

    ActiveSheet.Range("b10").Select

    Selection.Columns.End(xlToRight).Offset(0, 1).Select

    ActiveCell.Value = "=Sum(columns.end (xltoleft)"

End Sub
  

Большое спасибо
София

Переменные

• x: отслеживает текущую строку
• y: первый столбец в диапазоне, подлежащий суммированию
• y1: последний столбец в диапазоне, подлежащий суммированию

 Sub AddColumnSums()

    Dim x As Long, y As Long, y1 As Long
    For x = 10 To Range("A" amp; Rows.Count).End(xlUp).Row
        If Cells(x, 1).Value <> "" Then
            y = 2 ' Initialize the start column
            Do
                ' xlToRight brings you to the last cell in a continous cell block
                y1 = Cells(x, y).End(xlToRight).Column

                ' The formula is assigned the first cell after continous cell block

                Cells(x, y1   1).Formula = "=Sum(" amp; Range(Cells(x, y), Cells(x, y1)).Address amp; ")"

                'The starting column is set to the first cell after the formula
                y = y1   2

            ' If there is no more data to the right of the starting column
            ' xlToRight will reference the last cell in the row and 
            ' the column loop will eixt

            Loop Until Cells(x, y).End(xlToRight).Column = Columns.Count
        End If
        'Increments to the next row
    Next
End Sub