カット＆ペーストのマクロ(エクセル)

質問

Sub test1()
Selection.Cut Destination:=Selection.Offset(0, -1)
Selection.CurrentRegion.Select
End Sub

Sub test2()
Selection.Cut Destination:=Selection.Offset(0, 1)
Selection.CurrentRegion.Select
End Sub

K1：N1が選択状態になっている時にtest1を実行すると、4つのセルが一セル分だけ左に移動します。
test1を連続してもう一回実行すると二セル分だけ左に移動します。連続して3回だと三セル分です。
が、test2だと、test1と同様に実行回数分だけ全体を右に移動させることができません。どうしてでしょうか？
実行回数分だけ全体を右に移動させるには、どういった記述が必要でしょうか？

回答No.1

merlionXX · ベストアンサー

TEST2で右に行くと、Activeセルが取り残されてしまうのでCurrentRegionが働かなくなるからです。（左ならActiveセルにかぶるから問題なし）

TEST2ではActiveセルもいっしょに移動させてやればOKです。

Sub test2()
Selection.Cut Destination:=Selection.Offset(0, 1)
ActiveCell.Offset(0, 1).Activate
ActiveCell.CurrentRegion.Select
End Sub

お礼

有難うございました。

回答No.3

bonaron

Sub test2()
Selection.Cut Destination:=Selection.Offset(0, 1)
Selection.Offset(0, 1).CurrentRegion.Select
End Sub
ではいかが？

お礼

有難うございました。

回答No.2

11369

選択領域が右方向なので右方向の移動だと領域が拡張してしまうんですね。
次のように配列で定義すればいけるようです。

Sub Test
Dim A As Range
Set A = Selection
Selection.Cut Destination:=Selection.Offset(0, 1)
A.Select
End Sub

お礼

有難うございました。