Макрос суммы колонки

[Romuald]

Добрый день!
Мне нужно в конце таблицы, отступив пять строчек поставить сумму некоторых колонок
Подскажите, пожалуйста макрос , который сможет найти последнюю не пустую ячейку колонки А , добавит пять пустых строк и в колонках C,D,E,F,G,H поставит сумму каждой колонки
Заранее благодарю

[IgorGO]

конструкция

cells(2,1).end(xldown).row

вернет вам последний ряд с непустым значением в колонке А. Ячейка А2 должна быть не пустой. Первая пустая ячейка в колонке А остановит поиск.

добавит пять пустых строк и в колонках C,D,E,F,G,H

вот с этим сложнее нельзя добавить 5 пустых строк для перечисленных колонок. пустые строки добавятся на всю ширину таблицы. Если вы хотите возможные значения из C,D,E,F,G,H перенести на 5 строк ниже, то так и сделайте, скопируйте их и перенесите на 5 строк ниже. Сделайте это вручную, поручите рекордеру записать ваши действия и будет вам счастье.

[EducatedFool]

Попробуйте такой вариант:

Sub test()
    НомерПервойСтрокиТаблицы = 2
    Dim Cell As Range: Set Cell = [a65000].End(xlUp) ' ищем последнюю ячейку
    Cell.Offset(1).Resize(5).EntireRow.Insert: Set Cell = Cell.Offset(1, 2) ' вставляем строки
    Cell.FormulaR1C1Local = "=СУММ(R" & НомерПервойСтрокиТаблицы & "C:R[-1]C)" ' пишем формулу
    Cell.Interior.Color = vbGreen: Cell.AutoFill Cell.Resize(, 6) ' растягиваем формулу на 6 ячеек
End Sub

Сообщение от IgorGO

нельзя добавить 5 пустых строк для перечисленных колонок. пустые строки добавятся на всю ширину таблицы.

А если попробовать вставлять не строки, а ячейки?

Выделяем часть ячеек внутри таблицы, жмём Вставка - Ячейки - Со сдвигом вниз - и, получается, что мы добавили несколько пустых строк для перечисленных столбцов.
На VBA это будет примерно так: Range("C19:G23").Insert Shift:=xlDown

[SAS888]

А зачем вставлять формулы в ячейки? Зачем вставлять пустые строки, если все строки ниже таблицы пустые? достаточно отступить 5 строк. Зачем ограничивать 65536 строк? (на дворе 2009г.) Можно так:

Sub SumInCol()
    Dim r As Long, c As Long
    r = Cells(Rows.Count, "A").End(xlUp).Row + 5
    For c = 3 To 7
        Cells(r, c) = Application.Sum(Range(Cells(1, c), Cells(r - 5, c)))
    Next
End Sub

[Romuald]

SAS888!! Спасибо!
Я добавляю в колонку А новые коды , данные в другие колонки, соответственно строки добавляются
Как добавить в Ваш код , чтобы чтобы предыдущие суммы стирались
Такая же беда в макросе " Formuli Aktiv_Passiv . Я изменяю данные в других колонках, но если данные в G или H есть , они не меняются и каждый раз приходится стирать вручную колонки G и H
Посмотрите, пожалуйста

[SAS888]

Во-первых, если нужно, чтобы при изменении значений в столбцах "C:H" автоматически подсчитывались суммы, то лучше, действительно, в ячейках оставить формулы. Во-вторых, для автоматического сдвига ячеек с суммами при добавлении значений в столбец "A", необходимо использовать событие изменения значений в столбце "A". Посмотрите вложение. Данные в столбец "A" допустимо вводить только по одному (копировать/вставить диапазон нельзя).

[Romuald]

SAS888!
Спасибо!!!