【VBAリファレンス】実務で差がつくVBAアルゴリズム最適化：効率的な素数判定プログラムの完全ガイド

概要

業務システムにおけるデータ処理や、独自の計算ロジックを組む際、「素数（Prime Number）」を扱う機会は意外にも多いものです。例えば、暗号理論の基礎、ハッシュテーブルのサイズ決定、あるいは特定の数値シミュレーションなど、数値の性質を判定するロジックはVBA開発者のスキルを問う重要な指標となります。しかし、単に「1から順番に割っていく」だけの素直な実装では、対象数値が大きくなった途端に処理がフリーズし、Excelが応答なしに陥るでしょう。本稿では、VBAで素数を求めるためのアルゴリズムを、初学者向けから、実務で耐えうる高速な「エラトステネスの篩（ふるい）」を用いた実装まで、プロフェッショナルな視点で詳細に解説します。

詳細解説：素数判定の理論とVBAにおける最適化

素数とは、1とその数自身以外に正の約数を持たない、1より大きい自然数のことです。素数を判定する最も単純な方法は、対象の数値nに対して、2からn-1までのすべての整数で割り算を行い、余りが0になるかを確認することです。しかし、これは極めて非効率です。

数学的な最適化の第一歩として、「平方根（√n）」を利用します。もしnが合成数であれば、その約数の少なくとも一つは√n以下に存在するという性質があります。つまり、ループの回数は√nまでで十分です。さらに、2以外の偶数は素数ではないため、2で割った後は奇数のみをチェックするように工夫することで、ループ回数はさらに半分に削減できます。

さらに大規模な数値範囲で素数を求める場合、個別に判定を行うのではなく「エラトステネスの篩」というアルゴリズムが最強です。これは、特定の範囲内のすべての数値に対し、素数の倍数を順番に除外していく手法です。メモリを確保できる範囲内であれば、個別の判定を繰り返すよりも圧倒的に高速に動作します。VBAでは、配列（Array）を効率的に利用することで、このアルゴリズムを高速に再現することが可能です。

サンプルコード：高速な素数判定と列挙

以下のコードは、指定した範囲内の素数を効率的に抽出し、シート上に出力する実務的なサンプルです。

' 指定した数値が素数かどうかを判定する関数
' 平方根までを確認し、2と奇数のみを対象にループ
Public Function IsPrime(ByVal n As Long) As Boolean
    Dim i As Long
    
    If n < 2 Then IsPrime = False: Exit Function
    If n = 2 Then IsPrime = True: Exit Function
    If n Mod 2 = 0 Then IsPrime = False: Exit Function
    
    ' 平方根まで確認
    For i = 3 To Sqr(n) Step 2
        If n Mod i = 0 Then
            IsPrime = False
            Exit Function
        End If
    Next i
    
    IsPrime = True
End Function

' エラトステネスの篩を利用して範囲内の素数を高速に出力
Sub GetPrimesInRange()
    Dim limit As Long
    Dim i As Long, j As Long
    Dim isNotPrime() As Boolean
    Dim results As Collection
    
    limit = 100000 ' 10万までの素数を求める
    ReDim isNotPrime(0 To limit)
    Set results = New Collection
    
    ' 0と1は素数ではない
    isNotPrime(0) = True
    isNotPrime(1) = True
    
    ' アルゴリズムの実行
    For i = 2 To Sqr(limit)
        If Not isNotPrime(i) Then
            For j = i * i To limit Step i
                isNotPrime(j) = True
            Next j
        End If
    Next i
    
    ' 結果をシートに出力
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)
    ws.Cells.Clear
    
    Dim rowIdx As Long: rowIdx = 1
    For i = 2 To limit
        If Not isNotPrime(i) Then
            ws.Cells(rowIdx, 1).Value = i
            rowIdx = rowIdx + 1
        End If
    Next i
    
    MsgBox "計算完了：" & (rowIdx - 1) & "個の素数が見つかりました。"
End Sub

実務アドバイス：VBAを「速く」するための極意

実務でVBAを使う際、最も避けなければならないのは「セルへの頻繁なアクセス」です。上記のサンプルコードでも、結果を一つずつセルに書き込むのではなく、計算結果を配列に格納してから一括でシートに転記する方法がベストです。

また、`Long`型と`LongLong`型の使い分けも重要です。通常の計算であれば`Long`型で十分ですが、非常に大きな数値を扱う場合はオーバーフローのリスクを考慮しなければなりません。さらに、処理速度を追求する場合は、演算結果をあらかじめキャッシュしておく「メモ化」の手法や、API呼び出しによるメモリ操作も検討の余地があります。しかし、過度な最適化は可読性を損ねます。チーム開発においては、「速度」と「メンテナンス性」のバランスを常に意識してください。コメントを適切に入れ、なぜそのアルゴリズムを採用したのかという設計思想を残すことが、プロフェッショナルとしての品質を担保します。

まとめ

素数を求めるというシンプルなテーマ一つとっても、その裏には数学的な最適化の知恵と、VBAの言語仕様を深く理解するための要素が詰まっています。単に動くコードを書くだけなら初心者でも可能ですが、計算効率を考え、メモリ効率を考慮し、将来のメンテナンス性までを考慮したコードを書くことこそが、Excel VBAエンジニアとしての付加価値となります。

本稿で紹介した「平方根によるループ削減」と「エラトステネスの篩」の考え方は、素数判定に限らず、データの重複排除や探索アルゴリズム全般に応用できる汎用的な手法です。ぜひ、ご自身の業務環境にこの手法を取り入れ、計算速度の劇的な向上を体感してください。技術は常に進化しています。Excel VBAという成熟した言語であっても、アルゴリズムの工夫次第で、驚くほどのパフォーマンスを引き出すことができるのです。これからの開発において、ぜひ「計算の質」にこだわったコード作成を心がけてみてください。