こんにちは。Excel VBA講師の佐藤です。
実務でExcelを扱っていると、必ずと言っていいほど直面するのが「日付データの不整合」です。特に、外部システムからCSVファイルをダウンロードしたり、Webサイトからデータをコピー＆ペーストしたりした際に、日付が「文字列」として格納されているケースは非常に多いものです。
「見た目は2023/10/01なのに、数式で計算しようとするとエラーになる」「VBAでフィルタリングをかけると正しく動作しない」。こうしたトラブルの根本原因は、そのデータが「日付型」ではなく「文字列型」として認識されていることにあります。
今回は、この厄介な「文字列の日付」を、VBAを使って確実に「日付型」へ変換するプロフェッショナルなテクニックを、体系的に解説していきます。
なぜ「文字列の日付」は厄介なのか
Excelにおいて、日付は内部的には「シリアル値」という数値で管理されています。例えば、1900年1月1日を「1」とし、1日経過するごとに1ずつ増える仕組みです。
一方で、文字列として保存された日付は、単なる「文字の羅列」に過ぎません。Excelはセル内のデータを柔軟に解釈しようとしますが、表示形式が「文字列」に固定されていたり、システム固有の区切り文字（「.」や「-」など）が混在していたりすると、Excelの自動変換機能が働かず、計算や並び替えが正しく行えなくなります。
VBAで日付を扱う場合、型を厳密に管理しないと、コードの実行時エラーや、意図しない日付への変換（月と日が入れ替わる等）を招くリスクがあります。
基本の変換メソッド：CDate関数とDateValue関数
VBAには、文字列を日付型に変換するための標準関数がいくつか用意されています。まずは基本を押さえましょう。
1. CDate関数
最も汎用性の高い関数です。システムの設定（コントロールパネルの地域設定）に基づき、文字列を日付型に変換します。
Dim strDate As String
Dim dt As Date
strDate = “2023/10/01”
dt = CDate(strDate)
この関数の利点は、「2023-10-01」や「2023.10.01」といった表記にもある程度柔軟に対応できる点です。しかし、PCの地域設定に依存するため、グローバルな環境で動かすシステムには注意が必要です。
2. DateValue関数
日付文字列のみを対象に変換を行う関数です。時刻情報が含まれている場合、時刻部分は切り捨てられ、日付のみが取得されます。
dt = DateValue(“2023/10/01 15:30”)
‘ 結果は 2023/10/01 00:00:00 となる
実務で遭遇する「手強いデータ」への対処法
実務では、単純な「yyyy/mm/dd」形式ばかりではありません。以下のようなケースをどう処理するか、ここがプロの腕の見せ所です。
ケース1：8桁の数字文字列（例：20231001）
CSV出力などでよくある形式です。これは直接CDateに入れてもエラーになることが多いです。文字列操作で分解して構築するのが確実です。
Dim rawData As String
rawData = “20231001”
‘ Mid関数を使って分割し、DateSerialで構築する
Dim dt As Date
dt = DateSerial(Left(rawData, 4), Mid(rawData, 5, 2), Right(rawData, 2))
DateSerial関数を使う手法は、非常に堅牢です。月や日が範囲外であってもExcelが自動的に繰り上げ・繰り下げ計算を行ってくれるため、エラーを回避しやすいという特徴があります。
ケース2：ドット区切りやスラッシュの混在
データソースがバラバラな場合、Replace関数で統一してから変換するのがスマートです。
Dim rawDate As String
rawDate = “2023.10.01”
‘ ドットをスラッシュに置換してから変換
dt = CDate(Replace(rawDate, “.”, “/”))
セル範囲をまとめて変換するプロのテクニック
1セルずつ処理していては時間がかかりすぎます。大量のデータを一括で変換する際は、VBAの配列処理を組み合わせるのが最も高速です。
Sub ConvertRangeToDate()
Dim rng As Range
Dim dataArr As Variant
Dim i As Long
‘ 対象範囲を取得
Set rng = Range(“A1:A1000”)
dataArr = rng.Value
‘ 配列内で変換処理
For i = LBound(dataArr, 1) To UBound(dataArr, 1)
If IsDate(dataArr(i, 1)) Then
dataArr(i, 1) = CDate(dataArr(i, 1))
End If
Next i
‘ セルに書き戻す
rng.Value = dataArr
‘ 必要に応じて表示形式を設定
rng.NumberFormatLocal = “yyyy/mm/dd”
End Sub
このコードのポイントは「IsDate関数」で事前にチェックしている点です。変換できない文字列が含まれている場合にエラーで止まるのを防ぐことができます。
日付変換における注意点：ロケールとISO形式
最後に、プロフェッショナルとして忘れてはならないのが「ロケール（地域設定）」の問題です。
例えば、「01/02/2023」という文字列があった場合、これは「1月2日」なのか「2月1日」なのか、PCの設定によって解釈が変わります。アメリカ形式（MM/DD）か、日本・イギリス形式（DD/MM）か。
もしデータがISO 8601形式（YYYY-MM-DD）で提供されているのであれば、迷わずDateSerial関数を使って分解して変換してください。これが最も安全で、誰が実行しても同じ結果になる「移植性の高いコード」になります。
まとめ
文字列の日付を日付型に変換する作業は、単なるデータ整形ではなく、データの信頼性を担保するための重要なプロセスです。
1. **基本はDateSerial関数で分解して構築する**（特に8桁数字などの場合）
2. **CDate/DateValueは、データの形式が保証されている場合に使う**
3. **大量データは配列で一括処理する**
4. **IsDate関数でエラーチェックを怠らない**
これらの原則を守ることで、あなたのVBAプログラムはより堅牢で、メンテナンス性の高いものへと進化します。ぜひ次回の開発で試してみてください。
何か不明な点や、さらに高度な変換処理について知りたいことがあれば、いつでも質問してくださいね。それでは、素敵なVBAライフを！
