VBAでセルの値を扱う際、空白セルやエラー値に対して適切に対応しないと、予期しない動作や実行時エラーが発生します。この記事では、空白セルの判定方法や、エラーの検出と回避方法をわかりやすく解説します。
1. 空白セルを正しく判定する方法
セルが空白かどうかを調べるには、以下のような方法があります。
If IsEmpty(Range("A1").Value) Then
MsgBox "セルA1は空です"
End Ifまた、スペースだけ入力されている場合には Trim 関数を使うとより厳密な判定ができます。
If Trim(Range("A1").Value) = "" Then
MsgBox "セルA1は空白またはスペースのみです"
End If2. 空白セルに値を設定する例
空白セルだけに「未入力」などの補足値を入れるには、以下のように記述します。
If Trim(Range("A1").Value) = "" Then
Range("A1").Value = "未入力"
End If3. エラー値を扱う際の注意点
Excelでは #DIV/0! や #VALUE! などのエラーがセルに表示されることがあります。VBAでそれらを扱うと、実行時エラーになる可能性があります。
以下のように、事前に IsError で判定しましょう。
If IsError(Range("A1").Value) Then
MsgBox "セルA1にはエラーが含まれています"
End Ifエラーを含まない場合だけ処理を実行する例：
Dim val As Variant
val = Range("A1").Value
If Not IsError(val) Then
MsgBox "値は " & val
Else
MsgBox "エラーセルのためスキップします"
End If4. 空白やエラーセルをスキップして処理を続ける
複数のセルを処理するループ内で、空白セルやエラーセルを無視してスキップすることで、処理中断を防げます。
Sub SafeLoop()
Dim c As Range
For Each c In Range("A1:A10")
If IsError(c.Value) Or Trim(c.Value) = "" Then
GoTo NextCell ' 空白またはエラーならスキップ
End If
c.Offset(0, 1).Value = c.Value * 2
NextCell:
Next c
End SubGoTo文とは？
「GoTo ラベル名」 は、処理の流れを指定したラベル位置（ラベル名：）へ飛ばす命令です。
今回のようにループ内で条件によって「このセルの処理だけ飛ばす」ような使い方に便利です。
ただし、多用すると処理が分かりにくくなるため、必要最小限に使うのが基本です。代わりに Continue Forや Exit For を使える場面では、そちらを優先することも検討しましょう。
5. エラーを回避するための基本構文（On Error）
予期しないエラーへの対策として、On Error ステートメントも覚えておくと便利です。
On Error GoTo ErrorHandler
Dim result As Double
result = Range("A1").Value / Range("B1").Value
MsgBox "計算結果：" & result
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました：" & Err.Description処理途中でエラーが発生した場合に、ErrorHandler: というラベルにジャンプして回復処理を行います。
6. 空白・エラー処理のまとめ表
| 判定対象 | 判定方法 |
|---|---|
| 空白セル | IsEmpty(...)、Trim(...) = "" |
| エラー値 | IsError(...) |
| スキップ処理 | GoTo で次の処理へ移動 |
| 例外処理 | On Error GoTo ... を使用 |
7. 空白セルと空文字の違い（補足）
| 内容 | IsEmptyの結果 | = ""の結果 |
|---|---|---|
| 完全な空白 | True | True |
| “” を代入したセル | False | True |
| スペースだけの入力 | False | False（Trim使用で検出可） |
これらのテクニックを使えば、セルの値をより安全・確実に扱うことができます。特に実務で使うマクロでは、「エラーで止まらないようにする」ための工夫がとても重要です。エラーや空白を想定した堅牢な処理を書けるようにしておきましょう。
コメント