Excel VBA - 向下移动列

Question

我的脚本中有一部分需要向下移动一列，因此新列的开头位于其旁边的列的末尾。例如，如果列“A”是229行，则列“B”将从第230行开始。

这是我到目前为止所做的：

 O = Range("H" & Rows.count).End(xlUp).Row
 Q = Range("I" & Rows.count).End(xlUp).Row

 Range("I" & Q).Cut Range("I" & O + 1)

O和Q都是长的。我测试过O和Q正在获得正确的行数。但是当我试图将它向下移动时，它不会移动任何东西。有谁知道为什么会发生这种情况？

Answer 1

因为您只剪切最后一个单元格，而不是整个填充列。你可以试试这个：

Range("I1:I" & Q).Cut Range("I" & O + 1)