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

Posted 2023-04-19

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

【英文标题】：Need VBA code to click button that moves contents from one cell to another

【发布时间】：2018-10-05 13:11:24

【问题描述】：

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

【参考方案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

【讨论】：

太棒了！谢谢！ @达米安

嗨@Damian 作为对此的跟进，如果我想抓取 B9:M9 并将它们移动到 P:AA 列中的可用单元格，该怎么办？

嗨@bteague 那么你应该计算最后一行和ActiveSheet.RAnge("B9:M9").Copy Destination:=ActiveSheet.RAnge("P" & LastRow)