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都是长的。 我已经testing过O和Q正在得到正确的行数。 但是当我尝试把它移下来时，它什么也不移动。 有谁知道为什么这可能会发生？

Answer 1

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

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