Excel自动编号

Question

我有一个包含以下内容的工作表：

WS1

ID
AlexandG
AlexandG
AlexandG
AlexandG

如何将这些单元格自动编号为：

ID
AlexandG
AlexandG1
AlexandG2
AlexandG3

感谢任何帮助。感谢。

Answer 1

这是我写的一个快速脚本。您可以在模块中运行此代码，它相对于您选择第一个单元格（AlexandG）而言是有效的。

Sub ChangeNameModule()

    Dim count As Integer ' to keep track of current number to be appended to cell's value
    count = 0

    Do While Not (ActiveCell.value = None) ' stop running when the cell is empty
        If count = 0 Then
            ' do not add count to the cell
        Else:
            ActiveCell.value = "" & ActiveCell.value & count ' append count to the cell's value
        End If

        ActiveCell.Offset(1, 0).Range("A1").Select ' selects the cell below
        count = count + 1
    Loop

End Sub