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

Пользователь

Сообщений: 10 Регистрация: 30.08.2018

19.06.2019 20:28:36

Приветствую! Гуру, подскажите, как разнести 10 или более значений из столбца на Листе0 в определенную ячейку на десять или более листов? На всех последующих листах, кроме первого листа, таблица однотипная.

Прикрепленные файлы

Лист Microsoft Excel (5).xlsx (21.01 КБ)

Проигрываю!

Юрий М

Модератор

Сообщений: 61037 Регистрация: 14.09.2012

Контакты см. в профиле

19.06.2019 20:39:36

Листов не должно быть меньше, чем строк в диапазоне на первом листе.
Выполнить макрос при активном Лист0

Код
Sub Macro1() Dim LastRow As Long, i As Long LastRow = Cells(Rows.Count, 3).End(xlUp).Row For i = 1 To LastRow Sheets(i + 1).Range("I16") = Cells(i, 3) Next End Sub

modnm Пользователь Сообщений: 10 Регистрация: 30.08.2018	#3 19.06.2019 21:51:42 Спасибо огромное!!! Вроде получилось как надо! При активном Лист0 Sheets(i + 2) почему-то сработало, спасибо! Проигрываю!