指定区域单元格内容依次往后移动一位

天地一相

感谢帮助！详见截图附件。

ykcbf1100

简单点就这样

三分醉，七分醒

看一下，是这效果吗

gwjkkkkk

Sub test()
    Dim ar, br, i&, j&, n&
    ar = [Z3:BC4]
    ReDim br(1 To UBound(ar) * UBound(ar, 2) + 1)
    n = 1
    For i = 1 To UBound(ar)
        For j = 1 To UBound(ar, 2)
            n = n + 1
            br(n) = ar(i, j)
            ar(i, j) = br(n - 1)
        Next j
    Next i
    [Z7].Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub