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