VBA之UsedRange属性

 1 'Worksheet.UsedRange 属性
 2 '返回一个 Range 对象，该对象表示指定工作表上所使用的区域
 3 
 4 
 5 Sub 已使用区域() '选中工作表里“占用”的的区域
 6 Sheet2.UsedRange.Select
 7 End Sub
 8 
 9 
10 '注意：
11 '已使用区域的定位方法是：已使用的最小单元格：最大单元格
12 '如果单元格中无内容，但设定了格式，也认为是已使用区域
13 '如果没有已使用单元格，则默认为A1单元
14 
15 
16 Sub usedrange应用()
17 For Each Rng In Sheet1.UsedRange
18     If IsNumeric(Rng) And Rng >= 90 Then k = k + 1 'isnumeric()判断是否是数字
19 Next Rng
20 MsgBox "大于等于90分的人数为：" & k & "人"
21 End Sub
22 
23 
24 '小结：
25 '1.usedrange自动计算已用区域的所有值
26 '2.不用当数据增加时的处理问题。（数据增加usedrange自动选择）
27 '3.比selection方便，但不够灵活

 

转载于:https://www.cnblogs.com/gilgamesh-hjb/p/7363706.html