第22回.複数ブックよりデータを集める
他のブックを開いて指定シートの指定セル範囲のデータを取得する、
取得したデータを使って、目的の表を作り上げる、
これこそマクロVBAの真価が問われる処理でしょう。
これまでにやってきた内容が出来れば大丈夫です。
これまでの内容を上手く組み合わせるだけです。
ポイントになりそうな部分を、ちょっと復習しましょう。
第17回.セルにブック・シートを指定する
長々と、ブック・シートを書かず、SetやWithを使いこなします。
Openしたブックを直接SetやWithに入れる事で、すっきりしたコードになります。
Dir関数を使いファイル一覧を取得します。
今回は、これまでの組み合わせだけです。
マクロの書かれているExcelファイルのあるフォルダ内に、「データ」というフォルダがあり、
この中の全てのExcelファイルの1番目のシートにある(A1セルの)表範囲のデータを全て集めてきます。
マクロを書くブックには、
・データ ・・・ 1行目に見出しを入れておきます。
・一覧 ・・・ ファイルの一覧を入れます
この2つのシートを用意しておきます。
各VBAコードは、今まで説明してきたものです。
j = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
これが少々?かもしれません。
最終行 + 1
つまり、最終行の1行下という事です。
テストデータを用意し、画像を見ながらマクロVBAを書いてみて下さい。
データの用意も、実際に書いてみることも、マクロを覚える上で大切な事なのです。
どんなデータを用意したら良いか、それは、どんなマクロかを理解することです。
そして、指を動かすことで、目と指の双方からの情報で、より記憶に残ります。
1度と言わず、2度3度と書いてみましょう。
ステップイン(F8)で動きを確認しましょう。
この積み重ねでしか、マクロVBAを習得出来ません。
これ以外に、マクロVBAを習得する道はありません。
同じテーマ「マクロVBA再入門」の記事
第19回.ブックを開く・閉じる・保存する（Workbooks,Open,Close,Save,SaveAs）
第20回.全てのシートに同じ事をする（For〜Worksheets.Count）
第21回.ファイル一覧を取得する（Do〜LoopとDir関数）
第22回.複数ブックよりデータを集める
第23回.複数のプロシージャーを連続で動かす（Callステートメント）
第24回.マクロの呪文を追加してボタンに登録（ScreenUpdating）
第25回.月別ブックより部署別シートに担当別に集計するNo1
第26回.月別ブックより部署別シートに担当別に集計するNo2
第27回.月別ブックより部署別シートに担当別に集計するNo3
第28回.月別ブックより部署別シートに担当別に集計するNo4
第29回.月別ブックより部署別シートに担当別に集計するNo5
新着記事 ・・・新着記事一覧を見る
数値範囲で表検索するVLOOKUP近似一致｜エクセル関数超技（10月5日）
エクセルVBAでのシート指定方法｜VBA技術解説（9月8日）
VBAのクラスとは（Class,Property,Get,Let,Set）｜VBA技術解説（8月28日）
VBAこれだけは覚えておきたい必須基本例文10｜VBA技術解説（8月22日）
VBAの省略可能な記述について｜ExcelマクロVBA技術解説（8月11日）
複数条件判定を行う時のコツ｜ExcelマクロVBA技術解説（7月11日）
For Next の使い方いろいろ｜VBA技術解説（6月14日）
VBAを定型文で覚えよう｜ExcelマクロVBA技術解説（3月26日）
VBAスタンダード試験対策まとめ｜MOS VBAエキスパート対策（3月16日）
ユーザーフォームとメニューの操作｜MOS VBAエキスパート対策（3月14日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜ExcelマクロVBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.変数とデータ型（Dim）｜ExcelマクロVBA入門
5.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
6.マクロって何？VBAって何？｜ExcelマクロVBA入門
7.定数と型宣言文字（Const）｜ExcelマクロVBA入門
8.繰り返し処理（For Next)｜ExcelマクロVBA入門
9.とにかく書いて見よう（Sub,End Sub）｜VBA入門
10.ひらがな⇔カタカナの変換｜エクセル基本操作
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。
