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

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