1. はじめに
ＡＲアドバンストテクノロジ株式会社（ＡＲＩ）の鈴木タクヤです。
全ての存在は滅びるようにデザインされている。
生と死を繰り返す螺旋に・・・・・・
私達は囚われ続けている。
（後略）
これは私の好きなゲーム「NieR:Automata」（ニーア オートマタ；開発はプラチナゲームズ、販売はスクウェア・エニックス）の冒頭の語りです。このゲームはエイリアンによる侵略で月に追われた人類のために、主人公の 「2B」（トゥービー）というアンドロイドが、様々な葛藤を抱えながら地球奪還に向けた戦争に身を投じていくスタイリッシュなアクションRPGです。この記事の執筆時点で全世界800万本以上売れているらしいのでご存じの方もいると思いますが、もうすぐこのゲームを原作としたアニメ第2クールが始まるので、個人的には楽しみです。
それはそうと・・・
今回はExcelフィルタリングツールのソースコード解説第8回です。
（ツールの詳細については以下の記事を、「Excelフィルタリングツール解説シリーズ」タグの記事一覧については以下の記事下部「5. 解説記事のリンク」をご参照ください。）
解説第7回 は「Ifステートメント」の解説後編ということで、ブール型やブール演算子（論理演算子）についての解説でしたが、今回のテーマは「For…Nextステートメント」による繰り返し処理です。
これを使えるようになれば、「Excelを用いた業務をマクロで自動化する」という、あなたにとっての 「To-Be」（理想の姿）に近づくこと請け合いです。
2. For…Nextステートメントとは
繰り返し（ループ）処理を記述する際に使用する以下の構文を「For…Nextステートメント」と呼びます。
For ループカウンタ = 初期値 To 最終値 [Step 加算値]
'～何かしらの処理～
[Exit For]
'～何かしらの処理～
Next [ループカウンタ]
はじめの For と Next の間の処理が繰り返されます。「ループカウンタ」は変数、「初期値」「最終値」「加算値」は数値もしくは変数で指定します。「加算値」は省略した場合「1」となります。
Exit For は省略可能ですが、使用する場合そこに到達すると繰り返し処理を抜け、Next の次の行に飛びます。主に 前々回 、 前回 と解説した「Ifステートメント」と併用されます。
例えば以下の例をご覧ください。
For i = 1 To 3
Cells(1, i) = i
Next i
Cells() は 単一の セルを表します。（複数形だけど。）
Cells(1, 2) で「1行2列目のセル」つまり「B1セル」を表します。
上の使用例ではループカウンタである変数 i の値は初期値 1 から始まり、加算値を省略しているので処理を繰り返すごとに1ずつ増え、i が最終値 3 を超えるまで処理を繰り返します。ここで繰り返される Cells(1, i) = i は 前回 登場した Range() と似た使い方をしていますが、「1行 i 列目のセルの値に i を設定する」という意味になります。つまりこれを実行した場合、表示しているシートが以下のようになります。
（「1行 1 列目」が 1、「1行 2 列目」が 2、「1行 3 列目」が 3。i = 3 までで繰り返し終了。）
今回のテーマから逸れますが、 Range() と Cells() の使い分けについては以下が参考になります。
ループカウンタはVariant型（明示的にデータ型を宣言しない）よりも、整数のInteger型やLong型にすると処理が若干速くなるようです。
Excelフィルタリングツール の中では「For…Next」を、例えばFunctionプロシージャ checkFormat で使用しています。
Dim startingPositionOfRowNo As Integer '数字の開始位置が先頭から何文字目かを格納する変数を定義
Dim i As Integer, j As Integer 'ループ処理用変数を定義
'2文字目以降は1文字ずつ英字か数字か確認
For i = 2 To wordCount
If Mid(cellReference, i, 1) Like "[0-9]" Then
startingPositionOfRowNo = i '数字部分（行番号）開始が先頭から何文字目かを保持
Exit For
ElseIf Not Mid(cellReference, i, 1) Like "[A-Z]" Then '数字じゃなくて英字でもなければエラー
Call showFormatErrorMessage(i)
End If
Next i
これは変数 cellReference に代入されたセル番地（C7, AB12など）を表す文字列の入力誤りがないかを確認する処理の一部です。変数 wordCount は文字数を表しています。
この前の処理で既に文字列の先頭が英字であることを確認しているので、ループカウンタ i は 2 から始まり、2文字目から順に1文字ずつ i 文字目を確認していきます。
英字であれば次のループ、数字が出てきたら変数 startingPositionOfRowNo に i の値を代入し Exit Forでループを抜けます。数字が出てくる前に英字以外（記号など）が見つかった場合にはSub プロシージャ showFormatErrorMessage を呼び、 i 文字目でエラーになったとメッセージボックスで表示します。
↓表示例
Mid関数 Mid(文字列, x, y) は、文字列 の x 文字目から y 文字を返す関数で、例えばMid("NieR:Automata", 6, 4) は「Auto」（6文字目からの4文字）になります。
また以前も登場した Like は演算子の一つで、文字列のパターンマッチングを行います。一致すればTrue、不一致ならFalseを返します。パターンマッチングには文字のリストやワイルドカードが使用できます。例えば、[0-9]は0から9までの数字1文字、[A-S] はA, B, ～Sまでの英字1文字、? は任意の1文字・・・などです。 "2B" Like "[0-9]?" はTrue、"A2" Like "?[A-Z]" はFalseになります。
3. おわりに
以上、「For…Next」の解説でした。
Ifによる条件分岐と繰り返し処理は「マクロの記録」機能ではどうやっても登場しないと思うので、これらをマスターすればかなり多くの手作業を自動化できます。
Excel VBAの繰り返し処理は他にもありますが、まずは基本となる「For…Next」を押さえておきましょう。
そして今回のおまけですが、ここまで読んでいただいたお礼として、ちょっとしたツールを提供します。次回はこのおまけツールにも登場する、「For Each…Next」について解説します。
4. おまけ；【ツール提供】A1セル自動選択ツール
4-1 ツールの説明
同僚と共有するExcelのファイルを開いたとき、各シート中途半端なセルが選択されていてイラっとしたことはありませんか？また、自分が編集したファイルを保存する際、シートが大量にあるとA1セルに戻すのが面倒だと感じませんか？
そんな貴方にこのツール。実行すれば、全シートA1セルが選択され、先頭のシートが表示されます。ファイルを開いた際や、保存する前に使用してみてください。職場のギスギス感が若干改善される・・・かもしれません。
4-2 使用方法
ツール導入の流れは概ね【ツール提供】Excelユーザなら全員使える?! Excelフィルタリングツール の 「3-1 VBAコードのコピー&ペースト」 と同じです。
適当な「マクロ有効ブック(*.xlsm)」の標準モジュールに以下のソースコードをコピペしてください。
使用時には、ソースコードをコピペした「マクロ有効ブック(*.xlsm)」を開き、A1セルを選択したいExcelファイルのウィンドウを選択した状態で「開発」タブの「マクロ」を押下します。
「マクロの保存先」のプルダウンから「開いているすべてのブック」かソースコードをコピペした「マクロ有効ブック(*.xlsm)」のファイル名（キャプチャでは「汎用マクロ.xlms」）を選択し、マクロ名「～selectA1」を選択し、「実行」ボタンを押下します。
上の画面の「オプション」ボタンを押下すると、自作のマクロにショートカットキーを設定することもできます！
一瞬で全シートA1セルが選択され、一番左のシートが表示されます！
A1セルは選択したいけどシートの移動は要らない・・・という場合は、ソースコードの Worksheets(1).Activate をコメントアウト（行の先頭にシングルクォート「'」を付与）してください。
4-3 ツールのソースコード
'A1セル自動選択ツール
Sub selectA1()
Dim ws As Worksheet
'各シートのA1セルを選択
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
ws.Cells(1, 1).Activate
Next
'一番左のシートを選択
Worksheets(1).Activate
End Sub
5. 参考文献
こちらはMicrosoftの公式ドキュメントです。
こちらは私がものすごくお世話になっている「エクセルの神髄」という解説サイト。より深く学習を進めたい方は是非。