0

列の各セルに2番目の行から始まる最後の行に昇順の番号を追加するサブがありますが、2行目2から開始する必要があります1.2番目の行を1から開始してカウントする方法がわかりません最後の行まで

ありがとう

Sub AutoCount()

Dim LR As Long

LR = Range("A" & Rows.Count).End(xlUp).Row
Range("L2:L" & LR).Formula = "=ROW(L2)"

End Sub
4

1 に答える 1

2

の代わりに"=ROW(L2)"、 を使用します"=ROW(L2)-1"

于 2013-06-12T19:20:32.873 に答える