Создадим самый простой цикл используя VBA в Excel.
В этот раз напишем всё своими руками:
Sub Заполнение() 'Запускаем цикл от 1 до 10 'Начало цикла For i = 1 To 10 'В первый столбец записываем порядковый номер Cells(i + 1, 1) = i 'Во второй столбец записываем произведение порядкового номера и значения указанного в ячейке "B1" Cells(i + 1, 2) = i * Range("b1").Value 'Конец цикла Next End Sub
Расшифрую, приведённый выше код VBA:
- Весь код макроса заключается между Sub и End Sub, после Sub пишется название макроса.
- Текст после ‘ означает комментарий
- Цикл заключается между For … to и Next
- i - в моём случае переменная, Вы можете выбрать любую другую, в том числе поддерживаются и русские обозначения (например: For переменная=1 To 10 …)
- Cells(строка, столбец) – ячейка в которую хотим что-то записать или из которой хотим извлечь информацию, в нашем случае столбец мы указали константу (1 и 2), а строку сделали переменной (i+1).
- Range(“b1”) возвращает значение ячейки “B1”
А ещё, можно сразу дописать минимакрос по очистке диапазона от значений
Sub Очистка() Range("A2:B11").ClearContents End Sub