VBA for each 循环语句

1、VBA 用 For Each 循环在指定区域填充单元格 R1C1 形式的地址名。

程序运行效果应如下：

 

 

代码

Sub RC()
    Dim cell As Range, i As Integer　　　　　　'声明变量
    For Each cell In Range("B2:H13")
        cell.Value = "R" & cell.Row & "C" & cell.Column
    Next
End Sub