一眼看出Range大小 快速定为数据末行
主要内容：
一、怎样得到一个Range在表格中的位置
1.与Range对象有关的属性
（1）Range.Row :返回Range左上角单元格的行号；
（2）Range.column :返回Range左上角单元格的列号；
（3）Range.Address :返回各个对角顶点的绝对引用地址；
特别注意：当Range包含多个矩形区域，Row和Column只返回其中某一个矩形的左上角位置，并不一定是整个Range的左上角！
比如：Range（“D3，E4，A1，B2”）的Row和Column,返回的可能是第3行第4列，并非第1行第2列。
例1：
Sub range对象()
Dim a As Range
Set a = Range("B2, D9")
a.Select
MsgBox a.Row & "行" & a.Column & "列"
End Sub
提示1：上述程序返回结果为2行2列，若最后一行改为a.Address。返回结果为：$B2:$D$9。
提示2：a.select Range的select方法可以让该Range处于选中状态。
二、怎样了解一个Range覆盖的范围和大小
1.与Range对象范围有关的属性：
（1）Range.Count :该Range单元格的数量
特别注意：
（a）Range对象由对个矩形区域构成时，各矩形相互重叠的单元格会被重复计算；
（b）Count计算的其实是对象，而非单元格的个数，而且当数量太大时回复溢出错误，所以计算单元格数量最安全的方法是：Range.Cells.CountLarge
提示：例1中改为Msgbox a.Count 程序返回的结果是24.即单元格对象的数量
（2）Range.Rows：容纳了Range中的每一行。可以使用Range.Rows(n)代表一个新的Range对象，代表位于该区域的第n行的所有单元格。
特别注意：如果Range是由多个矩形区域构成，Rows只代表其中某一个矩形区域的所有行。
例2：
Sub 计算单元格数量()
Dim a As Range, b As Range
Set a = Range("A2:E4")
a.Select
Set b = a.Rows(2)
MsgBox "第一行的范围是：" & b.Address
End Sub
提示1：上述程序返回的结果是：第一行的范围是$A$3:$E$3
提示2：通过rows对象可以随意操作range范围内的每一行单元格
提示3：将倒数2,3行删除，改为MsgBox "一共有" & a.Rows.Count & "行"。意思是调用了rows本身的 count属性，结果是该Range范围内一共有多少行。
（3）Range.Columns ：容纳了该Range中的每一列。可以使用Range.Column(n)得到一个新的Range对象，代表位于该区域第N列的所有单元格。
提示1：可以使用Column.Count得到总列数
提示2：如果Range是由多个矩形区域构成，Columns只代表其中某一个矩形区域的所有列。
三、怎样得到某些特殊的Range对象
（1）代表工作表中全部单元格的Range对象
Worksheet.Cells 属性
例3：
Sub 找出最后一行()
Dim i As Long, lastrow As Long
i = 3
Do While Cells(i, 3) <> "" And i < ActiveSheet.Cells.Rows.Count
i = i + 1
Loop
If Cells(i, 3) = "" Then lastrow = i - 1 Else lastrow = i
MsgBox "最后一条数据在第" & lastrow & "行"
End Sub
提示1：ActiveSheet.Cells.Rows.Count 代表本工作表所有单元格所有行总数 该表达用来代表当前worksheet最大行数
（2）涵盖工作表中全部使用过的单元格的Range对象
Worksheet.UsedRange属性
含义：返回一个矩形区域的Range对象，正好能够容纳这个工作表中所有“使用过”的单元格。
特别注意：即使一个单元格只是修改过格式而并没有填写内容，也会被认为是“使用过”。有些情况下，单元格的内容被删除/清空后，该单元格仍有可能被认为是“使用过”！
Sub 使用过的单元格()
Dim a As Range, b As Long
Set a = ActiveSheet.UsedRange
b = a.Row + a.Rows.Count - 1
MsgBox "最后一行是" & b
End Sub
提示1：上述程序运行结果显示为：最后一样是310行。示例自己随便编的。
特别注意：UsedRange存在的问题
（1）完全空白的表格，会把单元格$A$1作为UsedRange，即使其中没有内容，可以通过增加判断语句消除此风险
（2）对于设置了格式（如背景色）的单元格，即使单元格中没有内容，也会被认为是UsedRange。
网友评论