データを同一シート内に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セルに転記します。
---------------------------------
との意味になります。
※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。また、ボタンにプログラムを割り当てるにはこちらを参考にして下さい。
ダンロード
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。