Цыкличная вставка значений - 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

Оцени полезность:

8   голосов , оценка 3.625 из 5
Похожие ответы