Вот трассировка выполнения программы i k 1 2 2 4 3 6 4 8 5 10 6 12 7 14 8 16 9 18 10 20 11 22 12 24 13 26 14 28 15 30 16 32 17 34 18 36 19 38 Чтобы выполнить этот фрагмент в VBA следует открыть окно проекта Microsoft Visual Basic, выбрать лист рабочей книги, ввести заголовок SUB, затем нажать Enter и в образовавшийся блок вставить свой код. Далее запустить на исполнение, нажав F5