На этом шаге мы рассмотрим макрос, реализующий указанные действия.
Следующая задача - перенести введенные данные диапазона ячеек I16:I47 листа Ввод в лист Реквизиты. Эту задачу выполняет макрос ПоместитьДанныеРеквизиты (рисунок 1).
Рис.1. Макрос переноса данных из листа Ввод в лист Реквизиты
Макрос выполняет следующие действия:
- копирование диапазона ячеек I16:I47 на листе Ввод;
- переходит на лист Реквизиты;
- производит поиск первой пустой строки, выделяет в ней ячейку в столбце В и производит транспонированную вставку значений;
- переходит на одну ячейку влево, определяет максимальный порядковый номер в столбце А, добавляет к нему единицу и вводит это значение в ячейку;
- возвращается на лист Ввод.
Для записи этого макроса последовательно проделайте эти действия, после чего в режиме редактирования удалите лишние операторы и введите строки с кодом VBA поиска первой пустой строки и определением порядкового номера. Наиболее эффективный метод - копирование этих строк из предыдущих подпрограмм, вставка и последующее редактирование.
На следующем шаге мы рассмотрим перенос данных из листа Ввод в лист Текст.
