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

Question

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

例如，

John1
Bob2
Chris3
and so on.

Answer 1

选择名称并运行此宏：

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