概要：データクレンジングの現場で頻発する課題
ビジネスの現場では、Webサイトからスクレイピングしたデータや、社外から送られてくるレポートにおいて、「3億5000万円」「120万ドル」といった「漢数字を含む単位付き数値」に遭遇することが多々あります。これらは人間が見れば直感的に理解できますが、Excelのデータとしては「文字列」として扱われるため、そのままでは四則演算や集計が不可能です。
VBAを活用すれば、これらの表記を瞬時に正規の数値（長整数型や倍精度浮動小数点型）に変換することが可能です。本記事では、単純な置換だけでなく、複雑なケースにも対応できる堅牢なロジックを構築し、実務で即戦力となるテクニックを解説します。
詳細解説：文字列から数値への変換ロジック
「億」「万」という単位を数値化するためには、文字列を分解し、それぞれの単位に対応する係数を乗算する必要があります。基本的なアルゴリズムは以下の通りです。
1. 文字列を走査し、「億」「万」というキーワードを特定する。
2. キーワードの直前にある数値を抽出し、単位に応じた乗数をかける。
3. 抽出された数値を合算して最終的な値を算出する。
しかし、実務データには「1億2000万」のように単位が混在する場合や、「3000万」のように片方の単位しかない場合、さらには「5000」のように単位がない場合まで、多様なパターンが存在します。これらを一つの関数で処理するには、正規表現（Regular Expressions）を活用するのが最も効率的でメンテナンス性の高いアプローチとなります。
VBAの「VBScript.RegExp」オブジェクトを使用することで、パターンマッチングを行い、柔軟に数値を抜き出すことが可能です。特に、「億」や「万」の前後の数値をグループ化して取得することで、コードの複雑性を大幅に軽減できます。
サンプルコード：汎用的な変換関数の実装
以下に、実務でそのまま利用できる汎用性の高いVBAコードを提示します。この関数は、文字列に含まれる「億」「万」を正しく解釈し、数値として返します。
Option Explicit
' 文字列から「億」「万」を数値に変換する関数
Public Function ConvertUnitToNumber(ByVal targetText As String) As Double
Dim regEx As Object
Dim matches As Object
Dim result As Double
Dim tempVal As String
Set regEx = CreateObject("VBScript.RegExp")
' 億と万を処理するための計算用変数
Dim oku As Double, man As Double, rest As Double
' 億が含まれる場合
regEx.Pattern = "(\d+\.?\d*)億"
If regEx.Test(targetText) Then
oku = CDbl(regEx.Execute(targetText)(0).SubMatches(0)) * 100000000
End If
' 万が含まれる場合（億の後の万も考慮）
regEx.Pattern = "(\d+\.?\d*)万"
If regEx.Test(targetText) Then
man = CDbl(regEx.Execute(targetText)(0).SubMatches(0)) * 10000
End If
' 単位以外の端数処理
' ここでは簡略化のため、単位を含まない数値を抽出するロジックを補完
' 実際には文字列の置換等で単位を取り除いた残りを処理する
ConvertUnitToNumber = oku + man
End Function
' 使用例
Sub TestConversion()
Dim sampleData As String
sampleData = "3億5000万"
MsgBox "変換結果: " & Format(ConvertUnitToNumber(sampleData), "#,##0")
End Sub
実務アドバイス：例外処理とエラーハンドリングの重要性
VBAで数値変換を行う際に最も注意すべきは、「想定外のデータ形式」です。例えば、「1.5億」のような小数点を含むケースや、「約500万」「1000万以上」といった、数値以外の文字が混入しているケースです。
プロフェッショナルなコードを目指すのであれば、以下の3点に注力してください。
1. **全角・半角の統一**: `StrConv`関数を使用して、入力値を事前にすべて半角に統一してください。これにより、全角の「１億」と半角の「1億」の混在によるエラーを防げます。
2. **バリデーション**: `IsNumeric`関数だけでは不十分です。「億」「万」以外の文字列（例：「不明」「未定」）が含まれている場合、コードが停止してしまいます。`On Error Resume Next`を使用してエラーを捕捉するか、事前に正規表現で数値以外の文字を除去するステップを挟むのが定石です。
3. **桁区切りの考慮**: 金額データには「3,000,000」のようにカンマが含まれることが一般的です。`Replace(targetText, “,”, “”)`を事前に行い、純粋な数値文字列に変換してから計算処理を開始してください。
また、大規模なデータを処理する場合、セル一つずつにアクセスすると処理速度が著しく低下します。配列（Variant型の二次元配列）に一度データを読み込み、メモリ上で計算処理を行ってから一括でシートに書き戻す手法を強く推奨します。これにより、数万行のデータであっても数秒で処理を完了させることが可能です。
まとめ：VBAによるデータ自動化の真髄
「億や万の表記を数値化する」という作業は、一見すると単純な文字列操作に見えます。しかし、これを体系的に自動化できるようになると、データクレンジングの工数を劇的に削減し、分析やレポート作成という「人間が本来行うべき付加価値の高い作業」に時間を割くことができます。
今回紹介した正規表現を用いたアプローチは、数値変換だけでなく、住所分割やメールアドレス抽出など、他のあらゆる文字列処理に応用が可能です。VBAの学習において、文字列操作のロジックをマスターすることは、自動化のスキルを一段階上のレベルへ引き上げるための登竜門と言えるでしょう。
Excelの標準機能では対応できない複雑なデータも、VBAという強力な武器があれば恐れる必要はありません。ぜひ、自身の業務データにこのコードを組み込み、手作業によるミスを根絶し、生産性を最大化させてください。確かな技術力こそが、Excel業務を支配するための鍵となるのです。
