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は両方ともlong型である場合。私は、OとQが正しい行数を取得していることをテストしました。しかし、私がそれを下ろそうとすると、何も動かされません。なぜこれが起こっているのか誰にも分かりますか？

Answer 1

最後のセルのみを切​​断しているため、入力された列全体が切断されるわけではありません。あなたはこれを試すことができます：

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