Как автоматизировать копирование

[Backside]

Есть ячейка A1. Есть столбец C1-C100.
Необходимо с интервалом в одну секунду по очереди переносить числовые данные из C1 в A1, затем из C2 в A1, затем из C3 в A1. И так до конца.
Как можно это реализовать в VBA.
С уважением, Олег.

[Teslenko_EA]

Здравствуйте Backside.
Поупражняйтесь с кодом

Код: Выделить всё

Dim i%
Sub myTimer()
    i = i + 1
    Cells(1, 1) = Cells(i, 3).Text
    If i > 100 Then Exit Sub
    Application.OnTime Now + TimeSerial(0, 0, 1), "myTimer"
End Sub

Для повторного запуска обнуляйте переменную "i"
Евгений.

[Backside]

Спасибо большое за совет. Попробую.