Excel VBA-向下移动列

我的脚本中有一部分需要向下移动一列，以便新列的开头位于它旁边的列的末尾。例如，如果列“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的行数是否正确。但当我试着向下移动它时，它什么也不移动。有人知道为什么会发生这种情况吗？

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

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