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

Question

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

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