动态单元格区域的定位VBA

nnsea

'1.range("地址区域").range("地址区域")
Sub 序号表示法()
Range("b2:d4").Range("b2").Select '相对引用的写法
'参照前一个range的左上单元格
End Sub

'2.range地址区域中支持变量
Sub range的变量支持()
Dim a%
a = 3
Range("a" & a).Select
Range("c3:e5")(2).Select
End Sub

Sub 实例1动态选单元格或区域()
Dim i%
i = Application.CountA(Range("c:c")) '找到c列中已使用的最后一个单元格位置
Range("c" & i).Select '选择C列最后一格
Range("a1", "c" & i).Select '选择A1到C列的最后一格（方法一）
Range("a1:c" & i).Select '选择A1到C列的最后一格（方法二）
'小结：动态单元格区域的定位，可以应用到单据的保存等实际工作中
End Sub