エクセルVBAで自動的に連番をつける方法

波乗りアヒル

住所録や商品管理をエクセルでやってませんか？

私が管理している住所録では、一番左の列は「通し番号」として連番を割り振っています。

連番＝顧客数＝顧客番号として管理しているからです。

波乗りアヒル

名前を入力すると、通し番号が自動的に付与されると便利だと思いませんか？

そう思ったので、自動連番作ってみました。

名前を入力すると通し番号が自動割振り
使うVBAはDo While～Loop

名前を入力すると通し番号が自動割振り

エクセルシートのB列に直接名前を入力する方法でもいいのですが、せっかくなのでユーザーフォームを使って名前を入力すると、A列に自動的に「通し番号」1から順に「連番」が割り振られるようにします。

住所録なので図のように生年月日・住所・電話番号などの項目があります。

そして、本来は入力フォームを使って各項目を入力するのが普通ですが、分かりやすくするために名前だけにしてみました。

使うVBAはDo While～Loop

エクセルVBAで多く使われているDo While～Loopですが、「ある条件を満たす時だけ処理を繰り返す」というものです。

自動連番を割り振ろうと思ったら、名前がセルB列に入力されたら連番を割り振るというVBAコードを書く必要があります。

さらに、名前が再びセルB列入力されれば繰り返し連番を割り振るというVBAコードも書く必要があります。

そして、名前はセルB列の入力済み最終行の次に入力するというVBAコードも書く必要があります。

これらを【新規登録】ボタン（CommandButton1）に登録します。

波乗りアヒル

自動連番ってひと言ですが、VBAコードはいろいろ必要なのでひと言の割にはちょっと長めになってます。

Private Sub CommandButton1_Click()
If Range(“B1”).Offset(1).Value = “” Then
Range(“B1”).Offset(1).Value = TextBox1.Value
Else
Range(“B1”).End(xlDown).Offset(1).Value = TextBox1.Value
End If
Dim i As Integer
i = 1
Do While Cells(i + 1, “B”).Value <> “”
Cells(i + 1, “A”).Value = i
i = i + 1
Loop
End Sub