
いくつかの計算を行って、1 つのセルに表示される結果を生成するマクロがあります。マクロを再度実行すると、同じセルに別の結果が生成されます。そのセルからデータをコピーして、たとえばセル B1 にテーブルに配置します。次の結果はセル C1 に配置します。データのテーブルができるまでこれを繰り返します。
これを行う簡単な方法はありますか?
そして、マクロを(たとえば)100 回実行し、そのたびに上記のようにデータをテーブルにコピーすることはできますか?
ありがとう!
答え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