我有一個宏,它執行一些計算,然後產生出現在單一單元格中的結果。當我再次運行巨集時,它會在同一單元格中產生另一個結果,依此類推。我希望從該單元格複製資料並將其放入表格中,假設放在儲存格 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