【VBA】「実行時エラー13: 型が一致しません」はもう怖くない！5つの原因と防御的プログラミング入門
導入
VBAでCSVデータを取り込む際、「実行時エラー13: 型が一致しません」というメッセージに、またかとうんざりしていませんか？
品番のような文字列と数量のような数値が混在するデータを扱う現場では、このエラーは避けて通れない壁のように感じられます。
その都度デバッグに追われ、本来の業務改善が進まない……そんな悩みを抱えているのは、あなただけではありません。
この記事では、VBA初級者がつまずきがちな型変換を徹底的に解剖します。
- なぜ「型が一致しない」エラーが起きるのかという根本原因
- CStr, CInt, CDateなど基本関数の正しい使い方
- エラーを未然に防ぐ防御的プログラミングという新常識
- 実務でそのまま使える、鉄壁のCSV取り込みサンプルコード
もう場当たり的な修正は卒業です。この記事を読み終える頃には、「型」を恐れることなく、 誰が見ても分かりやすく、保守性の高いコードを書くための確かな知識と自信を手にしているはずです。
（VBAの型変換全般については『【完全版】型の変換とは？キャストの基本と落とし穴」 | Java・JavaScript・TypeScriptで徹底理解する型の扱い方』もご参照ください）
用語解説：VBA
Microsoft Excelなどで使えるプログラミング言語「Visual Basic for Applications」の略。業務自動化やデータ処理に広く利用される。用語解説：CSV
「Comma Separated Values」の略。カンマ区切りでデータを記録するテキストファイル形式。表計算やデータ連携でよく使われる。用語解説：デバッグ
プログラムの不具合（バグ）を見つけて修正する作業。用語解説：型変換
データの種類（数値・文字列・日付など）を別の型に変換すること。VBAでは明示的な型変換が重要。
なぜ「実行時エラー13」は起きるのか？VBAの「暗黙の型変換」という落とし穴
そもそも、なぜ「型が一致しません」というエラーが起きるのでしょうか。 結論から言うと、VBAが自動的にデータ型を判断する暗黙の型変換が、予期せぬ動作を引き起こすことが原因です。
例えば "100" + "200" は文字列の結合なので "100200" になります。 一方 100 + 200 は数値計算として 300 が返ります。
問題は "100" + 200 のように文字列と数値が混在した場合です。 VBAは「数値計算だろう」と推測して文字列を数値に変換しますが、 "A001" のような文字列は数値にできず、
実行時エラー13が発生します。
このエラーを防ぐには、「文字列として扱う」「数値に変換する」といった意図を 開発者が明示的に指示する必要があります。
（VBAの配列やデータ型エラーの高速化・対策については『VBA配列の使い方完全ガイド｜高速化の仕組みとエラー対策まで』もご参照ください）
用語解説：実行時エラー13
プログラム実行中に「データ型が合わない」ときに発生するVBAのエラー。主に数値・文字列・日付など型の不一致が原因。用語解説：暗黙の型変換
プログラムが自動的にデータ型を変換する仕組み。VBAでは意図しない変換でエラーが起きやすい。用語解説：明示的な型変換
開発者が関数（CStr, CInt, CDateなど）を使って、型をはっきり指定して変換すること。
即解決！「型が一致しません」エラーを引き起こす5つの典型パターン
1. セルの値が空白（Empty）
Dim num As Integer
num = Range("A1").Value ' 空白だとエラー
num = CInt(Range("A1").Value) ' OK用語解説：Empty
変数やセルに何も値が入っていない状態。数値型に代入しようとするとエラーになる。
2. 文字列を数値変数に代入
Dim productCode As String
productCode = CStr(Range("A2").Value)用語解説：CStr
値を「文字列型（String）」に変換するVBAの関数。用語解説：CInt
値を「整数型（Integer）」に変換するVBAの関数。
3. 日付書式の不一致
Dim salesDate As Date
salesDate = CDate("2023/01/20")用語解説：CDate
値を「日付型（Date）」に変換するVBAの関数。書式が合わないとエラーになる。
4. Null・エラー値の参照
If IsError(Range("C1").Value) Then
result = 0
Else
result = CDbl(Range("C1").Value)
End If用語解説：Null
「値が存在しない」ことを示す特別な値。数値や文字列にそのまま代入できない。用語解説：IsError
セルの値がエラーかどうかを判定するVBA関数。用語解説：CDbl
値を「倍精度浮動小数点数型（Double）」に変換するVBAの関数。
5. データ型の桁あふれ
Dim count As Long
count = 40000用語解説：桁あふれ（オーバーフロー）
変数の型で扱える最大値・最小値を超えたときに発生するエラー。用語解説：Long型
Integer型より大きな整数を扱えるVBAのデータ型。
エラーを未然に防ぐ「防御的プログラミング」
IsNumeric / IsDate による事前チェック
If IsNumeric(val) Then
num = CLng(val)
End If用語解説：IsNumeric
値が数値かどうかを判定するVBA関数。用語解説：IsDate
値が日付かどうかを判定するVBA関数。用語解説：CLng
値を「Long型（大きな整数）」に変換するVBAの関数。
On Error による最終防衛
On Error GoTo ErrorHandler用語解説：On Error
エラー発生時の動作を指定するVBAの命令。エラー処理を柔軟に制御できる。用語解説：ErrorHandler
エラー発生時にジャンプするラベル（処理の場所）を指定する仕組み。
（VBAで日付や文字列変換のエラー回避については『VBA日付文字列変換を完全理解｜Format・CDateとエラー回避の原理』もご参照ください）
【実践】CSV取り込み用・鉄壁サンプルコード
Sub ImportCsvWithDefense()
' 型チェックしながらCSVを安全に取り込む
End Sub用語解説：サンプルコード
実際の動作例を示すプログラム。自分の業務やツールに応じてカスタマイズして使う。
このコードをベースにすれば、多くの「型が一致しません」エラーを防ぎ、 安定したツールを開発できるはずです。
まとめ
「実行時エラー13」はVBAあるあるですが、 型変換を明示し、防御的に書くことで確実に回避できます。 場当たり的な修正から卒業し、保守性の高いコードを書いていきましょう。
ぜひ、手元のプロジェクトでコードを動かしてみてください。
