Excel连续将单元格值向下移动一行答案

【问题标题】：Excel moving cell value down one row continuallyExcel连续将单元格值向下移动一行
【发布时间】：2018-07-01 00:22:30
【问题描述】：

我有一个工作簿，其中有两个单元格，即 DX42 和 DX43。这些单元格的值直接来自名为 RANDBETWEEN 的相邻工作表。 DX42 的公式为 =RANDBETWEEN!A2，DX43 的公式为 =RANDBETWEEN!B2。在表格 RANDBETWEEN 中，有两列（A 代表 DX42，B 代表 DX43）跨越大约 100 行，其中充满了随时间逐渐增加的数字。

我想要做的是有一个宏，每次我按下按钮时，它都会自动将 DX42 和 DX43 的值向下移动一行。例如，我按一次，DX42 变为 =RANDBETWEEN!A3，而 DX43 变为 =RANDBETWEEN!B3。我再次点击，它们变成 =...!A4 和 =...!B4 等等。

如果不能同时移动两个单元格，我可以使用两个单独的按钮（一个用于 DX42，一个用于 DX43）分别移动它们各自的值。

此外，每次单击按钮时，我已经尝试过的宏（没有成功）都会将我带到 RANDBETWEEN 表中。我宁愿在宏执行其操作时留在 sheet1（我的主工作表）中，这样我就可以连续按下按钮，而不必每次都从 RANDBETWEEN 导航回 sheet1。

谁能帮帮我？

非常感谢！

【问题讨论】：

标签： vba excel

【解决方案1】：

尝试将此子过程与按钮相关联，

sub shiftDXdown()
    range("DX42").formula = _
        "=" & worksheets("randbetween").range(mid(range("DX42").formula, 2)).offset(1, 0).address(external:=true)
    range("DX43").formula = _
        "=" & worksheets("randbetween").range(mid(range("DX43").formula, 2)).offset(1, 0).address(external:=true)
end sub

如果适当的父工作表引用可用于 DX42 和 DX43，那会更好，但我想您将其放入父工作表的私有代码表中。

【讨论】：