所在区域大于90分VBA

nnsea

'注意：
'已使用区域的定位方法是：已使用的最小单元格：最大单元格
'如果单元格中无内容，但设定了格式，也认为是已使用区域
'如果没有已使用单元格，则默认为A1单元


Sub usedrange应用()
For Each Rng In Sheet1.UsedRange
    If IsNumeric(Rng) And Rng >= 90 Then k = k + 1
Next Rng
MsgBox "大于等于90分的人数为：" & k & "人"
End Sub


'小结：
'1.usedrange自动计算已用区域的所有值
'2.不用当数据增加时的处理问题。
'3.比selection方便，但不够灵活