Макрос для вставки автоматической нумерации

Question

Мне нужна ваша помощь для Марко.

В моем первом столбце Excel я хотел бы добавить автоматическую нумерацию с текстом перед текстом до последней строки.

Например: в ячейке A2 (до последней строки) у меня есть текст «Это текст», затем следует добавить макрос (Результат 1: Это текст).

аналогично в следующей ячейке

В ячейке A3 у меня есть текст «Это другой текст», затем следует добавить макрос (Результат 2: Это другой текст).

с нетерпением жду вашей поддержки.

спасибо

Answer 1

 Sub AddText
 Dim r as range
 Set r = range("a2") 'set pointer
 Do 'begin loop 
    r.formula = "Result " & r.row + 1 & ": " & r.text  'adjust contects
    set r = r.offset(1,0) 'move pointer
 Loop until r ="" 'keep going until blank cell
 End Sub