Ячейки VBA с автоматическими номерами, содержащие текст

Question

Я пытаюсь найти решение для следующей проблемы: столбец A содержит имена, и я хотел бы сохранить эти имена там и использовать код, который автоматически их нумерует. Что-то вроде:

Я рассмотрел довольно много примеров StackOverflow, но эти коды в основном выполняют автоматическое нумерация некоторых ячеек без необходимости хранить текст в одной и той же ячейке: vba, автоинкремент числа?
Не могли бы вы мне помочь?

Вот код, который я использовал, но мне удалось только вставить цифры, а не хранить текст в той же ячейке.

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

Если добавить ответ к @Luis Curado, если вы не начинаете с первого ряда (скажем, с A4), вы можете сделать

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

Answer 2

Изменение

cell.Value = "" & i

до

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

Также, если вы просто хотите выбрать и автонумерацию, тогда вам вообще не нужно rng: просто используйте

For Each cell In Selection 

Answer 3

вы можете обойтись без VBA.

просто:

• в ячейку A1 поместите формулу = строка (A1) & "." & C1 и скопируйте в другие

вы можете создать «растущий» ряд (A1) для ячеек столбца A

удачи