Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
列の各セルに2番目の行から始まる最後の行に昇順の番号を追加するサブがありますが、2行目2から開始する必要があります1.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
の代わりに"=ROW(L2)"、 を使用します"=ROW(L2)-1"。
"=ROW(L2)"
"=ROW(L2)-1"