Offset函数实为定位函数。首先要找到中心点,如果以单元格A1为中心点,则A1的位置就是Offset(0,0)。 Offset两个参数分别是行和列。以0为起点。
On Error Resume Next
ActiveCell.Offset(0, 1).Select '当前单元格向左移动一格
ActiveCell.Offset(0, -1).Select '当前单元格向右移动一格
ActiveCell.Offset(1 , 0).Select '当前单元格向下移动一格
ActiveCell.Offset(-1 , 0).Select '当前单元格向上移动一格
其中:ActiveCell 是当前激活的单元格
以它为中心,向左 右 上 下移位
On Error Resume Next
ActiveCell.Offset(0, 1).Select '当前单元格向左移动一格
ActiveCell.Offset(0, -1).Select '当前单元格向右移动一格
ActiveCell.Offset(1 , 0).Select '当前单元格向下移动一格
ActiveCell.Offset(-1 , 0).Select '当前单元格向上移动一格
其中:ActiveCell 是当前激活的单元格
以它为中心,向左 右 上 下移位