データを別ブックにDo~Loop文を使用して転記する方法について説明します。今回は転記前ブック及び転記先ブックの両方が開いている事を前提に説明します。
例題
転記前状態(Book1.xlsmのSheet1のA2セル~A6セルに登録されているデータ)を、転記後状態(Book2.xlsmのSheet1のA2セル~A6セルに転記)にするプログラミング方法です。
[転記前]:
[転記後]:
プログラミング
プログラミングは以下の通りとなります。
[記述例]:
Sub サンプル()
Dim 行 As Double
行 = 2
Do Until Trim(Sheets("Sheet1").Range("A" & 行)) = ""
Workbooks("Book2.xlsm").Sheets("Sheet1").Range("A" & 行) = Workbooks("Book1.xlsm").Sheets("Sheet1").Range("A" & 行)
行 = 行 + 1
Loop
End Sub
最初に変数:行を指定します。
次に変数:行には初期値として2をセットします。
最後にDo~Loop文を使用して転記を行いながら変数:行に数字を1づつ足してループさせます。
ループはBook1.xlsmブックのA列のセルにデータが入力されていない場合に抜ける事になります。また、このループによりBook1.xlsmブックのA列2行目~6行目のデータをBook2.xlsmブックの転記します。
転記する記述方法は、「=」(イコール)の右側に転記前のセルを指定し、左側に転記先のセルを指定します。
ループ内の記述内容を説明すると、
---------------------------------
最初のループでは変数:行に2がセットされているので、Sheet1シートのA2セルにデータが入力されているかを判定します。Book1.xlsmブックのA2セルにはデータが入力されているため、Book1.xlsmブックのA2セルのデータをBook2.xlsmブックの2セルに転記し、その後に変数:行に1を足し込みます。この足し込みにより変数:行の値は2+1=3となります。
---------------------------------
次のループでは変数:行に3がセットされているので、Book1.xlsmブックのA3セルにデータが入力されているかを判定します。Book1.xlsmブックのA3セルにはデータが入力されているため、Book1.xlsmブックのA3セルのデータをBook2.xlsmブックの3セルに転記し、その後に変数:行に1を足し込みます。この足し込みにより変数:行の値は3+1=4となります。
---------------------------------
更に次のループでは変数:行に4がセットされているので、Book1.xlsmブックのA4セルにデータが入力されているかを判定します。Book1.xlsmブックのA4セルにはデータが入力されているため、Book1.xlsmブックのA4セルのデータをBook2.xlsmブックの4セルに転記し、その後に変数:行に1を足し込みます。この足し込みにより変数:行の値は4+1=5となります。
---------------------------------
更に次のループでは変数:行に5がセットされているので、Book1.xlsmブックのA5セルにデータが入力されているかを判定します。Book1.xlsmブックのA5セルにはデータが入力されているため、Book1.xlsmブックのA5セルのデータをBook2.xlsmブックの5セルに転記し、その後に変数:行に1を足し込みます。この足し込みにより変数:行の値は5+1=6となります。
---------------------------------
更に次のループでは変数:行に6がセットされているので、Book1.xlsmブックのA6セルにデータが入力されているかを判定します。Book1.xlsmブックのA6セルにはデータが入力されているため、Book1.xlsmブックのA6セルのデータをBook2.xlsmブックの6セルに転記し、その後に変数:行に1を足し込みます。この足し込みにより変数:行の値は6+1=7となります。
---------------------------------
更に次のループでは変数:行に7がセットされているので、Book1.xlsmブックのA7セルにデータが入力されているかを判定します。Book1.xlsmブックのA7セルにはデータが入力されていないため、ループを抜ける事になります。
---------------------------------
との意味になります。
ダンロード
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。