如何将一系列细胞向右移动

Question

有人可以帮助我将一列定义的单元格范围向右移动。 如果我定义

rng = B2:B3

我需要一个代码将我的值移到B2：B3到B3：B4。

到目前为止，这是我所拥有的，但这一切都无效。我在第三行收到错误。

Dim rng As Range
Set rng = Range(DataSheet.Cells(arr(z)(1), 2), DataSheet.Cells(arr(z)(1), LastCol))

rng.Insert Shift:=xlShiftToRight '(i tried this first)
 or
rng.Offset(0, 1).Select '(I tried this second and this also did not work)

Answer 1

rng.Cut rng.Cells(1).Offset(0,1) 'assuming you really mean to move right