データを同一シート内にFor~Next文を使用して転記する方法について説明します。
例題
転記前状態(A2セル~A6セルに登録されているデータ)を、For~Next文を使用した転記後状態(C2セル~C6セルに転記)にするプログラミング方法です。
[転記前]:
[転記後]:
プログラミング
プログラミングは以下の通りとなります。
[記述例]:
Sub サンプル()
Dim 行 As Double
For 行 = 2 To 6
Range("C" & 行) = Range("A" & 行)
Next
End Sub
最初に変数:行を指定します。
次にFor~Next文を使用して変数:行に2~6までの数値を順次セットしながらループさせます。
このループによりA列の2行目~6行目のデータを転記する事になります。
転記の記述方法は、「=」(イコール)の右側に転記前のセルを指定し、左側に転記先のセルを指定します。
ループ内の記述内容を説明すると、
---------------------------------
最初に変数:行に2がセットされている場合、A2セルのデータをC2セルに転記します。
---------------------------------
次に変数:行に3がセットされている場合、A3セルのデータをC3セルに転記します。
---------------------------------
次に変数:行に4がセットされている場合、A4セルのデータをC4セルに転記します。
---------------------------------
次に変数:行に5がセットされている場合、A5セルのデータをC5セルに転記します。
---------------------------------
次に変数:行に6がセットされている場合、A6セルのデータをC6セルに転記します。
---------------------------------
との意味になります。
ダンロード
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。