表計算ソフトのExcelは非常に便利なソフトですね。数字の計算からグラフ・抽出まで簡単な操作で出来ます。こんな便利なソフトですが、複雑な計算をさせたり、多くの条件で分けて計算をする際には、さすがに標準の数式では限界があります。
その限界を突破するためにあるのが、VBA（Visual Basic for Application）です。平たく言ってしまうとExcelで行うプログラミングです。
そう言ってしまうと構えてしまう方も多いかもしれませんが、実際にやってみるとコツをつかめば心強い機能になります。

このコラムでは、よく使うコードを紹介していきたいと思います。

紹介するコードは下記環境で動作確認をしておりますので、あらかじめご了承ください。
OS：Windows7　および　Windows10
Officeバージョン：MicrosoftOffice2013　および　2016

今回紹介するのは「セルの連続移動」です。
数字の取り込みや代入（書き出し）の際に、必ずと言っていいほど利用することになります。慣れている方はサラサラっと書かれるかと思いますが、特に始めたばかりの方は「なにをどうすればいいの？」となる方が多いのではないでしょうか。
私も始めたばかりの頃はその一人でした。
一回理解してしまえば様々なことに応用が利くコードですので、ぜひ覚えてみてください。

早速、コードを見てみましょう。

コードの解説　-　セルの連続移動

いきなりズラリと書いてしまいましたが、一個ずつ見てみましょう。

ここは変数の宣言をしているのみですね。
「,（カンマ）」で区切ってあげれば、一行で複数の変数が宣言できます。
注意点として、データ型をしてする場合には、一つの変数単位毎に指定をして下さい。

ここでは起点となるセルの位置を指定しています。row1は行、col1は列となりますので、A1を起点に動き始めることになります。
なので、実際に利用する場合には、そのセルに合わせてここを編集することになります。

さぁ来ました。本題部分に突入です。
今回はFor Next構文を利用します。Do Loop構文でも代用できます。
ここの肝となるのが、変数の「i」です。For Next構文内で繰り返すことで、自動的に数字が変わっていきます。この性質を利用してセルを移動します。
具体的には、0Cellsプロパティに組み込むことで繰り返し移動ができるようになります。

ここの行を指定するrow1にForのカウンタ変数であるiをプラスしています。
つまり、Forの繰り返し1回目は「1＋0＝1」、2回目は「1＋1＝2」といった具合に数字を動的に変化させることができます。あとは繰り返した回数分だけ移動することになります。
サンプルのコードではセルに値を代入（書き込み）しましたが、同じ要領で下記の様に読み込みもできます。

変わったのはiをプラスする場所だけです。列番号を指定するcol1にiを指定することで繰り返した回数分だけ横に移動することになります。

では複数行にまたがるセルの範囲を移動する場合にはどうでしょうか。

ここの肝はForのネスト（入れ子）です。
１つ目の行移動をする為のForと２つ目の列移動をする為のForにそれぞれカウンタ用変数として「i」と「ii」の２つが設定されています。この２つの変数をそれぞれrow1とcol1に足してあげることで、繰り返すタイミングで1個ずつ移動する仕掛けとなっています。

よく混乱するポイントとして、どのように変数が変わっていくのかがわからなくなる方が多いようです。
それぞれ分けて考えてみてください。For Next構文は、中の処理を設定した回数だけ繰り返す関数です。

それぞれ言葉にすると
①１つ目のForは中にある2つ目のForを設定した回数分だけ実行
②２つ目のForは中にあるCellsプロパティを設定した回数分だけ実行
ということになります。

別の表現をすると
①１つ目のForを実行
②２つ目のForを実行
Cellsプロパティを実行（１０回）
①に戻る（①を10回実行して終了）
となります。

実際にステップインを使用して、一行ずつ動きを見てみると、より分かりやすいと思いますので、試してみてください。

最後の列単位で移動するパターンを見てみましょう

変わった個所は、iとiiを足す位置だけですね。位置を変えると動く方向が変わりますので、入れ替えるだけで縦移動と横移動が入れ替えられます。

初回から少し長くなりましたが、いかがでしたでしょうか。
次回以降もサンプルを交えながらコードを紹介していきたいと思います。