在同一单元格的excel文本旁边添加序列号

我有一个包含学生姓名的excel文件。如何在用户名旁边添加自动序列号

比如说,

John1
Bob2
Chris3
and so on.

---

选择名称并运行此宏：

Sub dural()
    i = 1
    For Each r In Selection
        r.Value = r.Value & i
        i = i + 1
    Next r
End Sub