我有一个宏,它可以进行一些计算,然后生成一个出现在单个单元格中的结果。当我再次运行该宏时,它会在同一个单元格中生成另一个结果,依此类推。我希望从该单元格复制数据并将其放在一个表中,比如说在单元格 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