Dim rg As Range, arr() 定义rg为一个Range(指单元格或单元格区域)类型的变量,定义一个数组变量arr
For Each rg In Range("a1:c9") 开始一个循环,对于"a1:c9"单元格区域中的每一格,
If rg.Value > 60 Then 如果单元格的值大于60,
R = R + 1 让R(统计变量)增加1,
ReDim Preserve arr(1 To R) 将数组变量arr的元素个数扩充为R个,以前已有的元素保留
arr(R) = rg.Address 将找到的这个单元格地址赋给第R个arr元素
End If
Next
Range(Join(arr, ",")).Select 将所有arr中记录的所有地址区域选中。Join(arr, ",")是指将arr中的每个元素以","为分隔符连接起来。
追问跟上面的代码有半毛钱关系吗?