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