Цыкличная вставка значений - VBA
Формулировка задачи:
Друзья помогите разораться! есть задача, в столбце А заполнить ячейки нужными значениями по 10 шт.напримере, 10 ячеек значением один(1), следующие 10 ячеек зачением (2)два, следующие 10 ячеек три(3) и т.д оп нарастаещему. Вот код
как дополнить, что бы дальше по нарастаещему заполнял, скажем до 100 по 10 ячеек
Решение задачи: «Цыкличная вставка значений»
textual
Листинг программы
Sub Заполнение() 'Запускаем цикл от 1 до 10 'Начало цикла For i = 1 To 100 'В первый столбец записываем порядковый номер Cells(i + 1, 1) = i Cells(i + 1, 2) = (i - 1) \ 10 + 1 Next End Sub