VBAテクニック集 VBA一覧 変数・知識 文法・構文

【VBA】Nothingとは？オブジェクト変数の初期化と解放をわかりやすく解説

VBAでオブジェクト変数を扱っていると、「Nothing」というキーワードを必ず目にします。しかし、実務では「なぜNothingを使うのか」「Setと何が違うのか」「オブジェクト変数を解放しないと何が起こるのか」といった疑問を持つ方が非常に多いです。

特に、VBAでループ処理を行う場面や大量のファイルを扱う処理では、オブジェクトの解放が正しく行われていないと、動作が重くなったり、意図しない値が残ってしまうことがあります。本記事では、Nothingの仕組みから実務での使い方まで体系的に解説し、「なぜ必要なのか」を理解したうえで正しく使えることを目指します。

目次

✅ 【VBA】Nothingとは？オブジェクト変数の基本を理解する

「Nothing」は、オブジェクト変数に対して“何も参照していない状態”を明示するためのキーワードです。

一見シンプルに思えますが、以下のような場面で非常に重要な意味を持ちます。

  • オブジェクト変数を初期化する
  • 不要になったオブジェクト変数を解放する
  • 「参照が残っているかどうか」を判定する
  • 意図しない参照によるバグを防止する

Excel VBAの内部では、オブジェクト変数は「メモリ上のオブジェクトへの参照（ポインタ）」を保持しています。その参照を切り離すために使われるのがNothingです。

✅ 【VBA】Nothingを使うべき理由

オブジェクト変数を適切にNothingで解放しないと、以下の問題が発生する可能性があります。

  • メモリの無駄な使用
  • 同じオブジェクトが残存し、意図せぬ動作をする
  • 複数ループ時に過去の参照が残る
  • Excelの動作が遅くなる
  • ブックやシートがロックされる

特にファイル操作（Workbooks.Open）やOutlook・Access連携などでは、Nothingの使用は「必須の安全対策」です。

✅ 【VBA】Nothingの使い方を理解する

・オブジェクト変数を“初期化”する構文：Nothingをセットする

Set 変数名 = Nothing

これは「この変数が参照していたオブジェクトとの関係を断ち、空の状態に戻す」という意味です。

・基本的な使用例（Workbookを扱う）

Dim wb As Workbook
Set wb = Workbooks.Open("C:\test.xlsx")

' --- 処理 ---

Set wb = Nothing

初期化しないと、Excel終了後もメモリに参照が残ることがあります。

参考：【VBA】Setとは？オブジェクト変数の基本と参照の仕組み｜初心者が必ず押さえるべき基礎文法

✅ 【VBA】Nothingで判定する方法

・オブジェクトがセットされているか確認する例

If wb Is Nothing Then
    MsgBox "オブジェクトが設定されていません"
End If

数値型とは異なり、Is演算子で比較するのがポイントです。

✅ 【VBA】SetとNothingの違いを具体的に理解する

・Setは「参照を代入する」

Set ws = Worksheets("Sheet1")

・Nothingは「参照を解放する」

Set ws = Nothing

Setは“つなぐ”、Nothingは“切る”というイメージを持つと理解しやすくなります。

参考：【VBA】Findが見つからないときの原因と解決方法｜Nothing判定・コードの書き方を解説



✅ 【VBA】Nothingを使わないと何が問題になるのか？

・問題例：ループ内に残ったオブジェクト参照

Dim ws As Worksheet
For i = 1 To 5
    Set ws = Worksheets(i)
    ' --- 処理 ---
Next i

このコードは一見正しいようですが、ループ終了後も最後のWorksheetへの参照が残っています。

処理が長くなるほど、意図しない参照の残留＝メモリ圧迫やバグにつながります。

・Nothingを追加した正しい例

Dim ws As Worksheet

For i = 1 To 5
    Set ws = Worksheets(i)
    ' --- 処理 ---
    Set ws = Nothing
Next i

解放することで、ループの安全性と安定性が向上します。

✅ 【VBA】実務で使われるNothingの活用例

・例：複数ブックの処理後に解放する例

Sub BookProcess()
    Dim wb As Workbook
    Dim file As Variant

    For Each file In Array("A.xlsx", "B.xlsx", "C.xlsx")
        Set wb = Workbooks.Open("C:\" & file)

        ' --- 処理 ---

        wb.Close SaveChanges:=False
        Set wb = Nothing
    Next
End Sub

Nothingを忘れると、ファイルがロックされたまま残るケースがあります。

✅ 【VBA】オブジェクト変数を解放すべきタイミング

・1：ループごとに使い終わったオブジェクト

・2：Sub終了前に確実に解放したい場合

・3：別のオブジェクトを再セットする前

・4：外部アプリケーション（Outlook・Access・PowerPoint）を扱う時は必須

特に外部アプリでは、解放漏れがあるとアプリがバックグラウンドに残り続け、処理に支障が出ます。

✅ 【VBA】Nothingはメモリ解放と違う？仕組みを理解する

実は、Nothingをセットしても即座にメモリが解放されるわけではありません。

VBAの内部には「ガーベジコレクタ」が存在し、不要な参照がなくなったタイミングでメモリを開放します。

つまりNothingは、

「この変数はもう使わない」という宣言

に過ぎません。

しかしこの宣言があることで、GCが適切に動作し、余計なメモリを保持し続けるリスクを減らしてくれます。

✅ 【VBA】NothingとEmptyの違いを理解する

よく混同されるのがEmptyです。

種類対象意味
Nothingオブジェクト変数参照を外す（ポインタを無効化）
EmptyVariant型未初期化（数値なら0、文字列なら""）

オブジェクト変数にEmptyを使うことはできず、Nothingが必須です。

✅ 【VBA】Nothingを使ったエラー回避テクニック

・例：参照が存在する場合のみ処理を行う

If Not ws Is Nothing Then
    ws.Range("A1").Value = "完了"
End If

これを挟むことで「オブジェクト変数が設定されていません（エラー91）」を防止できます。

✅ 【VBA】Nothingを使う実務的メリット

  • メモリ効率の改善
  • 不要な参照を残さない安全なコード
  • 解放漏れによる不具合を防止
  • 大量処理でも安定した実行が可能
  • 外部アプリ連携でのトラブルを回避

特にRPAやUiPathと組み合わせる場合、VBAで生成したExcelインスタンスが残っているとプロセス競合が起こるため、Nothingの使用は非常に重要です。

✅ 【VBA】Nothingを使用する場面まとめ

・新しいオブジェクトをセットする前
・ループ終了時
・外部アプリ連携時
・Sub終了時
・例外処理（エラー制御）でオブジェクトを解放したい時

これらを徹底することで、動作が安定した保守性の高いコードになります。

✅ まとめ：Nothingを理解して安全で効率的なVBAコードを書こう

  • Nothingは「オブジェクト変数の参照を断つ」ための重要キーワード
  • Setは“参照をつなぐ”、Nothingは“参照を切る”
  • 解放しないとメモリ残留やファイルロックの原因に
  • ループや外部アプリでは特に重要
  • Nothingを使うことで安全で安定したVBAコードを実現できる

VBAでの開発規模が大きくなるほど、Nothingの有無がコード品質に大きな差を生みます。
適切に解放するクセをつけることで、動作安定性も向上し、保守しやすいコードが書けるようになります。

さらに、Excel作業を自動化したい場面では、UiPathやPower Automateと組み合わせることで、VBAでは難しい処理も直感的に自動化できます。VBAとRPAツールを併用すれば、業務フロー全体の効率化が実現し、作業時間を大幅に削減できます。

    -VBAテクニック集, VBA一覧, 変数・知識, 文法・構文