先生と生徒の会話形式で理解しよう

生徒

「エクセルでデータ入力漏れがないかチェックしているのですが、空白のセルを一つずつ目で探すのがすごく大変なんです。VBAで一気に空白を見つける方法はありますか？」

先生

「もちろんありますよ！VBAには『ジャンプ機能』という便利な仕組みがあって、それを使えば広大なシートの中から空白のセルだけをまとめて選び出すことができるんです。」

生徒

「まとめて選べるんですね！空のセルに色を塗ったりして目立たせることもできますか？」

先生

「はい、色を塗るのも、文字を入れるのも自由自在です。基本的な書き方を一緒に学んでいきましょう！」

1. 空白セルを検出するメリットとは？

Excel（エクセル）を使っていて一番困るのは、データの「入力漏れ」です。例えば、売上表の中に金額が入っていない空白のセルが一つでもあると、全体の合計金額が合わなくなってしまいます。パソコンを触り始めたばかりの方にとって、数千行もあるデータの中から数個の空白を探すのは、砂漠の中で針を探すような作業です。

VBA（ブイビーエー）を使って空白セルを検出できるようにすると、一瞬でチェックが終わるだけでなく、人間による「見落とし」がゼロになります。仕事の正確性とスピードを同時に上げることができる、とても実用的なテクニックなのです。今回は、プログラミング未経験の方でも真似して使える便利なコードをご紹介します。

2. SpecialCellsメソッドで空白セルをジャンプ！

VBAで空白セルをまとめて見つけるときに最も使われるのが、SpecialCells（スペシャルセルズ）という命令です。これは、エクセルの機能にある「選択オプション」の「空白セル」をプログラムから実行するものです。特定の条件（今回は空白）に当てはまるセルだけを「ジャンプ」して捕まえるイメージです。

例えば、Range("A1:C10").SpecialCells(xlCellTypeBlanks)と書くことで、指定した範囲の中にある空白のセルだけを一つのまとまりとして扱うことができます。これを使えば、わざわざセルを一つずつ確認するループ処理を書かなくても、たった一行で空白を特定できるのです。非常に効率的な書き方として知られています。


Sub SelectBlankCells()
    ' A1からC10の範囲で空白セルだけを選択状態にします
    ' xlCellTypeBlanksは「空白セル」という種類を指します
    Range("A1:C10").SpecialCells(xlCellTypeBlanks).Select
End Sub

3. 検出した空白セルに色を塗って目立たせる

空白セルを見つけただけでは不十分で、どこが空いているのかを「見える化」することが大切です。最も簡単な方法は、空白セルの背景に色を塗ることです。Interior.Color（インテリア・カラー）という命令を使って、背景色を指定します。

プログラミングで色を指定するときは、vbRed（赤）やvbYellow（黄）といった分かりやすい名前が用意されています。以下のコードを実行すると、表の中の空白部分がパッと赤色に変わります。これで、どこに入力漏れがあるか一目瞭然になりますね。事務作業のセルフチェック機能として、非常に強力な武器になります。


Sub HighlightBlanks()
    ' A列の1行目から10行目までの空白セルを赤色に塗ります
    ' エラーが起きても大丈夫なように少し工夫を加えています
    On Error Resume Next
    Range("A1:A10").SpecialCells(xlCellTypeBlanks).Interior.Color = vbRed
    On Error GoTo 0
End Sub

4. On Error Resume Nextというお守りについて

先ほどのコードの中に、On Error Resume Nextという少し変わった言葉が出てきました。これは「エラーが起きても無視して次の命令に進んでね」という、プログラム界のお守りのような言葉です。なぜこれが必要なのでしょうか？

実は、SpecialCellsは「もし範囲内に空白セルが一つもなかった場合」に、「見つかりませんでした！」というエラーを出してプログラムを止めてしまうという癖があります。空白がないことは「入力が完璧」だということなので、エラーで止まってしまうのは困りますよね。このお守りを書いておくことで、空白がない場合でもスムーズに処理を終わらせることができます。初心者が躓きやすいポイントなので、セットで覚えておきましょう。

5. ループ（繰り返し）を使って空白を一つずつ調べる

一括で処理するのではなく、空白を見つけるたびに「ここは空いていますよ」とメッセージを出したい場合もあります。そのときは、For Each（フォー・イーチ）という繰り返し構文を使います。これは、指定した範囲のセルを一つずつ手に取って確認する操作です。

セルの中身が空かどうかを判定するには、IsEmpty（イズ・エンプティ）という関数を使います。もしセルが空だったら（真であれば）、特定の処理を行うという流れになります。この方法は、空白セルの場所（住所）を詳しく知りたいときや、複雑な条件を付け加えたいときに便利です。パソコンの「根気強さ」を活かした確実な方法と言えます。


Sub CheckEachCell()
    Dim r As Range
    ' 指定した範囲のセルを一つずつ順番に見ていきます
    For Each r In Range("A1:A5")
        ' もしセルの内容が空っぽだったら
        If IsEmpty(r.Value) Then
            ' セルの場所をメッセージで教えてくれます
            MsgBox r.Address & " が空白ですよ！"
        End If
    Next r
End Sub

6. 空白セルに特定の文字や数値を一括入力する

空白を見つけた後、そこに「未入力」や「0」などの決まった値を自動で入れたいこともあります。これもVBAなら一撃です。Value（バリュー）という、セルの値（中身）を指定するプロパティを使います。

例えば、欠席者の点数欄に一括で「0」を入れたり、未定の項目に「確認中」と入れたりする作業が数秒で終わります。手作業で一つずつ入力していると、途中で飽きたり入力を間違えたりしますが、VBAは文句も言わずに正確に埋めてくれます。大量のデータをクレンジング（整理整頓）する際に、非常に役立つテクニックです。


Sub FillBlankData()
    ' データが入っている表全体（CurrentRegion）を取得します
    ' その中の空白セルだけに一括で「未定」と入力します
    On Error Resume Next
    Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Value = "未定"
    On Error GoTo 0
End Sub

7. セルの値が「""（空文字）」の場合の注意点

ここで少しだけ高度な話をします。エクセルには「見た目は空白なのに、実は数式などが入っていて完全な空白ではない」というセルが存在することがあります。これを「空文字（""）」と呼んだりします。

SpecialCells(xlCellTypeBlanks)は、あくまで「何も入っていない純正な空白セル」しか見つけられません。もし「数式の計算結果が空白になっているセル」も探したい場合は、先ほど紹介したループ処理の中で、If r.Value = "" Thenという書き方をする必要があります。自分の持っているデータが「完全な空白」なのか「見かけ上の空白」なのかを知ることは、正しい自動化の第一歩になります。

8. 検索の範囲を賢く指定するCurrentRegion

空白を探す範囲を指定するとき、毎回「A1からC100まで」と書くのは大変です。データが増えたり減ったりすることもありますよね。そこで便利なのが CurrentRegion（カレント・リージョン） です。これは、指定したセルから繋がっている表全体を自動で見つけてくれる魔法の言葉です。

例えば、A1セルが表の一部であれば、Range("A1").CurrentRegionと書くだけで、その表の終わりまでを範囲として認識してくれます。この「自動で範囲を広げてくれる機能」と「空白セルをジャンプして見つける機能」を組み合わせることで、どんな大きさの表が来ても柔軟に対応できる、賢いマクロを作ることができるようになります。