Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

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

Автор Che79, 25.03.2013, 14:21

« назад - далее »

Che79

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

kuklp

#1
Для Вашего примера:
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) можете подставить тот, к-рый заполняется до последней строки.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Che79

спасибо огромное, человеческое!! очень помогли!
Делай нормально и будет нормально!

kuklp

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771