使用VBA移动合并的单元格

Question

我在VBA很新，所以我发现自己有点傻逼。

我正在尝试根据另一个单元格中的特定值移动合并的单元格。

单元格D4包含1到4之间的值，它取决于公式。

当此值等于1时，我希望合并的单元格BQ52：BX64向上移动到第40行，而不是替换单元格，而是将它们向下移动。

当值介于2和4之间时，我希望单元格移回原始位置。

我已经尝试记录插入复制单元格的宏，但我不确定如何在VBA中编写代码以及如何避免循环，因为我正在删除录制中的单元格。

工作表的名称是“打印版面”

非常感谢任何帮助！

Answer 1

Sub random()

    If Range("D4").Value = 1 Then

    Range("BQ52:BX64").Cut
    Range("BQ40").Select
    Selection.Insert Shift:=xlDown

    End If
     End Sub

如果d4 = 1，则将合并的单元格放在第40行，否则合并的单元格将保留在那里。