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

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

1 个答案: