VBA】最終行の下にデータを追加する方法!別シートからのコピーも可!VBAで最終行の下にデータを追加したいときはないでしょうか。・VBAで最終行の下にデータを追加したいが方法がよくわからない・VBAで最終行の下に別シートのデータを追加したいが方法がよくわからないですよね。今回はそんなお悩みを解決する・VBAで別シートのデータを元シートの最終行の下に追加する方法についてまとめます!もくじVBAで別シートのデータを元シートの最終行の下に追加するイメージVBAで別シートのデータを元シートの最終行の下に追加するシートを準備するVBAコードVBAを設定するVBAの実装VBAを実行するVBAの説明VBAの実装手順VBAを実行するさいごにVBAで別シートのデータを元シートの最終行の下に追加するイメージVBAで別シートのデータを元シートの最終行の下に追加するイメージについて説明をします。Excelに追加データを入力するシートと、そのデータを追加したい表があるシートを用意します。VBAを実行すると、追加データがコピーされ、反映したいシートの表の最終行の下に追加されます。再度VBAを実行すると、前回追加したデータの最終行の下に追加されていきます。それぞれのシートの最終行数は自動的に取得され、データ量に応じていちいちセルの範囲を設定する必要がないのでとても便利です!それでは早速試してみましょう。VBAで別シートのデータを元シートの最終行の下に追加するVBAで別シートのデータを元シートの最終行の下に追加する方法について説明をします。シートを準備するExcelに追加データを入力する”追加データ”シートと、そのデータを追加したい表がある”元表”シートを用意し、適当なデータを入力していきます。サンプルデータはA列~C列の3列構成となり、追加データは2行目以降が対象となります。Excelに追加データを入力するシートデータを追加したい表があるシートVBAコードサンプルのVBAコードは以下の通りです。'最終行数を取得します。'追加データの範囲をコピーします。'追加データの範囲の行数をカウントし変数へ代入します。'最終行数を取得します。'元表シートへ値のみ貼り付けします。'範囲選択を解除します。'最終行数を取得します。FunctionVBAを設定するシート名を変更する場合は以下を変更してください。現在の設定は追加データを入力する”追加データ”シートと、そのデータを追加したい表がある”元表”シートをを設定していきます。Sheets("元表")タカヒロシート名は名前以外に左からの位置の順番である数値での指定も可能です。1シート目であれば「1」、2シート目であれば「2」を指定します。対象となる表の列を変更したい場合は以下のCellsオブジェクトの列番号を変更してください。現設定ではA~C列が対象なので1列目の1と3列目の3の設定となっています。'追加データの範囲をコピーします。3)).Copy'追加データの範囲の行数をカウントし変数へ代入します。3)).Rows.Count'元表シートへ値のみ貼り付けします。Paste:=xlPasteValuesVBAの実装VBAの実装方法についてはVBAの実装手順をご参照ください。VBAを実行するVBAを実行してみましょう。元表の最終行の下に追加データ3行分が挿入されましたね!追加データを変更して再度実行してみましょう。はい!先ほど追加した最終行の下に4件が追加されましたね!VBAの説明VBAについて説明をします。最終行数を取得する関数を別に設定しています。この関数は引数にシート名またはシート番号(1,2,3...)を指定すると、シートにある表の最終行数を取得します。Variant)'最終行数を取得します。Functionタカヒロ最終行数取得のロジックについては以下の記事の方法5を採用しています。それ以外の最終行数を取得する方法もありますので、よろしければご参照ください。VBA】最終行を取得する方法5選!取得できない対処法も!追加データシートの追加分のデータをコピーします。先ほどの最終行取得関数に”追加データ”シート名を指定し、”追加データ”シートの表の最終行数を取得します。つづいて追加データの範囲をコピーします。次の処理に使う追加データの行数を変数に代入します。Sheets("追加データ")'最終行数を取得します。最終行取得関数(.Name)'追加データの範囲をコピーします。3)).Copy'追加データの範囲の行数をカウントし変数へ代入します。With“元表”シートの最終行の下に追加データを値貼り付けします。最終行取得関数に”元表”シート名を指定し、”元表”シートの表の最終行数を取得します。次に元表の最終行のひとつ下の行へ追加データを値貼り付けします。Sheets("元表")'最終行数を取得します。最終行取得関数(.Name)'元表シートへ値のみ貼り付けします。With仕上げにコピーの範囲選択状態を解除します。Falseタカヒロ別シートへ値のみコピーする方法については以下の記事を参考にして作成しています。よろしければご参考ください。実装手順は以下の通りです。Excel側にVBAを実装していきます。1Excelを新規に開き、「開発」タブをクリックし、「VisualBasic」をクリックします。ショートカットキー「Alt」+「F11」でもOKです。2標準モジュールを追加します。モジュール」を選択します。3右ペインのウインドウに上記のVBAを入力します。VBAを実行するでは早速VBAの実行をしてみましょう。1「開発」タブの「VBA」をクリックし実行したいマクロを選択し、「実行」をクリックします。2処理がされたことが確認できれば完了です。さいごにいかがでしょうか。・VBAで別シートのデータを元シートの最終行の下に追加する方法についてまとめました。他にも便利な方法がありますので、よろしければご参照頂ければと思います。この記事の関連キーワードこちらの記事の関連キーワード一覧です。クリックするとキーワードに関連する記事一覧が閲覧できます。「最終行」の関連記事こちらの記事の内容「最終行」に関連する記事一覧です。コメントをキャンセルメールアドレスが公開されることはありません。*サイト次回のコメントで使用するためブラウザーに自分の名前、メールアドレス、サイトを保存する。VBA】ファイルをZIP形式で圧縮する方法!複数一括処理も可!RECOMMENDこちらの記事も人気です。