Range.Offset 属性vba

nnsea

'Range.Offset 属性
'返回 Range 对象，它代表位于指定单元格区域的一定的偏移量位置上的区域。
'表达式.Offset(偏移行, 偏移列)
'表达式   一个代表 Range 对象的变量。
'偏移行列的数字可以是：正数，负数，零值

Sub test()
[a1].Offset(1, 2).Select    '行列都偏移
[a1].Offset(2).Select       '只偏移行
[a1].Offset(, 2).Select     '只偏移列

'如果offset前面的range对象是一个区域，则偏移后也结果尺寸不变
[a1:d1].Offset(1, 2).Select
[a1:d1].Offset(2).Select
[a1:d1].Offset(, 2).Select
End Sub

Sub offset应用1()
Dim i%
For i = 2 To 8 Step 2
    [a1:e1].Copy [a1:e1].Offset(i)
Next i
End Sub
Sub offset应用2()
Dim i%
For i = 2 To 8 Step 2
    [a1:e1].Offset(i) = ""
Next i
End Sub