как создать цикл

[Vladuk]

Прошу помочь, мне надо создать в Exel таблицу где значение в каждом столбе увеличивается на одинакове значение от предыдущего(А=А+1), а количество шагов цикла n можно было задавать.

[VictorM]

Читаем - Управляющие структуры ... Циклы
Вот так можно. Один из множества вариантов.

Sub Цикл()
    iЦикл = Application.InputBox("Сколько раз будем работать?")
    s = 1
    For i = 1 To iЦикл
        Cells(1, i) = s
        s = s + 1
    Next
End Sub

[Vladuk]

большое спасибо...

а можно немного усложнить, чтобы ячейка например А1 определяла длину цикла... и данные вводились на одной вкладке а таблица строилась на другой вкладке... а когда состоялись вычисления первого цикла, стартовал второй который тоже имеет определенную длину и его данные продолжали таблицу

[VictorM]

Если "вкладка" это Лист, то тогда так

Sub Цикл()
   iЦикл = Sheets(1).[A1]
    s = 1
    For i = 1 To iЦикл
        Sheets(2).Cells(1, i) = s
        s = s + 1
    Next
End Sub

[Vladuk]

так я имел в виду, что "вкладка" это "лист"

еще раз спасибо.... данный макрос очень сильно упрощает мне работу, а самому не выходило сделать ввод и вывод информации...

[IgorGO]

"построить" такую таблицу можно так:
в одну ячейку пишете 3, в соседнюю 5. отмечаете эти два ячейки, ловите курсором правый нижний уголок этого прямоугольника (курсор форму поменяет, когда зацепите) и тащите вправо до полного удовлетворения. у Вас ряд чисел 3,5,7,9,11...
успехов!

[Vladuk]

Дякую за пораду!!! цікавий метод, ним легко можна перевірити правильність написання макроса