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