包含文本的VBA自动编号单元格

Question

我正在尝试找到以下问题的解决方案：A列包含名称，并且我希望将这些名称保留在此处并使用将为它们自动编号的代码。 像这样：

我看过很多有关StackOverflow的示例，但是这些代码主要是自动对某些单元格编号，而不必将文本保留在同一单元格中：vba auto increment a number?
请你帮助我好吗？

这是我使用的代码，但是我只设法插入数字，而不是将文本保留在同一单元格中。

Sub autonumber()


Dim i As Integer
Dim cell As Range, rng As Range

Set rng = Range("A1:A10")

i = 1

For Each cell In rng
    cell.Value = "" & i
    i = i + 1
Next cell

End Sub

Answer 1

您可以在没有VBA的情况下进行操作。

正义：

• 在A1单元格中，将公式 = row（A1）＆“。＆C1 并复制到其他

u可以创建一个“自动编号”传播行（A1）到A列的单元格

祝你好运

Answer 2

加上@Luis Curado的答案，如果您不从第一行开始（例如从A4开始），就可以

=ROW(A4)-ROW(A$4)+1&". "&A4

Answer 3

更改

cell.Value = "" & i

到

cell.Value = i & ". " & cell.Value

此外，如果您只想选择并自动编号，则根本不需要rng：只需使用

For Each cell In Selection