途中から読まれる方もいらっしゃると思いますので、ブログ連載の流れをご説明したいと思います。ご紹介したいプログラムは８月６日にダウンロード、８月７日に実行する記事を書いています。プログラムはあるフォルダーに入れた２つのファイルを結合して、１つのファイルにするというものです。全くエクセルのプログラムに馴染みのない方も操作できるように極力専門用語を使わず、出来る限り図解を多く入れる様にして参りました。８月５日以前は前準備、８日以降はプログラムを組むうえで知っておかなければならない事項を説明しています。現在もその途中です。
今回は、コピーするセル範囲をいかに把握（取得）して、その数値を変数に代入するか、をご説明します。
まず、hiro-yukioのサイトより「使用セル範囲の把握＆サンプルデータ.xlsm」をダウンロードして下さい。
下図の様にシート「サンプルデータ１」とプログラム部分が見える様にして下さい。この「サンプルデータ１」シートに入っているデータの最終行と最終列を調べるプログラムを実行してみましょう。
Module1に入っている、「Sub セル範囲の把握_取得()」プログラムを実行して見て下さい。氏名列における最終行は１１行と表示されます。「OK」をクリックし進めます。次に進みます。
表題行における最終列は８列（H列）と表示されます。「OK」をクリックするとこれでプログラムは終了です。プログラムを見てみましょう。
対象シートの最終行 = .Cells(Rows.Count, 2).End(xlUp).Row
赤文字の命令文？により、２列目のデータ、この場合は「氏名」が何行目まで入っているかを調べられます。
対象シートの最終列 = .Cells(1, Columns.Count).End(xlToLeft).Column
赤文字の命令文？により、１行目のデータ、この場合は「表題列」が何列目まで入っているかを調べられます。
このプログラムをシートの２番目「サンプルデータ２」でも実行して見て下さい。「サンプルデータ１」よりも行数、列数が多くデータが入っています。
最後に「サンプルデータ１」または「サンプルデータ２」を「３番目」のシートに複写するサンプルプログラムを実行します。
Module1に入っている、２番目の「Sub テストデータを3番目のシートに複写する()」プログラムを実行します。次に進みます。
「３番目」のシートタブをクリックしてデータが貼り付け（ペースト）されていることを確認して下さい。「サンプルデータ１」と「サンプルデータ２」の両方実行してみて下さい。再度プログラムを実行する場合は、「３番目」のシートを行削除でデータを消去し、「サンプルデータ１」または「サンプルデータ２」のシートを表示してから、プログラムを実行してください。最後に・・・
動作をさせたい場所（ブック、シート）の「はっきり明示」を前回までにご説明し、今回、コピーしたい範囲の把握（取得）方法がご理解いただけたでしょうか。少しでもプログラミングの手順がイメージ出来る様になったと言う方が１人でもいらっしゃれば幸いです。
次回は、変数宣言と「Option Explicit」と言う命令文？についてご説明予定です。お楽しみに。
読者の方へ。過去の記事をご覧になられていて、「画像」が上手く表示されない場合は、「hiro-yukioのサイト」の「過去のブログ記事」フォルダーにPDFで保存しましたのでこちらでご覧下さい。