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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Che79

Дата: Понедельник, 25.03.2013, 14:17 | Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

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

К сообщению приложен файл: _2503.xls (30.0 Kb)

Делай нормально и будет нормально!

Ответить

KuklP

Дата: Понедельник, 25.03.2013, 16:12 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Кросс: http://forum.msexcel.ru/index.php/topic,9208.0.html

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Che79

Дата: Понедельник, 25.03.2013, 16:15 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

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

Делай нормально и будет нормально!

Ответить

AlexM

Дата: Понедельник, 25.03.2013, 16:18 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

Последнюю ячейку в таблице определяем по столбцу AL
[vba]

Код

Sub Macros()
Application.ScreenUpdating = False
Dim ws As Worksheet, iRow As Long
For Each ws In Sheets
iRow = Sheets(ws.Name).Range("AL11").End(xlDown).Row
Sheets(ws.Name).Range("F" & iRow + 1 & ":AJ" & iRow + 1).Formula = "=COUNTIF(F11:F" & iRow & ",$E$2)*LEFT($E$2,1)+COUNTIF(F11:F" & iRow & ",$E$3)*LEFT($E$3,1)"
Sheets(ws.Name).Rows(iRow + 2 & ":" & iRow + 100).Delete Shift:=xlUp
Next
Application.ScreenUpdating = True
End Sub

[/vba]