range区域中的每个单元格，我们也可以用索引号表示出来

nnsea

'range区域中的每个单元格，我们也可以用索引号表示出来
'写法：range("单元格区域")(行号，列号)



Sub 索引号取出range的单元格()
'Range("a1:c4")(4).Select '引用顺序是：从左向右，从上到下选取
'Range("b2:c4")(3).Select  '以前一个单元格区域为照
Range("a1:c4")(4.5).Select '当有小数时，则取整
'注意：如果索引号出现小数，则按照“四舍六入五单双”的“银行家舍入法”
End Sub



Sub 行列号定位()
Range("a1:c4")(3, 2).Select '利用行号与列号定位
Range("a1:c4")(1.5, 2.5).Select '行列号也可以使用小数
End Sub

'小结:
'1.这个索引值是参照前一个单元格区域左上单元格进行定位引用的
'2.索引值可以是正数，负数，零值，小数
Sub 大于等于2500的平增工资()
Dim rs%, rng%, lj&, k%
For rs = 1 To 60
    Range("b2:c20")(rs).Select
     rng = Range("b2:c20")(rs)
    If rng >= 2500 Then lj = lj + rng: k = k + 1
Next rs
    MsgBox "大于等于2500的平均分为：" & Int(lj / k)
End Sub