列Bの行数に応じた自動入​​力連続番号列A

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()" 

などこれは、列Aに埋めたが数は2、3、4のように順序付けられているので、それが2ではなく1から始まる

それが好きです、なぜ私は見つけることができませんでしたそれは...どうしたの？私は何をすべきか？

Answer 1

あなただけのA1にA2を変更、行1で「1」からナンバリングを開始する場合： -

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

しかし、あなたは番号を意味する場合は、その後、A2で「1」で始まる必要がありますあなたは1を減算する必要があります： -

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