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

它填写A列，但它以2而不是1开头。所以数字的排序方式如2,3,4等。

我找不到为什么会那样......我出了什么问题？我该怎么办？

Answer 1

如果你想从第1行的“1”开始编号，只需将A2改为A1： -

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

但如果你的意思是编号应该以A2中的“1”开头，那么你需要减去1： -

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