excel - Excel自动编号

excel - Excel自动编号,第1张

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

WS1

ID
AlexandG
AlexandG
AlexandG
AlexandG

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

ID
AlexandG
AlexandG1
AlexandG2
AlexandG3

感谢任何帮助。感谢。

最佳答案:

1 个答案:

答案 0 :(得分: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
本文经用户投稿或网站收集转载,如有侵权请联系本站。

发表评论

0条回复