需要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