Автозаполнение последовательных номеров столбцов A в соответствии с количеством строк столбца B

Question

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

Dim ws As Worksheet 
Dim lastRow As Long 

Set ws = ThisWorkbook.Sheets("BİLGİLER") 

lastRow = ws.Range("B" & ws.Rows.Count).End(xlUp).Row 
ws.Range("A2:A" & lastRow).Formula = "=row()" 

Он заполняет в колонке А, но она начинается с 2 вместо 1. So числа упорядочены как 2, 3, 4 и т.д.

я не мог найти, почему он делает как что ... Что я ошибся? Что мне делать?

Answer 1

Если вы хотите, чтобы начать нумерацию с «1» в строке 1, просто измените A2 до A1: -

ws.Range("A1:A" & lastRow).Formula = "=row()" 

Но если вы имеете в виду нумерация должна начинаться с «1» в А2, то вы должны вычесть 1: -

ws.Range("A2:A" & lastRow).Formula = "=row()-1"