Excel: как собрать данные из одной ячейки и поместить их в таблицу?

Question

У меня есть макрос, который выполняет некоторые вычисления, а затем выдает результат, который появляется в одной ячейке. Когда я снова запускаю макрос, он выдает другой результат в той же ячейке и так далее. Я хочу скопировать данные из этой ячейки и поместить их в таблицу, скажем, в ячейку B1. А затем следующий результат в ячейку C1. И так далее, пока у меня не будет таблица данных.

Есть ли простой способ сделать это?

И можно ли запустить макрос, скажем, 100 раз и каждый раз копировать данные в таблицу, как описано выше?

Спасибо!

Answer 1

Вот очень простой пример макроса:

Sub MaintainHistory()
    Dim s As String, n As Long, v As Variant
    v = Rnd()
    Range("A1") = v
    If Range("B1") = "" Then
        Range("B1") = v
    Else
        n = Cells(Rows.Count, "B").End(xlUp).Row + 1
        Range("B" & n) = v
    End If
End Sub