Dim rg As Range, arr()
定义rg为一个Range（指单元格或单元格区域）类型的变量，定义一个数组变量arrFor 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
...
