![](https://strikers.jp/wp-content/uploads/2021/09/WIFI-300x169.jpg)
VBAで他のエクセルファイルのデータを入力済み最終行の下に取込追記
![別ファイル取込追記](https://strikers.jp/wp-content/uploads/2024/05/86ba291d89c7b4fd1050f87d7f9858c4-jpg.webp)
エクセルを使っているとひとつのファイルにデータを集めて集計しますが、他のエクセルファイルのデータをセルの範囲をコピーして貼り付けるの面倒なので、何か簡単な方法がないか?と探していますよね。
西船ボウルの大会や会員データで追記してデータ入力するのですが、セルのコピーをして入力済み最終データの次を探して貼り付け作業を、エクセルVBAを使って自動化しています。
- セルの値取込「GetOpenFilename」
- 最終行取得「Rows.Count」、「End(xlUp)」
- 繰り返し処理「Do Until~Loop」
ボタンを配置してVBAコードを登録するだけで、コマンドボタンを1クリックで一瞬でハイゲームを見つけ出してくれるので、あっという間にスタンディングが終わりますよ。
最終行から自動取込追記
![別ファイルから取込追記](https://strikers.jp/wp-content/uploads/2024/05/701e86783415af7bc3c0e78aae39e91a-jpg.webp)
上の図のように1回分のボウリング成績表がありますが、2回目の成績を1回目の成績の続きで付け足していきます。
そして第3回・・・と実施した分だけ、次々と付け足していき、全部合わせて順位を並べ替えていくフリータイム形式で行うボウリング大会の成績表をエクセルVBAコードをコマンドボタンに登録します。
データの付け足し
フリータイム形式で使う総合成績表のエクセルファイルに、1回だけの成績ファイルに入っているデータをコピペするのではなく、必要なデータだけ自動的に取り込みます。
当然付け足すので、1回目の入力済み最終行の直下に付け足すようにします。
![](https://strikers.jp/wp-content/uploads/2021/09/b038808d3cfee9c6001b8a3b0f766947.jpg)
次のようにエクセルVBAコードを書くと、自動的にダイヤログが開いて取り込みたいエクセルファイルを選べるようになります。
選んだら、自動的に日付・登録番号・名前・スコアーを指定したセルに追記してくれます。
Sub 取り込み追記()
Dim opfile As Variant
opfile = Application.GetOpenFilename(“Microsoft Excelブック,*.csv?”)
If opfile <> False Then
Workbooks.Open opfile
ActiveWindow.WindowState = xlMinimized
e = Cells(Rows.Count, “A”).End(xlUp).Row
Dim i As Long
i = 1
Do Until Workbooks(2).Sheets(1).Cells(i, 1).Value = “”
Cells(i + e, 1).Value = Workbooks(2).Sheets(1).Cells(i + 1, 3).Value
Cells(i + e, 2).Value = Workbooks(2).Sheets(1).Cells(i + 1, 12).Value
Cells(i + e, 3).Value = Workbooks(2).Sheets(1).Cells(i + 1, 14).Value
Cells(i + e, 4).Value = Workbooks(2).Sheets(1).Cells(i + 1, 22).Value
i = i + 1
Loop
Workbooks(2).Close
End If
End Sub
![](https://strikers.jp/wp-content/uploads/2021/09/f9d49b96d4ff04ee5d3183b9da8e0867.jpg)
![](https://strikers.jp/wp-content/uploads/2021/09/f9d49b96d4ff04ee5d3183b9da8e0867.jpg)
![](https://strikers.jp/wp-content/uploads/2021/09/f9d49b96d4ff04ee5d3183b9da8e0867.jpg)
では1行目から解説じゃ
- 「取り込み追記」というタイトルでマクロ宣言
- 変数「opfile」という名前で宣言し、変数は文字でも数字でも入る型とする
- 変数「opfile」で、ダイアログボックスを開きCSVファイルを選択させる
- もしダイアログボックスを開いてもファイル選択しなかったらキャンセル
- CSVファイルを選んだら選択したファイルを画面サイズを最小化する
- 格納値を「e」として、セルA列の入力済み最終行の次のセルとする
- 変数「i」という名前で宣言し、変数は整数型とする
- 変数「i」は整数「1」とする
- 選んだファイルの1番目のシートのセル「i行目のA列」が空欄だったら
- 「i行目の入力済み最終行の次のA列」に開いたファイルの1つ目のシートのセル「i行目+1のC列」の値を追記する
- 「i行目の入力済み最終行の次のB列」←i行目+1のL列」の値
- 「i行目の入力済み最終行の次のC列」←i行目+1のN列」の値
- 「i行目の入力済み最終行の次のD列」←i行目+1のV列」の値
- 変数「i」は「i」+1にして
- 空欄になるまで繰り返す
- 開いたファイルを閉じる
- IFステートメント終了
- マクロ記録終了
ポイントは、入力済み最終行を探す
を書くこと。
書き写すセルの場所に「変数i」に「変数e」を付け加えることで、
取り込んだデータが次々と書き足されていくということです。
![](https://strikers.jp/wp-content/uploads/2021/09/f9d49b96d4ff04ee5d3183b9da8e0867.jpg)
![](https://strikers.jp/wp-content/uploads/2021/09/f9d49b96d4ff04ee5d3183b9da8e0867.jpg)
![](https://strikers.jp/wp-content/uploads/2021/09/f9d49b96d4ff04ee5d3183b9da8e0867.jpg)
2つのエクセルファイルを開いた状態で、コピーしてファイルを切り換えて、貼り付けて・・・
こんな面倒な作業が、1クリックで終了じゃ~!
ボウリング成績表で必須のVBAコード
![](https://strikers.jp/wp-content/uploads/2021/09/19e0a1401f92334566ec43dbb533b43d.jpg)
![](https://strikers.jp/wp-content/uploads/2021/09/19e0a1401f92334566ec43dbb533b43d.jpg)
![](https://strikers.jp/wp-content/uploads/2021/09/19e0a1401f92334566ec43dbb533b43d.jpg)
エクセルのボタンの配置方法やリボンツールバーの「開発」設定がまだの場合、この機能使えないので設定から始めましょう~
![](https://strikers.jp/wp-content/uploads/2024/05/afa067ce94c6df8701c6c86449139e9d-300x200.jpg)
![](https://strikers.jp/wp-content/uploads/2024/05/afa067ce94c6df8701c6c86449139e9d-300x200.jpg)
西船ボウルで使用しているエクセルで作っているリーグ成績表(スタンディング)で、必ず使っているVBAコードです。
実際にはワークシート上にコマンドボタンを配置せず、専用の入力フォームも(ユーザーフォーム)作成してフォーム上にボタンなどを配置しています。
成績表作成でよく使う便利機能
エクセルファイル操作の便利機能