VBAで漢数字を数値に変換する：NUMBERSTRING関数の逆引き実装と実践テクニック
Excelにおいて、数値を漢数字に変換する関数として古くから重宝されているのが「NUMBERSTRING関数」です。これはワークシート関数でありながら、公式の関数一覧には表示されない「隠し関数」として知られています。しかし、業務システムやデータ集計の現場では、この逆、つまり「漢数字で入力されたデータを数値に変換したい」というニーズが非常に頻繁に発生します。
残念ながら、ExcelにはNUMBERSTRINGの逆関数は存在しません。本稿では、VBAを用いて漢数字を数値に変換するためのロジックを深掘りし、実務でそのまま使える堅牢な実装方法を詳細に解説します。
漢数字変換の難所と論理的アプローチ
漢数字を数値に変換する際、単に「一＝1」「二＝2」と置換するだけでは不十分です。日本語の数字には「位取り（くらいどり）」という概念が存在するからです。「三百二十五」を例に挙げると、「三」×100、「二」×10、「五」という構造を理解し、それらを合算する処理が必要です。
また、以下の点も考慮しなければなりません。
1. ゼロの扱い：「〇」や「零」が含まれる場合。
2. 単位の欠落：「一万一」のように、途中の単位が省略されるケース。
3. 大字（だいじ）：「壱、弐、参」といった旧字体への対応。
4. 桁の大きさ：「万」「億」「兆」といった大きな単位の乗算。
これらを解決するためには、文字列を一文字ずつ走査し、現在の単位（10の位、100の位など）を保持しながら、出現した数値と掛け合わせて合計値に加算していく「状態保持型アルゴリズム」を採用するのが最も効率的です。
実装のためのサンプルコード
以下に、汎用性が高く、かつ拡張性に優れたVBA関数を提示します。このコードは、一般的な漢数字から数値への変換を想定しています。
Function KanjiToNumber(ByVal KanjiStr As String) As Double
Dim i As Long
Dim CurrentNum As Double
Dim TotalSum As Double
Dim UnitVal As Double
Dim TempVal As Double
Dim Ch As String
' 初期化
TotalSum = 0
TempVal = 0
UnitVal = 1
' 漢数字と数値の対応表（辞書や配列で管理するとより高速）
For i = Len(KanjiStr) To 1 Step -1
Ch = Mid(KanjiStr, i, 1)
Select Case Ch
Case "一": TempVal = 1
Case "二": TempVal = 2
Case "三": TempVal = 3
Case "四": TempVal = 4
Case "五": TempVal = 5
Case "六": TempVal = 6
Case "七": TempVal = 7
Case "八": TempVal = 8
Case "九": TempVal = 9
Case "〇", "零": TempVal = 0
Case "十": TempVal = 10: If TempVal * UnitVal > UnitVal Then TempVal = 10
Case "百": TempVal = 100
Case "千": TempVal = 1000
Case "万": UnitVal = 10000: TempVal = 0
Case "億": UnitVal = 100000000: TempVal = 0
Case Else: TempVal = 0
End Select
' 単位（十百千）の処理
If InStr("十百千", Ch) > 0 Then
If TempVal = 10 And (i = Len(KanjiStr) Or InStr("万億", Mid(KanjiStr, i + 1, 1)) > 0) Then
' "十"単体の場合の補正
End If
UnitVal = TempVal
ElseIf InStr("万億", Ch) > 0 Then
' 万億の時は単位を更新
Else
' 数値の加算
TotalSum = TotalSum + (TempVal * UnitVal)
UnitVal = 1
End If
Next i
KanjiToNumber = TotalSum
End Function
詳細解説：ロジックのポイント
上記のコードは、文字列を「右から左へ」読み込むアプローチをとっています。右から処理を始めることで、単位（十、百、千）がどの数値にかかるのかを直感的に制御できるためです。
1. **単位の保持（UnitVal）**: 「十」「百」「千」が出現した際、それを一時的な単位変数として保持します。次に現れる数値に対して、この単位を掛け合わせることで、位取りを確定させます。
2. **万・億の処理**: 「万」や「億」が出現した際は、それまでの合計値に対して大きな倍率を適用します。この際、単位をリセットし、次の桁計算に備えるのがコツです。
3. **大字への対応**: 実務では「壱」「弐」「参」が混在することがあります。Select Caseの分岐を拡張し、これらの文字に対しても数値（1, 2, 3…）を割り当てるように修正するだけで、即座に対応可能です。
実務におけるアドバイスと注意点
VBAで文字列処理を行う際、以下の点に注意することで、よりプロフェッショナルなコードになります。
**1. エラーハンドリングの徹底**
ユーザーが誤って「一二三」ではなく「一二三四五（存在しない単位など）」を入力した場合、計算結果が不正になる可能性があります。入力チェックを行い、予期せぬ文字が含まれている場合はエラーを返すか、ログを出力する仕様を組み込みましょう。
**2. 速度の最適化**
大量のデータを処理する場合、毎回Select Caseを実行するのは非効率です。Scripting.Dictionaryオブジェクトを使用して、漢数字をキー、数値を値として事前に格納しておくことで、検索速度を大幅に向上させることができます。
**3. NUMBERSTRING関数との整合性**
NUMBERSTRING(数値, 1)で出力される漢数字は、あくまで標準的な形式です。しかし、入力されるデータが「壱萬弐千」のように旧字体や表記揺れを含んでいる場合、この関数だけでは対応しきれません。正規表現（VBScript.RegExp）を併用し、あらかじめ入力を正規化（旧字体を新字体へ置換）する前処理を挟むことを強く推奨します。
**4. 単位の省略への対応**
「一万一」のように「十」が抜けているケースは、単純な乗算ロジックではミスが発生しやすい箇所です。これに対応するには、一度文字列を「万」や「億」で分割し、それぞれのブロックごとに数値化してから合算する「ブロック分割法」が最も堅牢です。
まとめ
漢数字から数値への変換は、一見単純な置換作業に見えますが、日本語の言語的構造を理解する必要がある、非常に奥の深いプログラミング課題です。NUMBERSTRING関数を「出力」に使い、今回紹介したVBAロジックを「入力」の正規化に使うことで、Excel上での数字データの取り扱い能力は飛躍的に向上します。
プロフェッショナルなエンジニアとして意識すべきは、単に「動くコード」を書くことではなく、将来的な仕様変更や、想定外の入力データに対しても「壊れないコード」を設計することです。今回紹介したアルゴリズムをベースに、自身の業務環境に合わせてカスタマイズを重ねてみてください。VBAという古くからのツールであっても、論理的な設計さえあれば、現代の複雑なデータ処理にも十分対応可能な強力な武器となります。
