入力済みのセルの最終行の下に新しく入力する方法

2017年12月20日2024年9月9日

エクセルの最終行に追加で入力する時に、画面スクロールするのが面倒って思った事ありませんか？

VBAを使わなくてもエクセルの標準機能でマウスを使ってスクロールをせずにデータ入力済み領域の最終端に一瞬で移動する方法ありますよね。

マウスやキーボードで最終行へ瞬間移動

エクセルの標準機能なので、特別な設定がいらない2つの方法があります。

ショートカットでctrlキーを押しながら【矢印キー】←・↑・↓・→を押す

この方法意外と知らない人多いですけど、簡単ですね。

次に、たまたまできたので正規の方法かどうかは分かりませんが、こんな下記の方法でも上のと同じようにできました。

データが入力されているリストや表の適当なセルをクリック
選択されたセルに表示された枠の下の部分をダブルクリック

同じ要領で、枠の上の部分をダブルクリックすると最上段へ、右ならば右枠に移動します。

VBAコードを使ってセルの最終行にデータを追記する

エクセルで作る住所録では、新規登録をするにも最終行に自動的に追記できるようにしなくては使い物になりません。

そこでユーザーフォームに配置したコマンドボタンを押すことによって、自動的にセルの最終行にデータの記載ができるようにします。

Offsetオブジェクトをシンプルに使う

上図を参考にすると、この画面上の最終行は2列目なので、最終行のデータ入力はセルA2からB2,C2となりますので、シンプルにこのようなVBAコードを書くと・・・

エラーになる事もあるVBA

Private Sub CommandButton1_Click()
Range(“A1”).End(xlDown).Offset(1, 0).Value = TextBox1.Value
End Sub

セルA1の1行下にテキストボックス1の値を転記するようにVBAコードは書いたのですが・・・

ところが、下の図のように1行目を空けておくと問題なくできるようになります。

理由は単純で、セルA1の下の行にデータが入力されている時に、最終入力行の1行下に新しく追記するというVBAコードなのです。

その為に1行目に項目あって、初めてデータを入力する時のみセルA1の下が未入力なので、入力行の下が無い状態なのでエラーになります。

2つ目の図のように1番最初の行を使わないということができるならば、いいのですが、そうもいかない時もあるので、対処する方法を使いましょう。

空欄の時（最初のデータの時）の対処法

セルA2にデータが入っていればエラーにならないので、A2が空欄の時は・・・という条件を付け加えれば問題は解決できます。

最終行に追記するVBA

Private Sub CommandButton1_Click()
If Range(“A2”).Value = “” Then
Range(“A1”).Offset(1, 0).Value = CommandButton1.Caption
Else
Range(“A1”).End(xlDown).Offset(1, 0).Value = CommandButton1.Caption
End If
End Sub

解説

コマンドボタン1がクリックされたら
もしセルA2が空欄だったら
セルA1の1つ下のセルにコマンドボタンの表示文字を入力する
そうでなかったら（セルA2にデータが入っていたら）
セルA1の行で入力済み最終行の1つ下のセルにコマンドボタンの表示文字を入力する
Ifステートメント終了
マクロ記録終了

ここではユーザーフォームを使った自作カレンダーで使用している日付ボタンをクリックしたら、目的のセルに追記するようにしているVBAコードです。

その為、コマンドボタンの表示文字になっていますが、テキストボックス（TextBox1.value）にして入力した文字を追記することもできますよ。

あわせて読みたい

エクセルVBAのユーザーフォームを使って自作カレンダーを作る方法私自身2017年12月まで使っていたエクセル2007には、標準機能として日付を入力するためのカレンダーコントロールがあり、日付入力が簡単でしたが、現在はなくなっていま…

2つの項目をそれぞれ最終行にデータ入力

A列に「顧客番号」B列に「氏名」を一括で処理するには、単純に2つ並べちゃえばできますよ。

2つの項目をそれぞれ最終行へ

Private Sub CommandButton1_Click()
Range(“A1”).End(xlDown).Offset(1, 0).Value = TextBox1.Value
Range(“B1”).End(xlDown).Offset(1, 0).Value = TextBox2.Value
End Sub

このように単純にできますが、やはり2行目空欄だとエラーになるので先ほどと同じようにエラー対策を忘れずにVBAコード追加してください。

ちなみに最終行追加ができるようになったら、最終列も使えたら便利ですよ。

しかも「データ検索して同じ項目の行の右側に追加する」

あわせて読みたい

検索して見つけたセルの入力済み最終右セルを選択や文字を記載エクセルで一番面倒で時間がかかる作業が文字や値をシートの中から探す作業じゃないですか？例えば縦軸（行）に47都道府県が並んでいて、横軸に12種類の項目があるとし…

条件を付けて最終行に複数一括データ入力

エクセル住所録で実際に使っているVBAコードは、制作者である自分以外のスタッフが使うので想定外の操作をされることがあるので、入力漏れ項目があるまま新規登録ボタンを押された時の処理なども必要です。

あわせて読みたい

エクセルVBAで住所録入力フォームを作る方法数百人規模の中規模の住所録や顧客データをエクセルで管理している事業所って意外と多いですが、データを検索して修正するのってすごく面倒じゃないですか？面倒だなあ…

そこで、条件を付けてたりエラーメッセージを準備してVBAコードを書いています。

最終行に追記する時のポイント

画面チラつき防止処理
空欄の時メッセージで警告
重複番号の時メッセージで警告
最初の行が空欄の時はその行にデータ入力
最初の行にデータがある場合は1行下にデータ入力
連番を自動入力する

あわせて読みたい

エクセルVBAで自動的に連番をつける方法住所録や商品管理をエクセルでやっていませんか？エクセル住所録では、一番左の列は「通し番号」として連番を割り振っています。名前を入力すると、通し番号が自動的…

このポイントを取り入れて最終行にデータを入力する住所録で使っているVBAコードはこれです。

条件付き最終行追記VBA

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If UserForm1.TextBox1 = “” Then
MsgBox (“顧客番号が入力されていません”)
Else
If Range(“S11”).Value = 1 Then
MsgBox (“顧客番号が重複しています”)
Else
If Range(“AB1”).Offset(1) = “” Then
Range(“AB1”).Offset(1).Value = TextBox1.Value
Range(“AB1”).Offset(1, 1).Value = TextBox2.Value
Range(“AB1”).Offset(1, 2).Value = TextBox3.Value
Range(“AB1”).Offset(1, 3).Value = TextBox4.Value
Range(“AB1”).Offset(1, 4).Value = TextBox5.Value
Range(“AB1”).Offset(1, 5).Value = TextBox6.Value
Range(“AB1”).Offset(1, 6).Value = TextBox7.Value
Range(“AB1”).Offset(1, 7).Value = TextBox8.Value
Range(“AB1”).Offset(1, 11).Value = Label28.Caption
Range(“AB1”).Offset(1, 8).Value = Cells(2, 16).Value
If OptionButton4.Value = True Then
Range(“AB1”).Offset(1, 9).Value = (“男”)
ElseIf OptionButton5.Value = True Then
Range(“AB1”).Offset(1, 9).Value = (“女”)
End If
Else
Range(“AB1”).End(xlDown).Offset(1).Value = TextBox1.Value
Range(“AC1”).End(xlDown).Offset(1).Value = TextBox2.Value
Range(“AD1”).End(xlDown).Offset(1).Value = TextBox3.Value
Range(“AE1”).End(xlDown).Offset(1).Value = TextBox4.Value
Range(“AF1”).End(xlDown).Offset(1).Value = TextBox5.Value
Range(“AG1”).End(xlDown).Offset(1).Value = TextBox6.Value
Range(“AH1”).End(xlDown).Offset(1).Value = TextBox7.Value
Range(“AI1”).End(xlDown).Offset(1).Value = TextBox8.Value
Range(“AM1”).End(xlDown).Offset(1).Value = Label28.Caption
Range(“AJ1”).End(xlDown).Offset(1).Value = Cells(2, 16).Value
If OptionButton4.Value = True Then
Range(“AK1”).End(xlDown).Offset(1).Value = (“男”)
ElseIf OptionButton5.Value = True Then
Range(“AK1”).End(xlDown).Offset(1).Value = (“女”)
End If
End If
Dim i As Integer
i = 1
Do While Cells(i + 1, “AB”).Value <> “”
Cells(i + 1, “AA”).Value = i
i = i + 1
Loop
End If
End If
Unload UserForm1
Application.ScreenUpdating = Ture
End Sub