需要VBA代码来单击将内容从一个单元格移动到另一个单元格的按钮

Question

我的工作表上有一堆数据，我每天都会更新。 单元格 B9 显示使用此数据包计算的公式的结果。我想在我的 Excel 工作表中添加一个按钮，单击该按钮时将获取单元格 B9 中显示的值并将其放在同一工作表上的单元格 P2 中。 明天，我将进来更新数据包，这将更新 B9 中显示的值，我将再次单击该按钮，该按钮会将 B9 中显示的值移动到 P 列中的下一个可用单元格。 我将每天重复此过程以构建趋势数据。我的 VBA 技能非常暗淡...我可以找到VBA代码将数据从一个地方移动到另一个地方。我可以找到VBA代码来"查找下一个可用单元格"，但我不知道将2个脚本结合在一起以实现我想要的结果的雄辩方法。

Answer 1

这是您的代码：

Sub ExportData()
Dim LastRow As Long
LastRow = ActiveSheet.Range("P1000000").End(xlUp).Row + 1 'first available row
ActiveSheet.Range("P" & LastRow) = ActiveSheet.Range("B9") 'value from P LastRow = Value from Cell B9
End Sub