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

[Che79]

добрый день, уважаемые форумчане!
Помогите, пжл, с макросом.
Пример и описание во вложенном файле.
По сути - имеем книгу с несколькими листами таблиц определенного формата.
Хорошо бы автоматизировать процесс по поиску строки , на которой таблица заканчивается и вписать в нее формулу подсчета значений в каждом из столбцов таблицы. Это касается всех листов книги. Вручную, даже работая на нескольких листах одновременно, это занимает немало времени + высока вероятность ошибки.
Помогите, очень прошу, сам над макросом подвис)

[kuklp]

Для Вашего примера:

Код Выделить Развернуть

Sub www()
    Dim r&, sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        r = sh.Cells(Rows.Count, 40).End(xlUp).Row
        sh.Cells(r + 1, 6).FormulaR1C1 = _
        "=COUNTIF(R11C:R" & r & "C,R2C5)*LEFT(R2C5,1)+COUNTIF(R11C:R" & r & "C,R3C5)*LEFT(R3C5,1)"
        sh.Cells(r + 1, 6).AutoFill sh.Range("F" & r + 1 & ":AJ" & r + 1)
    sh.Range(r + 2 & ":" & r + 20).Delete
    Next
End Sub

Вместо 40 столбца(AN) можете подставить тот, к-рый заполняется до последней строки.

[Che79]

спасибо огромное, человеческое!! очень помогли!

[kuklp]

Кросс: http://www.excelworld.ru/forum/2-4168-1
Che79, знал бы о кроссе - не помогал бы.