概要：なぜ「悪魔のCSV」は我々を苦しめるのか
SNSのVBAコミュニティで定期的に話題となる「悪魔のCSV」。それは、システムから出力されたそのままの状態で、人間が読み解くことを拒絶するような不親切なデータ構造を指します。改行コードの混在、不規則な列の区切り、ヘッダー行の欠落、あるいは数値と文字列の混在。これらは単なる「汚いデータ」ではなく、Excelの標準機能である「テキストファイルウィザード」や「Power Query」だけでは、柔軟なロジック処理が追いつかないケースが多々あります。
今回、私が挑戦するのは「列の数が一定ではない」「特定の区切り文字がデータ内にも含まれている」という、まさに現場で遭遇すると絶望的な気分になるCSVの処理です。これをVBAでいかに効率的かつ堅牢に「浄化」するか。ベテランの視点から、その技術の核心を解説します。
詳細解説：悪魔を退治するロジックの設計思想
悪魔のCSVを処理する際、最大のタブーは「CSVをそのままExcelで開くこと」です。ダブルクリックで開いてしまうと、数値の頭の0が消えたり、日付が勝手に変換されたりと、データが破壊されるリスクがあります。
我々プロフェッショナルは、ファイルを「バイナリ」として読み込むか、あるいは「FileSystemObject（FSO）」を用いて、1行ずつテキストとしてストリーム制御を行うのが鉄則です。今回のケースでは、特に「行内の区切り文字の扱い」が鬼門となります。
1. ファイルを開く：FSOのTextStreamオブジェクトを使い、読み取り専用で開きます。
2. バッファリング：一度にメモリにロードせず、ReadLineメソッドで1行ずつ処理します。これにより、数ギガバイトに及ぶ巨大CSVでもメモリ不足に陥りません。
3. パース処理：Split関数で安易に区切るのではなく、データ内のダブルクォーテーションを考慮した「自作のCSVパーサー」を構築します。
4. クレンジング：パースした各要素に対し、トリム処理、型変換、不要な文字の削除をパイプライン的に実行します。
5. 出力：最終的にArrayへ格納し、Rangeへ一括出力します。セルの書き込み処理をループ内で行うのはVBAにおいて最も遅い処理の一つです。必ず配列を介してください。
サンプルコード：汎用CSVパーサーの実装
以下に、不規則なデータ構造にも対応可能な、堅牢なCSV読み込みコードを示します。
Option Explicit
' 悪魔のCSVを浄化するメインプロシージャ
Sub ProcessDevilCSV()
Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
Dim ts As Object
Dim filePath As String
Dim lineData As String
Dim parsedData() As String
Dim outputArray() As Variant
Dim rowCount As Long, colCount As Long
filePath = Application.GetOpenFilename("CSVファイル (*.csv), *.csv")
If filePath = "False" Then Exit Sub
Set ts = fso.OpenTextFile(filePath, 1) ' 1 = ForReading
' 配列のサイズを確保（動的配列の再定義）
ReDim outputArray(1 To 10000, 1 To 10) ' 仮のサイズ
Do Until ts.AtEndOfStream
lineData = ts.ReadLine
If Len(Trim(lineData)) > 0 Then
rowCount = rowCount + 1
parsedData = CustomSplit(lineData, ",")
' 配列へ格納（行ごとの処理）
Dim i As Long
For i = LBound(parsedData) To UBound(parsedData)
outputArray(rowCount, i + 1) = CleanData(parsedData(i))
Next i
End If
Loop
ts.Close
' シートへ一括出力
With ThisWorkbook.Sheets(1)
.Cells.Clear
.Range("A1").Resize(rowCount, 10).Value = outputArray
End With
MsgBox "浄化完了！", vbInformation
End Sub
' データ内のダブルクォーテーションを考慮したカスタムスプリット
Private Function CustomSplit(ByVal txt As String, ByVal delimiter As String) As String()
' 正規表現を使って、区切り文字がクォーテーション内にあるか判定しつつパースする
' 簡易版：実際の実務では正規表現オブジェクトを使用することを推奨
Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
regEx.Pattern = "(?:^|,)(""[^""]*""|[^,]*)"
regEx.Global = True
Dim matches As Object, match As Object
Dim i As Long
Dim result() As String
Set matches = regEx.Execute(txt)
ReDim result(matches.Count - 1)
For i = 0 To matches.Count - 1
result(i) = Replace(matches(i).SubMatches(0), """", "")
Next i
CustomSplit = result
End Function
' 個別の値をクレンジングする関数
Private Function CleanData(ByVal val As String) As String
' 不要なスペース削除、特殊文字の除去など
val = Trim(val)
' 改行コードの除去など
val = Replace(val, vbCr, "")
val = Replace(val, vbLf, "")
CleanData = val
End Function
実務アドバイス：VBAを「最強の武器」にするために
実務で「悪魔のCSV」と戦う際、コードの質以上に重要なのが「防御的プログラミング」です。例えば、CSVの列数が突如変わるような事態に備え、`On Error Resume Next`を乱用するのではなく、期待する配列のインデックスが存在するかを必ず`UBound`でチェックしてください。
また、CSVファイルが「Shift-JIS」ではなく「UTF-8（BOMなし）」であるケースも最近は増えています。その場合、上述のFSOでは文字化けが発生します。そのような時は、`ADODB.Stream`オブジェクトを使用して文字コードを指定して読み込む必要があります。
プロとしてのアドバイスですが、どれほど優れたコードを書いたとしても、元のデータが壊れている場合は「何がどう壊れているか」をログ出力する機能を必ず実装してください。浄化できなかった行だけを別シートに書き出す「エラーログ機能」は、後のトラブルシューティングにおいて、あなた自身の時間を守る最強の盾となります。
まとめ：技術力とは「不確実性への対応力」である
ツイッターで流れてくるような一見無意味に思える「悪魔のCSV」というお題。しかし、これに取り組むことは、単なるパズルの解法を学ぶことではありません。現場で発生する「想定外のデータ」に対する、あなたの対応力を鍛える貴重なトレーニングなのです。
VBAはレガシーな言語と言われることもありますが、Windows環境においてファイルシステムを直接制御し、データを加工する能力において、これほど柔軟なツールは他にありません。今回紹介した配列処理とパーサーのロジックを身につければ、どんなに酷いCSVが来ようとも、恐れることは何もありません。
さあ、あなたのPCに眠る「悪魔のCSV」を、自らの手で美しく浄化してみてください。その先にこそ、真のVBAエンジニアとしての成長が待っています。コードの書き直しを恐れず、常に「より速く、より堅牢に」を目指してください。それが、ベテラン講師から皆さんへのエールです。
