概要：なぜVBAとSQLの組み合わせが最強なのか
Excel VBAを使いこなすエンジニアにとって、SQLは単なるデータベース操作の手段ではありません。大量のデータを高速に処理し、必要な情報だけをピンポイントで抽出するための「強力なフィルタリングエンジン」です。特に、文字列のパターンマッチングは、実務で頻繁に遭遇する要件です。
今回取り上げるのは、「文字列の中に’-nn-‘というパターンが含まれ、かつnnの部分が偶数であるものだけを抽出する」という一見複雑な条件です。これを標準的なSQLのLIKE演算子だけで解決しようとすると、複数の条件を組み合わせる必要があり、非常に冗長でメンテナンス性の低いコードになりがちです。本記事では、VBAとADODB（ActiveX Data Objects）を組み合わせ、正規表現の概念をSQLに応用した、極めて効率的なデータ抽出手法を徹底解説します。
詳細解説：文字列パターンの解剖と論理的アプローチ
まず、今回のターゲットとなる文字列パターン「-nn-」について整理しましょう。ここで「n」は数字（0〜9）を指すと定義します。つまり、抽出対象は「-00-」「-02-」「-04-」から「-98-」までとなります。
SQL標準のLIKE演算子では、ワイルドカード（%や_）は使用できますが、「数値が偶数か奇数か」という論理的な判定を行うことはできません。そのため、以下の3つのアプローチが考えられます。
1. 逐次処理：全レコードをVBAのループで回し、Mid関数で切り出して判定する。
2. SQLのLIKE演算子：すべてのパターン（-00-, -02-, …, -98-）をORで繋ぐ。
3. 正規表現（Regex）の活用：SQLの拡張機能や、VBA側で加工したSQLを発行する。
実務においては、レコード数が数万件を超える場合、VBA側のループ処理は極めて低速です。SQL側で処理を完結させるのが鉄則です。しかし、LIKE演算子で50個ものパターンを並べるのは非効率です。ここで、SQLの「LIKE」に「[ ]」による範囲指定を組み合わせるテクニックを駆使します。
サンプルコード：VBAとSQLによる動的クエリの生成
以下に、ADOを使用してAccessやExcelシートをデータベースに見立ててクエリを発行するサンプルコードを提示します。ここでは、SQLのLIKE演算子に正規表現の考え方を取り入れた「パターン抽出」を実装しています。
Public Sub ExtractEvenPattern()
Dim cn As Object
Dim rs As Object
Dim sql As String
Dim i As Integer
Dim patterns As String
' 偶数のパターンを動的に生成 (-00-, -02-, ..., -98-)
For i = 0 To 98 Step 2
patterns = patterns & "OR ColumnA LIKE '%-" & Format(i, "00") & "-%' "
Next i
' 先頭のORを削除
patterns = Mid(patterns, 4)
' SQL文の構築
sql = "SELECT * FROM [Sheet1$] WHERE " & patterns
' DB接続設定（環境に合わせて変更）
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;"""
' クエリ実行
Set rs = cn.Execute(sql)
' 結果をシートに出力
Sheet2.Range("A1").CopyFromRecordset rs
rs.Close
cn.Close
End Sub
このコードの肝は、VBA側でSQL文を「動的に生成」している点です。SQLの固定化に拘る必要はありません。VBAのループ処理を使って、SQLという「言語」を生成する。これがベテランVBAエンジニアの常套手段です。
実務アドバイス：パフォーマンスとメンテナンス性の最適化
実務現場では、この手法を使う際にいくつか注意すべき点があります。
第一に「SQLの長さ制限」です。多くのデータベースエンジンには、SQLのクエリ長に制限があります。あまりに複雑なOR条件を羅列すると、エラーが発生したり、逆にパフォーマンスが著しく低下したりします。今回のケースのように50程度のパターンであれば問題ありませんが、抽出条件が数千パターンに及ぶ場合は、一時テーブル（Temp Table）を作成し、そこに偶数パターンのリストを格納して「JOIN」または「IN句」で照合する方法が推奨されます。
第二に「ワイルドカードの配置」です。LIKE ‘%-nn-%’ とすることで、文字列内のどこにパターンがあってもマッチします。しかし、もし先頭や末尾のみを対象とする場合は、%を外すことで検索エンジン（インデックス）の効きが良くなり、検索速度が劇的に向上します。
第三に「型変換の罠」です。Excelをデータベースとして扱う場合、列の型が不一致だと検索が正しく機能しません。可能であれば、対象列を事前に「文字列型」として書式設定しておくことを強く推奨します。
まとめ：VBAとSQLの融合がもたらす開発の未来
文字列の中から特定の規則性を持つ値を抽出する作業は、データクレンジングの現場で避けて通れないプロセスです。今回紹介した「VBAによるSQLの動的生成」と「LIKE演算子による範囲指定」の組み合わせは、小規模なデータから数百万件のデータまで、幅広く適用できる汎用的な技術です。
コードを記述する際、常に意識してほしいのは「SQLに何をさせ、VBAに何をさせるか」の境界線です。データ抽出は可能な限りSQLに委ね、データの組み立てやロジック構築はVBAで制御する。この役割分担を明確にすることで、あなたの書くプログラムは、より堅牢で、かつ他のエンジニアが理解しやすい「保守性の高いコード」へと進化します。
今回の「偶数のみ抽出」という課題は、単純なように見えて、実はSQLの柔軟な活用方法を学ぶための非常に良いケーススタディです。ぜひ、ご自身の業務データに当てはめて、このコードをカスタマイズしてみてください。VBAのスキルは、書いたコードの数だけ、確実にあなたの強力な武器となります。今日学んだ手法を武器に、明日の業務効率を劇的に改善させていきましょう。
