大家好，对VBA实例：返回当前单元格的位移感兴趣的小伙伴，下面一起跟随三零脚本的小编来看看VBA实例：返回当前单元格的位移的例子吧。

'来自：三零脚本（www.q3060.com）
Sub MyNZ()
on error resume next
ActiveCell.Offset(0, 1).Select '当前单元格向左移动一格
ActiveCell.Offset(0, -1).Select '当前单元格向右移动一格
ActiveCell.Offset(1 , 0).Select '当前单元格向下移动一格
ActiveCell.Offset(-1 , 0).Select '当前单元格向上移动一格
end sub

代码的解析及说明：上述代码过程将将产生当前活动单元格的移动，on error resume next 是为了避免上述程序产生错误，因为有时单元格是不能移动的，为了解除上述错误，加错误处理代码。