シートに直接入力する方式は、手軽な反面ミスが起きやすいものです。入力する行や列を間違えたり、必須項目を空のまま登録してしまったりします。件数が増えるほど、このリスクも積み上がっていきます。

そんなときに役立つのが、VBAのユーザーフォーム（UserForm）です。専用の入力画面を用意すれば、決まった項目を埋めてボタンを押すだけで、台帳の末尾に1行きれいに追加できます。この記事では、入力フォームをゼロから作る手順を3ステップで解説します。フォームのデザイン・ボタンの処理・シートへの書き込みの順で進めます。コピペでそのまま動く完成コードも用意しました。

VBAユーザーフォームの作り方でできること

まずは、ユーザーフォームを使うと入力作業がどう変わるのかを見ておきましょう。

ユーザーフォームとは、VBAで作る独自の入力画面のことです。テキストボックスやボタンを自由に配置して、アプリのような専用フォームを作れます。

シートに直接入力する方式と比べると、次のようなメリットがあります。

• 決まった項目だけを順番に入力できるので、列のズレが起きない
• 「未入力ならボタンを止める」など、入力チェックを仕込める
• ボタン1つで台帳の末尾に行を追加できる
• 入力する人が、Excelの構造を知らなくても使える

手入力とユーザーフォームの違いを、簡単な表で比べてみます。

一度フォームを作ってしまえば、あとは項目を埋めてボタンを押すだけです。この「専用の入力窓口」を作れるのが、ユーザーフォームの強みですね。

なお、ユーザーフォームはVBAの中では中級者向けの機能です。マクロをまだ触ったことがない方は、先にExcel VBAマクロ入門で基本を押さえておくとスムーズです。

VBEの起動とユーザーフォームを作る準備

フォームを作る前に、VBE（Visual Basic Editor）という編集画面を開きます。VBEは、VBAのコードやフォームを作るための専用エディタです。

VBEの開き方

VBEを開く方法は2つあります。一番早いのは、Excelの画面で Alt + F11 を押す方法です。これだけでVBEが立ち上がります。

もう1つは、リボンの「開発」タブから開く方法です。「開発」タブの「Visual Basic」ボタンをクリックします。

「開発」タブが見当たらない場合は、表示設定が必要です。次の手順で追加してください。

1. 「ファイル」→「オプション」を開く
2. 「リボンのユーザー設定」を選ぶ
3. 右側の一覧で「開発」にチェックを入れる
4. 「OK」を押す

これで「開発」タブがリボンに表示されます。

ユーザーフォームの挿入

VBEが開いたら、フォームを追加します。メニューの「挿入」→「ユーザーフォーム」を選んでください。

すると「UserForm1」という灰色の四角い画面が現れます。これがフォームの本体です。同時に「ツールボックス」という、部品を並べた小さなウィンドウも表示されます。

ツールボックスが表示されない場合は、メニューの「表示」→「ツールボックス」で出せます。このツールボックスから、テキストボックスやボタンをフォームに貼り付けていきます。

.xlsmで保存することに注意

フォームやマクロを作ったブックは、必ず .xlsm（マクロ有効ブック）形式で保存します。普段の .xlsx 形式では、マクロが保存できません。

.xlsx のまま保存しようとすると、警告が出ます。このまま保存すると、作ったフォームが消えてしまいます。

保存時は「名前を付けて保存」で、ファイルの種類を「Excel マクロ有効ブック（.xlsm）」に変えてください。詳しい違いは.xlsxと.xlsmの違いで解説しています。

ステップ1：ユーザーフォームをデザインする

ここからは、実際に入力フォームを組み立てていきます。今回は、顧客名簿への登録を例にします。「名前」「電話番号」「区分」の3項目を入力するフォームを作ってみましょう。

部品をフォームに配置する

ツールボックスから、次の部品をフォームにドラッグして貼り付けます。

ラベルは「名前」「電話番号」「区分」という見出し用です。その右にテキストボックスやコンボボックスを並べると、見やすいフォームになります。

部品は、ツールボックスでアイコンをクリックしてから、フォーム上でドラッグすると配置できます。

部品に名前（オブジェクト名）を付ける

配置した部品には、コードから呼び出すための名前を付けます。これを「オブジェクト名」と呼びます。

部品をクリックして選び、画面左下の「プロパティ」ウィンドウで「(オブジェクト名)」の欄を書き換えます。今回は次のように設定します。

オブジェクト名は、あとからコードで使います。TextBox1 のような初期名のままでも動きます。ただ、txtName のように役割がわかる名前にしておくと、コードがぐっと読みやすくなります。

ボタンに表示する文字（登録・閉じる）は、プロパティの「Caption」で設定できます。

ステップ2：ボタンのイベント処理を書く

部品を配置したら、次はボタンを押したときの動きを書きます。VBAでは、これを「イベント処理」と呼びます。

コンボボックスに選択肢をセットする

まず、区分を選ぶコンボボックスに、選択肢を入れておきます。フォームが開いたタイミングで選択肢をセットしたいので、フォームの「Initialize」イベントを使います。

フォーム上の何もない部分をダブルクリックすると、コードを書く画面に切り替わります。そこに次のコードを書きます。

Private Sub UserForm_Initialize()

    '--- 区分コンボボックスに選択肢を追加 ---
    cmbType.AddItem "法人"
    cmbType.AddItem "個人"
    cmbType.AddItem "その他"

End Sub

AddItem は、コンボボックスに選択肢を1つ追加する命令です。3行書けば、3つの選択肢が並びます。これで、フォームを開いたときに区分が選べるようになります。

閉じるボタンの処理を書く

次は、簡単な「閉じる」ボタンから書いてみましょう。フォーム上の「閉じる」ボタンをダブルクリックすると、コード画面に切り替わります。そこに1行だけ書きます。

Private Sub btnClose_Click()

    Unload Me '自分自身（フォーム）を閉じる

End Sub

Unload Me は、フォームを閉じる命令です。Me は「このフォーム自身」を指します。これで閉じるボタンが完成です。

登録ボタンの処理を書く（メイン）

いよいよメインの「登録」ボタンです。ここでシートへの書き込みを行いますが、その前に入力チェックを入れておきます。「閉じる」と同じように、登録ボタンをダブルクリックしてコードを書きます。

Private Sub btnAdd_Click()

    '--- 名前が未入力ならメッセージを出して処理を止める ---
    If txtName.Value = "" Then
        MsgBox "名前を入力してください"
        txtName.SetFocus '名前の入力欄にカーソルを戻す
        Exit Sub
    End If

    '--- 書き込み先シートの最終行の次の行を取得 ---
    Dim ws As Worksheet '書き込み先のシート
    Set ws = Worksheets("名簿")

    Dim newRow As Long '新しく書き込む行番号
    newRow = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1

    '--- フォームの入力値を各列に書き込む ---
    ws.Cells(newRow, 1).Value = txtName.Value '名前をA列へ
    ws.Cells(newRow, 2).Value = txtTel.Value  '電話番号をB列へ
    ws.Cells(newRow, 3).Value = cmbType.Value '区分をC列へ

    MsgBox "登録しました"

    '--- 次の入力に備えて入力欄をクリアする ---
    txtName.Value = ""
    txtTel.Value = ""
    cmbType.Value = ""
    txtName.SetFocus '名前の入力欄にカーソルを戻す

End Sub

このコードが、フォームの心臓部です。「名前」シートを用意し、A列に名前、B列に電話番号、C列に区分が並ぶ前提になっています。登録ボタンを押すと、名簿の末尾に1行追加されます。

自分の環境に合わせて変えるのは、次の2か所です。

• Worksheets("名簿") … 書き込み先のシート名
• ws.Cells(newRow, 1) などの列番号 … どの列に書き込むか

コードの仕組みを理解する

このコードのポイントは、3つのパートに分かれている点です。順番に見ていきましょう。

1つ目は、入力チェックです。If txtName.Value = "" Then で、名前が空かどうかを判定します。空ならメッセージを出して Exit Sub で処理を止めます。これで、名前なしの行が登録されるのを防げます。条件分岐の基本はVBA If文の使い方で解説しています。

2つ目は、書き込む行の決定です。ここで使う Cells(Rows.Count, 1).End(xlUp).Row は、定番のテクニックです。「A列の一番下から上に詰めて、最初にデータがある行」を返します。これに + 1 を足すことで、末尾の次の行（空いている行）が分かります。最終行の取得方法はVBA最終行の取得でも詳しく解説しています。

3つ目は、シートへの書き込みです。ws.Cells(newRow, 1).Value のように、行番号と列番号でセルを指定します。txtName.Value のフォームの入力値を、各セルに代入していきます。

Cells(newRow, 1) の 1 はA列、2 はB列という対応です。行と列を数字で指定する書き方は、VBA RangeとCellsの違いで詳しく解説しています。

ステップ3：フォームを呼び出すマクロを作る

ここまでで、フォーム本体は完成しました。ただ、このままではフォームを画面に出せません。最後に、フォームを開くためのマクロを用意します。

フォームを開くコードは、標準モジュールに書きます。VBEのメニューで「挿入」→「標準モジュール」を選び、次のコードを書いてください。

Sub フォームを開く()

    UserForm1.Show 'ユーザーフォームを画面に表示する

End Sub

UserForm1.Show が、フォームを画面に表示する命令です。UserForm1 の部分は、フォームのオブジェクト名に合わせます。フォーム名を変えていなければ、このままで動きます。

このマクロを実行すると、入力フォームが画面に表示されます。項目を埋めて登録ボタンを押せば、名簿シートに行が追加されます。

ボタンからフォームを開けるようにする

毎回マクロの一覧から実行するのは面倒です。シート上にボタンを置いて、クリックでフォームが開くようにしておくと便利です。

1. 「開発」タブの「挿入」→「ボタン（フォームコントロール）」を選ぶ
2. シート上でドラッグしてボタンを描く
3. マクロの登録画面で「フォームを開く」を選んで「OK」を押す
4. ボタンの文字を「名簿に登録」などに変える

これで、ボタンを押すだけで入力フォームが立ち上がります。名簿を使う人が、コードを意識せずに登録できるようになります。

VBAユーザーフォームでよくあるエラーと対処法

ユーザーフォーム作りでつまずきやすいエラーを、3つにしぼって紹介します。

「変数が定義されていません」と出る

オブジェクト名のタイプミスが原因のことがほとんどです。コードで txtName と書いているのに、部品のオブジェクト名が TextBox1 のままだと、このエラーになります。

プロパティウィンドウで、部品の「(オブジェクト名)」を確認してください。コードに書いた名前と、部品の名前が一致している必要があります。大文字小文字や全角半角の違いも見落としやすいポイントです。

なお、変数の宣言を必須にする Option Explicit を使うと、タイプミスをこの段階で見つけやすくなります。詳しくはVBA変数の使い方をご覧ください。

実行時エラー9：インデックスが有効範囲にありません

これは、指定したシート名が存在しないときに出ます。Worksheets("名簿") と書いているのに、実際のシート名が「顧客名簿」だと、このエラーになります。

シート名のタイプミス、全角と半角の違い、余分なスペースがよくある原因です。実際のシート名を、コードにそのままコピーすると確実です。

フォームが表示されない・反応しない

UserForm1.Show を書いたマクロを実行しているか、まず確認してください。フォームのコードを書いただけでは、フォームは表示されません。フォームを開くマクロを、別途実行する必要があります。

また、ボタンを押しても反応しない場合は、イベント処理の名前を確認します。Private Sub btnAdd_Click() の btnAdd の部分に注目してください。ここがボタンのオブジェクト名と一致しているかをチェックします。

その他のエラーについては、VBAマクロのエラー解決ガイドで頻出エラー別にまとめています。

入力途中で誤って閉じても安心な設計に

実務で使うなら、登録ミスを防ぐ仕組みを足しておくと安心です。たとえば、電話番号が数字以外を含むときに警告を出すなど、項目ごとのチェックを追加できます。

入力チェックは If 文を増やすだけです。エラーが出ても処理が止まらないようにするには、エラーハンドリングを組み合わせます。On Error GoTo の使い方はVBAのエラーハンドリング完全ガイドでくわしく解説しています。

まとめ

ExcelのVBAユーザーフォームで入力フォームを作る方法を、3ステップで解説しました。最後にポイントを整理します。

• ステップ1：ツールボックスから部品を配置し、わかりやすいオブジェクト名を付ける
• ステップ2：登録ボタンのイベント処理に「入力チェック→最終行取得→書き込み」を書く
• ステップ3：UserForm1.Show でフォームを開くマクロを作り、シートのボタンに登録する
• 末尾への行追加は Cells(Rows.Count, 1).End(xlUp).Row + 1 で書き込む行を決める
• フォームやマクロを作ったブックは必ず .xlsm 形式で保存する

まずは「名前」「電話番号」「区分」のシンプルなフォームから、自分の台帳の項目に合わせて作ってみてください。動くフォームが1つできれば、項目を増やすのも簡単です。

VBAの基本構文をテーマ別に学び直したい方は、こちらの記事もあわせてどうぞ。

• 条件分岐の基本はVBA If文の使い方
• セル操作の基本はExcel VBAでRangeを使う方法
• 最終行取得はExcel VBAで最終行を取得する方法
• 別シートへの転記はVBAで複数シート間のデータを転記・集約する方法

VBA全体を体系的に学びたい方もいるでしょう。入門ハブ記事のExcel VBAで仕事を自動化する方法も参考にしてください。

そのたびに On Error Resume Next を貼り付けて凌いでいませんか。それはたぶん、地雷原の上に絨毯を敷いているようなものです。

この記事では、VBAのエラーハンドリングを On Error GoTo On Error Resume Next Err オブジェクト の3要素で整理します。実務でよく遭遇する5つのシーンごとに、コピペで使える雛形コードと使い分け基準をまとめて紹介します。読み終わるころには、自信を持ってエラー処理を設計できるようになります。

VBAエラーハンドリングとは？

VBAエラーハンドリングとは、マクロ実行中に発生する想定外のエラーを検出する仕組みです。プログラムを止めずに、ログ出力・代替処理・終了などへ適切に分岐させます。

エラー処理を入れていないマクロは、想定外の入力やファイル不在に遭遇すると、その瞬間に「実行時エラー」のダイアログを出して止まります。配布した利用者からすると、何が起きたのか分からないまま処理が中断されるため、信頼を一気に失います。

エラーハンドリングが必要な理由

実務でVBAを使う場面は、想定外が起きやすい環境です。対象のファイルが毎日変わったり、他人が触ったブックを処理したりするからです。エラーハンドリングを仕込んでおくと、次のようなメリットがあります。

• ユーザーに分かりやすいメッセージを出して落ち着かせられる
• 途中で止まらず、残りの処理を最後まで通せる
• ログにエラー番号と発生場所を記録して、後から原因調査ができる
• 万が一のときも、Excelをフリーズさせずに正常終了できる

VBAで発生する3種類のエラー

VBAで発生するエラーは、大きく3つに分類できます。

エラーハンドリングが対応するのは、原則として 実行時エラー だけです。コンパイルエラーは事前にコードを直せば消えます。論理エラーは「動くけど結果が間違っている」ためエラーとして検出されません。

エラーハンドリングで使う3つの主要構文

VBAのエラーハンドリングは、次の3つの構文要素を組み合わせて構築します。

• On Error GoTo ラベル: エラー発生時に指定ラベルへジャンプする
• On Error Resume Next: エラー発生行をスキップして次の行から続行する
• Err オブジェクト: 直近のエラー番号・説明・発生元を保持する

これに加えて、ハンドラを解除する On Error GoTo 0 と、ハンドラ内から実行を再開する Resume / Resume Next / Resume ラベル が補助的に使われます。

NOTE

VBAには .NET のような Try-Catch 構文はありません。代わりに On Error GoTo ラベルとExit Subを組み合わせて疑似的に実装します。

On Error GoToでエラー処理ラベルへジャンプする

On Error GoTo は、エラー発生時にあらかじめ用意したラベル位置へジャンプさせる構文です。最も基本的なエラーハンドリング構文として位置付けられます。

エラーが起きたときに「専用の処理コーナー」に移動して、そこでメッセージ表示やログ書き込みを行うイメージです。Try-Catch の Catch ブロックに相当します。

基本構文と動作の流れ

最小構成のサンプルです。

Sub Sample_OnErrorGoTo()
    '--- エラーハンドラを設定 ---
    On Error GoTo ErrHandler

    Dim n As Integer
    n = CInt("abc")  '型不一致エラー（実行時エラー 13）

    MsgBox "正常終了"
    Exit Sub  '正常時はここで抜ける

ErrHandler:
    '--- エラー発生時の処理 ---
    MsgBox "エラー番号: " & Err.Number & vbCrLf & _
           "内容: " & Err.Description
End Sub

CInt("abc") は文字列を数値に変換できないため、実行時エラー13を発生させます。On Error GoTo ErrHandler を先に書いておくと、エラーが起きた瞬間に ErrHandler: ラベル位置へ処理が飛びます。そして、メッセージボックスが表示されます。

Sub構造の正しい書き方（Exit Subとセット）

On Error GoTo を使うときに必ず守ってほしいのが、正常終了の直前に Exit Sub を入れる ことです。

Sub Sample_Structure()
    On Error GoTo ErrHandler

    '--- ① 通常処理 ---
    Range("A1").Value = "OK"

    '--- ② 正常終了：必ず Exit Sub で抜ける ---
    Exit Sub

ErrHandler:
    '--- ③ エラー処理 ---
    MsgBox "エラー: " & Err.Description
End Sub

Exit Sub を書き忘れると、正常時もそのまま ErrHandler: ラベルに突入してしまいます。エラーが起きていないのに「エラー: 」というメッセージが出て、利用者を混乱させる原因になります。

WARNING

On Error GoTo ラベル を使うときは、必ず正常処理の終わりに Exit Sub を入れてください。これを忘れると、正常時にもエラーメッセージが出る原因になります。

On Error GoTo 0でハンドリングを解除する

On Error GoTo 0 は、現在のプロシージャ内で有効になっているエラーハンドリングを解除する構文です。

Sub Sample_GoTo0()
    On Error Resume Next
    '--- ここはエラー無視 ---
    Worksheets("存在しないシート").Activate

    On Error GoTo 0
    '--- ここから先はエラー無視を解除 ---
    Range("A1").Value = 100
End Sub

On Error GoTo 0 の 0 は数字のゼロで、ラベル名ではありません。そのため、コード内に 0: というラベルを書く必要はありません。「ハンドリングをいったん解除する」専用のキーワードとして覚えておきましょう。

On Error Resume Nextでエラーを無視する

On Error Resume Next は、エラー発生行をスキップして次の行から実行を継続する構文です。

「とりあえず動かしたい」「エラーは起きるけど無視したい」という場面で多用されます。一方で、使い方を誤ると バグを見えなくする最も危険な書き方 にもなります。

基本構文と使いどころ

ファイル削除やシート存在チェックなど、「失敗しても次に進めたい」処理で使うのが本来の用途です。

Sub Sample_ResumeNext()
    Dim ws As Worksheet

    '--- シート取得を試行 ---
    On Error Resume Next
    Set ws = Worksheets("売上データ")
    On Error GoTo 0  'すぐに解除する

    '--- 取得できたかをErrではなくIs Nothingで判定 ---
    If ws Is Nothing Then
        MsgBox "シート『売上データ』が存在しません"
        Exit Sub
    End If

    ws.Range("A1").Value = "OK"
End Sub

ポイントは、シート取得を試みた直後に On Error GoTo 0 で解除していることです。そのうえで、If ws Is Nothing Then を使って結果を判定しています。

Resume Nextの危険性と注意点

On Error Resume Next を Sub の先頭に1行貼り付けて、それ以降すべてエラー無視にする書き方があります。これは絶対にやめてください。

Sub BadExample()
    On Error Resume Next  'NG: 全文無視は危険

    '--- 以下、すべてのエラーが見えなくなる ---
    Range("A1").Value = "テスト"
    Worksheets("存在しないシート").Activate
    Workbooks.Open "C:nonexistent.xlsx"
    '何もエラーが出ないが、何も処理されていない
End Sub

このコードは一見「エラーが出ないから動いている」ように見えます。しかし実際は、シートを開けず、ファイルも読めず、ただ何もしていない状態です。

実務での被害例として、「データ転記マクロが何ヶ月も空のシートを出し続けていた」というケースがあります。原因はリファクタ時に紛れ込んだ On Error Resume Next でした。

局所的に使うブロック化テクニック

On Error Resume Next を使うときは、次の3点セットで囲むのが鉄則です。

1. On Error Resume Next でブロック開始
2. 試したい処理を 数行 だけ書く
3. On Error GoTo 0 で必ず解除する

Sub Sample_BlockResumeNext()
    Dim wb As Workbook

    '--- ブロック開始 ---
    On Error Resume Next
    Set wb = Workbooks.Open("C:reportssales.xlsx")
    On Error GoTo 0
    '--- ブロック終了 ---

    '--- ブロックの結果を判定 ---
    If wb Is Nothing Then
        MsgBox "ファイルを開けませんでした"
        Exit Sub
    End If

    MsgBox "開けました: " & wb.Name
End Sub

「Resume Next を使ってよいのは、すぐに On Error GoTo 0 するときだけ」と覚えておけば、まず事故は起こりません。

ErrオブジェクトでエラーNo・説明を取得する

Err オブジェクトは、直近に発生したエラーの情報を保持するVBA組み込みオブジェクトです。エラーハンドラ内で Err.Number を見れば、どんなエラーが起きたのかをコードで判定できます。

Err.Number / Err.Description / Err.Sourceの使い方

主要なプロパティは3つです。

エラーハンドラ内で番号別に分岐させるサンプルです。

Sub Sample_ErrObject()
    On Error GoTo ErrHandler

    Dim n As Integer
    n = CInt("abc")  'エラー13発生

    Exit Sub

ErrHandler:
    '--- エラー番号で処理を分岐 ---
    Select Case Err.Number
        Case 13
            MsgBox "数値変換に失敗しました: " & Err.Description
        Case 9
            MsgBox "シートが見つかりません: " & Err.Description
        Case Else
            MsgBox "想定外のエラー [" & Err.Number & "]: " & _
                   Err.Description
    End Select
End Sub

Select Case Err.Number で番号別に分岐させると、エラーメッセージを「具体的にどう困っているのか」が伝わる文言にカスタマイズできます。利用者は次に取るべきアクションを判断しやすくなります。

Err.Clearでエラー情報をリセットする

Err.Clear メソッドを使うと、Err オブジェクトに保持されているエラー情報をリセットできます。

Sub Sample_ErrClear()
    Dim ws As Worksheet

    On Error Resume Next
    Set ws = Worksheets("シート1")
    If Err.Number <> 0 Then
        MsgBox "シート1が見つかりません"
        Err.Clear  'エラー情報をクリア
    End If

    Set ws = Worksheets("シート2")
    If Err.Number <> 0 Then
        MsgBox "シート2が見つかりません"
        Err.Clear
    End If
    On Error GoTo 0
End Sub

Err.Clear を入れておかないと、前のエラー情報が残ったまま次の処理に進みます。そのため、If Err.Number <> 0 Then の判定が誤動作する可能性があります。

NOTE

Resume Resume Next On Error GoTo などの実行時には、VBAが自動的に Err.Clear を呼び出します。明示的な Err.Clear が必要なのは、On Error Resume Next で複数の処理を試行する場合です。

ログ出力に活用する

Err オブジェクトの情報は、テキストファイルへのログ出力にも活用できます。

Sub Sample_ErrLog()
    On Error GoTo ErrHandler
    '--- 通常処理 ---
    Workbooks.Open "C:reportssales.xlsx"
    Exit Sub

ErrHandler:
    '--- ログファイルに追記 ---
    Dim logPath As String
    logPath = ThisWorkbook.Path & "error.log"

    Dim ff As Integer
    ff = FreeFile
    Open logPath For Append As #ff
    Print #ff, Format(Now, "yyyy-mm-dd hh:nn:ss") & _
               vbTab & Err.Number & vbTab & Err.Description
    Close #ff
End Sub

エラー発生日時・番号・説明をタブ区切りで追記しておくと、後から「いつ・どんなエラーが起きたか」を CSV ライクに分析できます。

実務シーン別エラーハンドリング雛形5選

ここからは、業務でVBAを書くときに遭遇しやすい5つのシーンごとに、雛形コードと注意点をまとめます。

シーン1: 開きたいファイルが存在しない

Workbooks.Open でファイルを開く処理は、ファイル不在時に実行時エラー1004を起こします。事前に Dir 関数で存在チェックする方法と、On Error で囲む方法の両方があります。

Sub Scene1_FileNotFound()
    Const filePath As String = "C:reportssales.xlsx"

    '--- ① 事前チェック：Dir関数で存在確認 ---
    If Dir(filePath) = "" Then
        MsgBox "ファイルが見つかりません: " & filePath
        Exit Sub
    End If

    '--- ② エラーハンドラ付きで開く ---
    On Error GoTo ErrHandler
    Dim wb As Workbook
    Set wb = Workbooks.Open(filePath)

    MsgBox "開きました: " & wb.Name
    wb.Close SaveChanges:=False
    Exit Sub

ErrHandler:
    MsgBox "ファイルを開けませんでした: " & Err.Description
End Sub

ポイントは、Dir で事前チェック + On Error GoTo の二重防御 です。Dir だけでは「他のユーザーがファイルを開いている」「権限が無い」場合をカバーできません。そのため、On Error も併用するのがおすすめです。

シーン2: 指定したシートが見つからない

Worksheets("名前") でシートを取得する処理は、シートが無いと実行時エラー9（添字が有効範囲にありません）を起こします。

Sub Scene2_SheetNotFound()
    Dim ws As Worksheet

    '--- Resume Next + Is Nothing判定 ---
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets("売上データ")
    On Error GoTo 0

    If ws Is Nothing Then
        MsgBox "シート『売上データ』が存在しません"
        Exit Sub
    End If

    '--- 通常処理 ---
    ws.Range("A1").Value = "更新済み"
End Sub

On Error Resume Next で囲む範囲を Set ws = ... の1行だけに限定し、すぐに On Error GoTo 0 で解除しています。これがブロック化の基本パターンです。

シーン3: 数値変換に失敗する（型ミスマッチ）

CInt CLng CDbl などの型変換関数は、変換できない値が来ると実行時エラー13を発生させます。IsNumeric で事前判定する方法が最も読みやすくなります。

Sub Scene3_TypeMismatch()
    Dim raw As Variant
    Dim n As Long

    raw = Range("A1").Value

    '--- ① IsNumericで事前判定 ---
    If Not IsNumeric(raw) Then
        MsgBox "A1セルの値が数値ではありません: " & raw
        Exit Sub
    End If

    n = CLng(raw)
    MsgBox "変換結果: " & n
End Sub

IsNumeric は引数が数値とみなせる文字列なら True を返すため、CLng 直前のガードとして最適です。事前チェックで弾けるなら、On Error を使うよりコードが読みやすくなります。

シーン4: ループ内で1行だけスキップしたい

ループ処理中、1件だけエラーが出ても残りは最後まで処理を続けたい、という要件はよくあります。On Error Resume Next をループ内で短く囲むのがコツです。

Sub Scene4_SkipInLoop()
    Dim i As Long
    Dim lastRow As Long
    Dim n As Long

    lastRow = Cells(Rows.Count, "A").End(xlUp).Row

    For i = 2 To lastRow
        '--- 1行ごとにエラーをリセットして試行 ---
        On Error Resume Next
        n = CLng(Cells(i, "A").Value)

        If Err.Number = 0 Then
            Cells(i, "B").Value = n * 2
        Else
            Cells(i, "B").Value = "ERR"
            Err.Clear
        End If
        On Error GoTo 0
    Next i
End Sub

ポイントは、ループ反復ごとに決まった手順を踏むことです。On Error Resume Next で開始 → 試行 → Err.Number で判定 → Err.Clear でリセット → On Error GoTo 0 で解除、という流れです。エラー情報を毎回クリアしないと、次のループで誤判定が起きます。

シーン5: 外部アプリ連携（Outlook/IE）が失敗する

OutlookやWordなど、他のOfficeアプリを操作するマクロは、相手側の状態によってエラーが起きます。アプリが起動していなかったり、ライブラリが参照設定されていなかったりすると発生します。代表的なエラー番号は438（メソッド未対応）と429（オブジェクトが見つかりません）です。

Sub Scene5_ExternalApp()
    Dim olApp As Object

    On Error GoTo ErrHandler

    '--- ① 既存のOutlookを取得を試行 ---
    Set olApp = GetObject(, "Outlook.Application")

    '--- ② 通常処理 ---
    MsgBox "Outlook 取得成功: " & olApp.Name
    Exit Sub

ErrHandler:
    '--- 取得失敗時の処理 ---
    Select Case Err.Number
        Case 429
            MsgBox "Outlookが起動していません。先に起動してください。"
        Case Else
            MsgBox "予期しないエラー [" & Err.Number & "]: " & _
                   Err.Description
    End Select
End Sub

外部アプリ連携は、相手側の状態によってエラー番号が変わります。Select Case Err.Number で番号別にメッセージを出し分けると、ユーザーが次に取るべきアクションを案内できます。

On Error構文の使い分けフロー

「結局どれを使えばいいの？」という疑問に答えるため、判定軸2つで使い分けを整理します。

判定軸1: エラーで処理を止めるか継続するか

判定軸2: エラー後にどこから再開するか

エラーハンドラ内で Resume 系のステートメントを使うと、再開地点を選べます。

やってはいけないアンチパターン3選

最後に、現場でよく見かけるNG例を3つ紹介します。

1. Sub の先頭に On Error Resume Next を1行だけ書く: すべてのエラーが見えなくなり、最も危険
2. Err.Clear の呼び忘れ: ループ内で前のエラー情報が残り、次の判定が誤動作する
3. On Error GoTo 0 の漏れ: 局所的に使ったつもりが、Sub末尾までエラー無視が続いてしまう

WARNING

On Error Resume Next は3点セットを必ず守ってください。「最小限の範囲」「直後に Err.Number 判定」「すぐに On Error GoTo 0 で解除」です。

よくある質問（FAQ）

Try-Catchはあるか？

VBAには .NET のような Try-Catch 構文はありません。代わりに3点セットで疑似的に実装します。On Error GoTo ラベル + Exit Sub + ラベル位置のエラー処理ブロック、という構成です。書き方さえ覚えてしまえば、Try-Catch と同等のことが実現できます。

Resume Nextは絶対に使ってはいけない？

そんなことはありません。On Error Resume Next は「ファイル削除を試みる（無くてもOK）」「シート存在チェック」など、失敗しても次に進めたい処理 では正当な選択肢です。重要なのは、囲む範囲を最小限にして、すぐに On Error GoTo 0 で解除することです。

ハンドリング有無で処理速度は変わる？

On Error 構文そのものは、エラーが発生しない限りパフォーマンスに大きな影響を与えません。ただし、ループ内で毎回 On Error Resume Next と On Error GoTo 0 を呼ぶ構成は、わずかにオーバーヘッドが増えます。10万行を超える大量データを扱うときは、事前チェック方式（IsNumeric など）に切り替えると体感速度が変わります。

まとめ

VBAのエラーハンドリングは、On Error GoTo On Error Resume Next Err オブジェクト の3要素で構築します。

• On Error GoTo ラベル: エラー時に専用ブロックへジャンプ。Exit Sub とセットで使う
• On Error Resume Next: 最小範囲で囲み、Err.Number 判定後に On Error GoTo 0 で解除する
• Err オブジェクト: Err.Number で番号別分岐、Err.Clear でリセット、ログ出力にも使える

実務でよく遭遇する5つのシーンには、本記事の雛形コードがそのまま使えます。「ファイル不在」「シート不在」「型ミスマッチ」「ループスキップ」「外部アプリ連携」の各シーンで、コピペしてカスタマイズすれば堅牢なマクロが書けるようになります。

On Error Resume Next を1行貼り付けて凌ぐのは今日でやめてみてください。判定軸2つに沿って構文を使い分けるエラーハンドリング設計に切り替えると、次にエラーが起きたときの落ち着き具合がまったく違うはずです。

エラー番号別の対処法（13・1004・9・91・438など）は、姉妹記事のVBAマクロのエラー解決ガイド｜実行時エラー13・1004・9など頻出エラー別の直し方で詳しく解説しています。あわせてご覧ください。

VBAの基本構文（変数宣言・条件分岐・LastRow取得）はそれぞれ、Excel VBAの変数の使い方、Excel VBAの条件分岐（If文）の使い方、Excel VBAでLastRowを取得する方法で詳しくまとめています。VBAをこれから本格的に始めたい方は、入門ハブ記事のExcel VBAでマクロ自動化を始めるための完全ガイドもぜひ参考にしてください。

この作業はVBAの ExportAsFixedFormat メソッドで丸ごと自動化できます。ボタン1つで保存先フォルダの作成、日付入りファイル名の生成、印刷範囲の制御まで自動でこなせます。

この記事では、ExportAsFixedFormat の基本構文から実用サンプルまでを順に解説します。具体的には、保存先フォルダの自動作成、ファイル名への日付付与、複数シート一括PDF化、印刷範囲の指定です。請求書や月次報告書の自動保存テンプレートも掲載しているので、明日からそのまま現場で使えます。

VBAでPDF出力するExportAsFixedFormatとは？

ExportAsFixedFormat は、ExcelのワークシートやブックをPDFまたはXPS形式で書き出すVBAメソッドです。Excel 2007以降のすべてのバージョンで標準搭載されており、追加のアドインやライブラリは不要です。

「ファイル」→「エクスポート」→「PDFの作成」と同じ動作を、コードから自動実行できると考えてください。手動操作とまったく同じレイアウト・印刷品質でPDFを生成できます。

ExportAsFixedFormatでできること

このメソッド1つで、PDF保存に関するほとんどの操作を自動化できます。

• 単一シートをPDF化して任意フォルダへ保存
• ブック全体（複数シート）を1つのPDFにまとめて保存
• 印刷範囲（PrintArea）で指定した部分だけをPDF化
• ファイル名にシート名・日付・取引先名などを自動で組み込む
• 保存先フォルダを動的に作成（年月別・部署別など）
• パスワード設定、ページ範囲指定、画質指定

手動でPDF保存する場合と違って、保存先・ファイル名・対象範囲がコードに固定化されます。そのため、毎回同じ品質でアウトプットでき、担当者が変わってもファイル名の表記ゆれが発生しません。

手動PDF保存との違い

手動とVBAでは、所要時間と再現性が決定的に違います。

10ファイル以上のPDF出力を月次で行う作業なら、初回1時間の自動化で年間60時間以上が浮きます。

ExportAsFixedFormatの基本構文

ExportAsFixedFormat メソッドは、ワークシートやブックなど、PDF化したいオブジェクトに対して呼び出します。

構文の基本形

最もシンプルな書き方は次のとおりです。

Worksheets("Sheet1").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:PDFsample.pdf"

Type:=xlTypePDF でPDF形式を指定し、Filename で保存先のフルパスを渡します。たったこれだけで、Sheet1がPDFとして指定パスに保存されます。

主要な引数一覧

ExportAsFixedFormat メソッドにはオプション引数が複数あります。実務でよく使うのは次の6つです。

IgnorePrintAreas は重要です。既定値の False だと印刷範囲（PrintArea）の設定が反映されます。True を指定するとシート全体がPDF化されます。

VBE（Visual Basic Editor）の起動とコードの準備

VBAコードを実行するには、まずVBEを開いて標準モジュールにコードを貼り付けます。

1. Excelを開いた状態で Alt + F11 キーを押す（VBEが起動）
2. リボン経由の場合は「開発」タブ→「Visual Basic」をクリック
3. 「開発」タブが表示されていない場合は、「ファイル」→「オプション」→「リボンのユーザー設定」で「開発」にチェック
4. VBE画面で「挿入」→「標準モジュール」をクリック
5. 開いたコードウィンドウに本記事のサンプルを貼り付けて F5 で実行

NOTE

ファイルは「Excel マクロ有効ブック（.xlsm）」または「Excel バイナリブック（.xlsb）」で保存してください。通常の .xlsx ではマクロが保存されません。

VBAで単一シートをPDF出力する基本コード

まずは1枚のシートをPDF化する最小構成のコードから始めます。

Sub Sample_ExportSinglePDF()
    '--- 保存先パスを指定 ---
    Dim sPath As String
    sPath = "C:PDFreport.pdf"

    '--- アクティブシートをPDF出力 ---
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sPath, _
        Quality:=xlQualityStandard, _
        OpenAfterPublish:=False

    MsgBox "PDF出力完了: " & sPath
End Sub

このコードを実行すると、現在表示中のシートが C:PDFreport.pdf として保存されます。OpenAfterPublish:=False にしておけば、PDFが自動で開くことがなく、バッチ処理向きの動作になります。

シート名で出力対象を指定する

特定のシートだけをPDF化したい場合は、ActiveSheet の代わりに Worksheets("シート名") で対象を明示します。

Sub Sample_ExportNamedSheet()
    '--- シート名で出力対象を指定 ---
    Dim sBefore As String
    Dim sAfter As String
    sBefore = "請求書ひな形"
    sAfter = "C:PDF請求書.pdf"

    Worksheets(sBefore).ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sAfter

    MsgBox "出力: " & sBefore & " → " & sAfter
End Sub

Worksheets("請求書ひな形") のようにシートを明示すると、どのシートがアクティブでも常に同じシートをPDF化できます。複数シートを処理するブックでは、必ずこの形式で対象を指定してください。

ファイル名に日付を自動付与する

毎日・毎月の繰り返し処理では、ファイル名に日付を入れて履歴を残すのが定石です。同名ファイルの上書きを防げます。

Format関数で日付を文字列に変換する

Format 関数は、日付や数値を任意の書式の文字列に変換するVBA組み込み関数です。

Sub Sample_DatedFilename()
    '--- 日付付きファイル名を生成 ---
    Dim sToday As String
    Dim sPath As String
    sToday = Format(Date, "yyyymmdd")
    sPath = "C:PDF日報_" & sToday & ".pdf"

    '--- アクティブシートを日付付きファイル名で出力 ---
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sPath

    MsgBox "保存完了: " & sPath
End Sub

Format(Date, "yyyymmdd") は、今日の日付を 20260509 のような8桁文字列に変換します。これをファイル名に組み込むと、日報_20260509.pdf というファイルが生成されます。

日付フォーマットの主な書式

Format 関数の書式指定は、用途によって使い分けます。

同じ日に複数回PDFを出力する可能性があるなら、hhmmss（時刻）まで含めるとファイルがぶつかりません。Format(Now, "yyyymmdd_hhmmss") のように Now 関数を使います。

TIP

ファイル名にシート名を含めたい場合は、ActiveSheet.Name & "_" & sToday & ".pdf" のように連結します。シートを追加するたびに自動で命名されるため、保守性が高くなります。

保存先フォルダを自動作成する

「保存先フォルダが存在しないとエラーになる」のはVBA初心者がつまずきやすいポイントです。フォルダを動的に作成する処理を入れておくと、毎月新しいフォルダが必要になっても安全に運用できます。

MkDir関数でフォルダを作成する

VBAの MkDir 関数は、指定パスにフォルダを作成します。ただし、すでに存在するフォルダに MkDir を実行するとエラーになります。Dir 関数で存在チェックしてから作成するのが定石です。

Sub Sample_CreateFolderAndExport()
    '--- 保存先フォルダのパスを生成 ---
    Dim sFolder As String
    Dim sFile As String
    Dim sToday As String
    sToday = Format(Date, "yyyymm")
    sFolder = "C:PDF" & sToday
    sFile = sFolder & "日報_" & Format(Date, "yyyymmdd") & ".pdf"

    '--- フォルダが存在しなければ作成 ---
    If Dir(sFolder, vbDirectory) = "" Then
        MkDir sFolder
    End If

    '--- PDFを出力 ---
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sFile

    MsgBox "保存完了: " & sFile
End Sub

このコードでは、C:PDF202605 という年月別フォルダを自動作成し、その中に日付付きPDFを保存します。月が変わるたびに自動で新しいフォルダが作られるため、年間ファイル管理がスッキリします。

階層フォルダを一気に作成するMkDirRecursive

MkDir は1階層しか作れません。C:PDF20265 のような多階層をまとめて作りたい場合は、自作関数を1つ用意しておくと便利です。

Sub MkDirRecursive(ByVal sPath As String)
    '--- 階層フォルダを再帰的に作成 ---
    Dim sParent As String

    If Dir(sPath, vbDirectory) <> "" Then Exit Sub

    sParent = Left(sPath, InStrRev(sPath, "") - 1)
    If Len(sParent) > 0 Then
        MkDirRecursive sParent
    End If
    MkDir sPath
End Sub

Sub Sample_DeepFolder()
    '--- 階層フォルダ + PDF出力 ---
    Dim sFolder As String
    Dim sFile As String
    sFolder = "C:PDF" & Format(Date, "yyyy") & "" & Format(Date, "mm")
    sFile = sFolder & "日報.pdf"

    MkDirRecursive sFolder

    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sFile
End Sub

MkDirRecursive を1度書いておくと、年/月/日の3階層構造でも安心してフォルダを生成できます。InStrRev で末尾の 位置を特定し、親フォルダから再帰的に作成する仕組みです。

複数シートを一括PDF出力する

請求書を取引先ごとに、月次報告を部署ごとに分けて保存する場合は、ループで複数シートを順番にPDF化します。

For Eachで全シートを個別PDF化する

ブック内のすべてのシートを、シート名でPDFファイルに分けて保存するコードです。

Sub Sample_ExportAllSheetsSeparately()
    '--- 全シートを個別PDFで出力 ---
    Dim ws As Worksheet
    Dim sFolder As String
    Dim sFile As String
    Dim sToday As String
    sToday = Format(Date, "yyyymmdd")
    sFolder = "C:PDF" & sToday

    '--- フォルダ作成 ---
    If Dir(sFolder, vbDirectory) = "" Then
        MkDir sFolder
    End If

    '--- 全シートをループ ---
    For Each ws In ThisWorkbook.Worksheets
        sFile = sFolder & "" & ws.Name & ".pdf"
        ws.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sFile
    Next ws

    MsgBox "全シートのPDF出力完了"
End Sub

For Each ws In ThisWorkbook.Worksheets で、ブック内のすべてのワークシートを順に処理します。10シートあれば、10ファイルのPDFが一気に作られます。

For ループの基本構文はExcel VBAでFor文を使う方法を参照してください。コレクション処理に最適化された For Each はExcel VBAでFor Each Nextを使う方法で解説しています。

特定シートだけを1つのPDFにまとめる

複数シートを「1つのPDFファイル」としてまとめて出力するパターンもよく使います。役員報告用の資料一式などです。

Sub Sample_ExportSelectedSheetsAsOnePDF()
    '--- 指定シートを配列で選択して1つのPDFに ---
    Dim sFile As String
    sFile = "C:PDF月次報告_" & Format(Date, "yyyymm") & ".pdf"

    '--- 複数シートを選択 ---
    ThisWorkbook.Sheets(Array("売上", "コスト", "利益")).Select

    '--- 選択中のシートをまとめてPDF化 ---
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sFile

    '--- 選択を解除（先頭シートを単独選択） ---
    ThisWorkbook.Sheets(1).Select

    MsgBox "結合PDF出力完了: " & sFile
End Sub

Sheets(Array("売上", "コスト", "利益")).Select で複数シートを同時選択した状態にしておき、ActiveSheet.ExportAsFixedFormat を呼ぶと、選択中のシートがすべて1つのPDFにまとめられます。

NOTE

ブック全体をまとめたい場合は ThisWorkbook.ExportAsFixedFormat を使います。ActiveSheet ではなくブック自体に対してメソッドを呼ぶと、すべてのシートが1ファイルにまとまります。

シート名でフィルタしてPDF化する

「月次」で始まるシートだけPDF化したい、といった条件付き出力も可能です。

Sub Sample_ExportFilteredSheets()
    '--- 「月次」で始まるシートだけ個別PDFに ---
    Dim ws As Worksheet
    Dim sFolder As String
    sFolder = "C:PDF月次レポート_" & Format(Date, "yyyymm")

    If Dir(sFolder, vbDirectory) = "" Then
        MkDir sFolder
    End If

    For Each ws In ThisWorkbook.Worksheets
        '--- シート名先頭が「月次」のものだけ処理 ---
        If Left(ws.Name, 2) = "月次" Then
            ws.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=sFolder & "" & ws.Name & ".pdf"
        End If
    Next ws
End Sub

If Left(ws.Name, 2) = "月次" Then の条件で、シート名の先頭2文字が「月次」のシートだけをPDF化します。命名規則を活用すると、ブックを開きっぱなしのまま対象だけ抽出して出力できます。

印刷範囲を指定してPDF化する

シート全体ではなく、特定のセル範囲だけをPDFにしたい場面もあります。請求書テンプレートの「明細部分のみ」や、ダッシュボードの「グラフ部分のみ」など、用途は多岐にわたります。

PrintAreaで印刷範囲を設定する

ワークシートの PageSetup.PrintArea プロパティに範囲文字列を代入すると、その範囲だけが印刷対象になります。

Sub Sample_ExportWithPrintArea()
    '--- 印刷範囲を設定してPDF化 ---
    Dim ws As Worksheet
    Set ws = Worksheets("請求書")

    '--- 印刷範囲を A1:F30 に固定 ---
    ws.PageSetup.PrintArea = "A1:F30"

    '--- 印刷範囲だけをPDF出力 ---
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:PDF請求書.pdf", _
        IgnorePrintAreas:=False
End Sub

IgnorePrintAreas:=False（既定値）にしておくと、PrintArea の設定が反映されます。A1:F30 の範囲外にあるメモやコメント欄はPDFに含まれなくなります。

動的に印刷範囲を決める（最終行まで）

データが日々増えるシートでは、最終行まで自動で印刷範囲にしたいケースがあります。Cells(Rows.Count, 1).End(xlUp).Row で最終行を取得します。

Sub Sample_DynamicPrintArea()
    '--- 動的に印刷範囲を決めてPDF化 ---
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim sArea As String

    Set ws = Worksheets("売上一覧")
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    sArea = "A1:F" & lastRow

    '--- 印刷範囲を動的に設定 ---
    ws.PageSetup.PrintArea = sArea

    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:PDF売上一覧_" & Format(Date, "yyyymmdd") & ".pdf"

    MsgBox "印刷範囲 " & sArea & " をPDF化しました"
End Sub

lastRow の取得方法はExcel VBAでLastRowを取得する方法で詳しく解説しています。データが10行のときも1000行のときも、自動でフィットした範囲のPDFが生成できます。

印刷範囲を無視してシート全体をPDF化する

逆に「シート全体を必ずPDF化したい」場合は、IgnorePrintAreas:=True を指定します。

Sub Sample_IgnorePrintArea()
    '--- 印刷範囲設定を無視してシート全体をPDF化 ---
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:PDF全体.pdf", _
        IgnorePrintAreas:=True
End Sub

既存ブックに古い PrintArea が残っていると、意図せず一部しかPDFにならないトラブルが起きます。事前に True で全体出力するか、PrintArea = "" でリセットするとトラブルを防げます。

実用サンプル: 請求書を取引先別にPDF自動保存

ここまで学んだ要素を組み合わせて、実務で使える請求書PDF自動保存マクロを作ります。

想定シナリオ

「取引先一覧」シートにA列：取引先名、B列：請求金額が入力されています。マクロを実行すると、「請求書ひな形」シートに各取引先の情報を流し込み、取引先名のPDFを C:請求書YYYYMM フォルダに自動保存します。

完成コード

Sub ExportInvoicesPerClient()
    '--- 請求書を取引先別にPDF自動保存 ---
    Dim wsList As Worksheet
    Dim wsTpl As Worksheet
    Dim sFolder As String
    Dim sFile As String
    Dim sClient As String
    Dim sAmount As String
    Dim lastRow As Long
    Dim i As Long

    Set wsList = Worksheets("取引先一覧")
    Set wsTpl = Worksheets("請求書ひな形")

    '--- 保存先フォルダを年月単位で作成 ---
    sFolder = "C:請求書" & Format(Date, "yyyymm")
    If Dir(sFolder, vbDirectory) = "" Then
        MkDir sFolder
    End If

    '--- 取引先一覧の最終行を取得 ---
    lastRow = wsList.Cells(Rows.Count, 1).End(xlUp).Row

    '--- 取引先ごとにループ ---
    For i = 2 To lastRow
        sClient = wsList.Cells(i, 1).Value
        sAmount = wsList.Cells(i, 2).Value

        '--- ひな形に情報を転記 ---
        wsTpl.Range("B2").Value = sClient
        wsTpl.Range("B5").Value = sAmount
        wsTpl.Range("B6").Value = Format(Date, "yyyy年m月d日")

        '--- 取引先名でPDF保存 ---
        sFile = sFolder & "" & sClient & "_請求書_" & _
                Format(Date, "yyyymm") & ".pdf"

        wsTpl.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sFile, _
            IgnorePrintAreas:=False
    Next i

    MsgBox lastRow - 1 & "社分の請求書PDFを保存しました" & vbCrLf & sFolder
End Sub

このマクロを月初に1回実行するだけで、取引先10社分の請求書が C:請求書202605 フォルダ内に整理されて保存されます。手作業で30分かかっていた作業が、ボタン1つの数秒で終わります。

TIP

請求書テンプレートに通し番号を入れる場合は、wsTpl.Range("B1").Value = "INV-" & Format(Date, "yyyymm") & "-" & Format(i - 1, "000") のように連番も自動生成できます。

よくあるエラーと対処法

ExportAsFixedFormat を使うときに遭遇しやすいエラーを5つ紹介します。

実行時エラー’1004′: ドキュメントが保存されませんでした

最頻出のエラーです。原因は主に3つあります。

特に取引先名をファイル名に使う場合、株式会社○○/△△ のように / が含まれていると保存に失敗します。事前に Replace 関数でクリーニングしておくのが安全です。

sClient = Replace(sClient, "/", "_")
sClient = Replace(sClient, "", "_")

PDFが空白・1ページ目しか出ない

シート内のデータ範囲は広いのに、PDFが1ページしか生成されない場合は PrintArea が古い状態で残っていることが多いです。

'--- 印刷範囲をリセットしてから出力 ---
ws.PageSetup.PrintArea = ""
ws.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:PDF全体.pdf", _
    IgnorePrintAreas:=True

PrintArea = "" で範囲をクリアし、IgnorePrintAreas:=True をセットで指定するとシート全体がPDF化されます。

文字が小さすぎてPDFが読めない

シート全体を1ページに収めようとすると、データ量が多い場合に文字が極端に小さくなります。PageSetup.Zoom プロパティと FitToPagesWide / FitToPagesTall を使って調整します。

With ws.PageSetup
    .Zoom = False
    .FitToPagesWide = 1   '横は1ページに収める
    .FitToPagesTall = False  '縦は自動（複数ページ可）
End With

横幅は1ページに収めつつ、縦は必要な分だけページを増やす設定です。長いリストでも文字が読める品質を保てます。

実行時エラー’9′: インデックスが有効範囲にありません

Worksheets("シート名") で指定したシートが存在しないときに発生します。シート名のタイポ・全角半角の混在・不要スペースが主な原因です。

'--- シート存在チェックを入れる ---
Dim ws As Worksheet
On Error Resume Next
Set ws = Worksheets("請求書ひな形")
On Error GoTo 0

If ws Is Nothing Then
    MsgBox "シート「請求書ひな形」が見つかりません"
    Exit Sub
End If

VBAのエラー処理パターン全般はVBAのエラーハンドリング完全ガイドで詳しく解説しています。

PDFの画質を変えたい

既定の xlQualityStandard で問題が出ることはまずありませんが、ファイルサイズを抑えたい場合は xlQualityMinimum を指定できます。

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:PDF軽量版.pdf", _
    Quality:=xlQualityMinimum

xlQualityMinimum だと画像が圧縮され、ファイルサイズが概ね半分程度になります。メール添付向けの軽量PDFを作りたい場合に便利です。

ExportAsFixedFormatと他の保存方法の使い分け

ExcelからPDFを生成する方法は ExportAsFixedFormat だけではありません。用途別の使い分けを整理しておきます。

VBAでPDF出力するなら、ExportAsFixedFormat が標準解と覚えておけば十分です。PrintOut はネットワークプリンタ経由の物理印刷が必要なケースだけで使います。

まとめ

VBAの ExportAsFixedFormat メソッドを使うと、ExcelシートのPDF出力作業を完全に自動化できます。

• 基本構文: 対象.ExportAsFixedFormat Type:=xlTypePDF, Filename:="パス"
• 日付付きファイル名: Format(Date, "yyyymmdd") でファイル名に日付を組み込む
• 保存先フォルダ自動作成: Dir + MkDir で年月別フォルダを動的に生成する
• 複数シート一括処理: For Each で個別PDF、Sheets(Array(...)).Select で結合PDF
• 印刷範囲指定: PageSetup.PrintArea + IgnorePrintAreas:=False で範囲制御
• エラー対処: フォルダ不在・同名ファイル開きっぱなし・PrintArea残留が頻出原因

請求書を10社分・月次報告書を5部門分PDF化する作業は、初回1時間の自動化投資で年間60時間以上が浮きます。本記事の請求書テンプレートをそのままコピペして、自社の取引先一覧に合わせて調整するところから始めてください。

VBAの基本構文を学び直したい方は、テーマ別にこちらの記事をご覧ください。

• 変数宣言の使い方はExcel VBAの変数の使い方
• 繰り返し処理の基本はExcel VBAでFor文を使う方法
• コレクション処理はExcel VBAでFor Each Nextを使う方法
• 最終行取得はExcel VBAでLastRowを取得する方法

エラーハンドリングを本格的に整備したい方はVBAのエラーハンドリング完全ガイドが役立ちます。VBA全体を体系的に学びたい方は、入門ハブ記事のExcel VBAでマクロ自動化を始めるための完全ガイドも参考にしてください。

「ChatGPTにマクロを作ってと頼んだのに、思っていたのと違うコードが出てきた」。そんな経験はありませんか。

VBAは書けないけれど、ChatGPTやCopilotにお願いして業務を自動化したい。その気持ちはとても自然です。ただ、AIに「VBAでマクロを作って」とだけ頼むと、思った通りには動きません。列の位置がずれていたり、エラーで止まったり、自分の表に合わないコードが返ってきがちです。

問題はAIの性能ではなく、ほとんどが「頼み方」にあります。AIはあなたのExcelの中身を見ていません。だから、何を・どこに・どうしたいのかを言葉で正確に伝える必要があります。

この記事では、ChatGPTやCopilotにVBAを書かせる「正しい頼み方」を5つのパターンに整理しました。NG例とOK例を並べて、なぜ伝わらないのか・どう直せば伝わるのかを具体的に示します。最後にコピペして使えるプロンプトテンプレートも用意しました。VBAが読めなくても、狙ったコードを引き出せるようになります。

ChatGPTにVBAを書かせるときの頼み方の基本

結論から言うと、ChatGPTにVBAを書かせるコツは「AIはあなたの画面を見ていない」という前提に立つことです。人間の同僚なら、隣の席で「この表のここを合計して」と言えば伝わります。しかしAIには、表の形も、列の位置も、データの種類も、言葉にしないと一切伝わりません。

うまくいかない頼み方には、共通する原因があります。まずはそこを押さえましょう。

うまくいかない頼み方の3つの原因

AIから的外れなコードが返ってくるとき、たいていは次のどれかが抜けています。

逆に言えば、この3点を埋めるだけで、返ってくるコードの精度は大きく変わります。難しいプログラミング用語を覚える必要はありません。「自分の表をまだ見ていない相手に、電話で説明する」つもりで書けば十分です。

頼み方のテンプレート（共通の型）

どのパターンにも使える、依頼の基本の型があります。次の4つを順番に書くだけです。

1. 役割と前提（「Excel VBAのコードを書いてください。Excel 2021を使っています」）
2. データ構造（「A列に日付、B列に商品名、C列に金額が入っています」）
3. やりたいこと（「C列の金額が1万円以上の行だけを別シートにコピーしたい」）
4. 出力の希望（「コードに日本語のコメントを付けて、貼り付け先も教えてください」）

この型を守るだけで、最初の1回で実用的なコードが返る確率がぐっと上がります。次の章から、5つの具体的なパターンを見ていきましょう。

パターン1｜データ構造を正確に伝える

最も大切で、最も忘れられがちなのがデータ構造の説明です。AIはあなたのシートを見ていないので、表の形を伝えないと「一般的なよくある表」を勝手に想像してコードを書きます。その想像が、あなたの表と一致することはまずありません。

NG例とOK例

まずは、よくある頼み方を比べてみます。

NG例（伝わらない）

売上データを集計するマクロを作って

これでは、データがどの列に入っているのか、シート名は何か、見出し行はあるのかが一切わかりません。AIは「A列に日付、B列に売上…」と勝手に決めてコードを書くため、あなたの表では列がずれて動きません。

OK例（伝わる）

Excel VBAのコードを書いてください。

【データ構造】
・シート名: 売上一覧
・1行目: 見出し行（日付 / 店舗名 / 商品名 / 金額）
・2行目以降: データ（行数は毎月変わります）
・A列=日付、B列=店舗名、C列=商品名、D列=金額

【やりたいこと】
店舗ごとの金額合計を、別シート「集計」のA列に店舗名、B列に合計金額として書き出したい。

【希望】
・コードに日本語のコメントを付けてください
・データの最終行は自動で判定してください

列の対応、シート名、見出しの有無、行数が固定でないことまで伝わっています。これだけ書けば、AIはあなたの表に合ったコードを返せます。

伝えるべきデータ構造の項目

データ構造を説明するときは、次の項目を埋めると過不足がありません。

「自分の表のスクリーンショットを言葉に翻訳する」イメージで書くと、抜け漏れが減ります。

TIP: 表を言葉で説明するのが難しいときは、見出し行と最初の2〜3行をそのままコピーしてプロンプトに貼り付けるのも有効です。AIは実際のデータ例から構造を読み取ってくれます。ただし、その際は顧客名や個人情報を含めないよう注意してください。

パターン2｜エラー処理ありで依頼する

AIに普通に頼むと、正常に動く前提のコードしか返ってこないことがあります。実務では、空白セルがあったり、数値のはずの欄に文字が入っていたりと、想定外のデータが必ず混ざります。その瞬間にマクロがエラーで止まると、初心者には原因がわからず固まってしまいます。

だからこそ、最初から「エラーで止まらないように作って」と伝えるのが賢い頼み方です。

NG例とOK例

NG例（止まりやすいコードが返る）

A列の数値を全部足すマクロを作って

OK例（エラーに強いコードが返る）

Excel VBAのコードを書いてください。

【やりたいこと】
シート「データ」のA列2行目以降の数値を合計し、結果をメッセージボックスで表示したい。

【エラー処理の希望】
・A列に空白セルや文字列が混ざっていても止まらないようにしてください
・数値として扱えないセルはスキップしてください
・もし合計対象が1件もなかったら「対象データがありません」と表示してください
・処理の途中でエラーが起きたら、エラー内容をメッセージで知らせてください

「どんな例外が起こりうるか」を素人なりに想像して伝えるだけで、AIはそれに備えたコードを書いてくれます。エラー処理そのものの書き方を知らなくても問題ありません。

エラー処理を頼むときに添える一言

次のような一言を依頼に足すと、堅牢なコードが返りやすくなります。

• 「想定外のデータが入っていても止まらないようにしてください」
• 「エラーが起きたら、原因がわかるメッセージを表示してください」
• 「対象データが0件のときの動きも決めてください」

返ってきたコードに On Error GoTo や On Error Resume Next という記述があれば、エラー処理が組み込まれているサインです。仕組みを詳しく知りたい場合は、VBAのエラーハンドリング完全ガイドを参考にしてください。On Error GoTo と Resume Next の使い分けがわかると、AIのコードを読み解きやすくなります。

NOTE: エラー処理を頼みすぎると、すべてのエラーを握りつぶす On Error Resume Next だけが多用され、不具合に気づけなくなることがあります。「エラーは無視せず、内容を表示して」と添えると、原因究明しやすいコードになります。

パターン3｜部分修正の頼み方

AIが返したコードが「8割は合っているが、ここだけ直したい」というケースは非常に多いです。このとき全部を作り直させると、せっかく合っていた部分まで変わってしまい、かえって遠回りになります。修正は「どこを・どう変えたいか」をピンポイントで伝えるのがコツです。

NG例とOK例

NG例（また作り直しになる）

さっきのコード、もう一回作って。今度はちゃんと動くようにして

これでは、何が不満なのかが伝わりません。AIは前回と似た、しかし微妙に違う別のコードを返してくるだけです。

OK例（必要な箇所だけ直る）

さっきのコードはほぼ完成しています。次の点だけ修正してください。
他の部分は変えないでください。

【修正したい点】
・出力先を「集計」シートではなく「月報」シートに変えたい
・合計金額は小数点以下を四捨五入して整数で表示したい

修正後のコード全体を、変更した行にコメントを付けて出してください。

「他の部分は変えないで」「変更した行にコメントを付けて」という指示が、修正範囲を最小限に抑えてくれます。

部分修正でよく使う言い回し

修正依頼では、次の言い回しが便利です。

修正のたびにコード全体が長くなり、読みにくいと感じることもあります。そんなときは「変更した部分だけ抜き出して、何行目を差し替えればいいか教えて」と頼むのも有効です。

パターン4｜動かないときの再質問法

AIのコードを実行したら、赤い画面でエラーが出て止まった。初心者が最もつまずく場面です。ここで「動きませんでした」とだけ返すと、AIは何が起きたか推測するしかなく、的外れな修正を繰り返します。

エラーが出たときは、AIに「証拠」を渡すのが鉄則です。

NG例とOK例

NG例（原因が特定できない）

動きませんでした。直して

OK例（一発で原因にたどり着く）

実行したら、次のエラーが出て止まりました。

【エラーメッセージ】
実行時エラー '1004':
アプリケーション定義またはオブジェクト定義のエラーです。

【止まった行】
黄色くハイライトされたのは次の行です:
Worksheets("集計").Range("A1").Value = total

【状況】
・「集計」という名前のシートはまだ作っていません
・元のコードは前回もらったものをそのまま貼り付けました

原因と修正後のコードを教えてください。

エラー番号・止まった行・自分がやったことの3点が揃うと、AIは原因をほぼ正確に言い当てられます。

動かないときに伝える3点セット

再質問のときは、次の3つを必ず添えましょう。

1. エラーメッセージの全文（エラー番号も含めて、見えている文章をそのまま）
2. デバッグ画面で黄色くハイライトされた行
3. 自分がやった操作（シートを作っていない、データを変えた、など）

エラーメッセージはスクリーンショットを撮るか、表示された文章を書き写して伝えます。実行時エラー13や1004など、頻出エラーの意味をあらかじめ知っておくと、AIの説明も理解しやすくなります。エラー番号別の対処はVBAマクロのエラー解決ガイドが参考になります。

TIP: エラーで止まったとき、VBAの編集画面（VBE）では問題の行が黄色く表示されます。画面の見方がわからない場合はVBEの画面の見方を図解で解説を先に押さえておくと、どこをAIに伝えればいいか迷わなくなります。

パターン5｜完成コードを自分でテストする手順

AIが「完璧です」と言っても、そのコードがあなたの環境で正しく動く保証はありません。AIは実際に実行して確かめているわけではないからです。完成したと思ったコードは、必ず自分の手で安全にテストしましょう。

テストの基本手順

いきなり本番のファイルで動かすのは危険です。次の手順で慎重に確かめます。

1. 本番ファイルをコピーして、テスト用ファイルを作る（元データのバックアップ）
2. 少量のサンプルデータ（5〜10行程度）で試す
3. 1回実行して、結果が期待どおりか目視で確認する
4. わざと変なデータ（空白・文字・極端な数値）を入れて、止まらないか確認する
5. 問題なければ、本番データで実行する

特に重要なのが1番目です。マクロは「元に戻す（Ctrl+Z）」が効かないことが多く、一度実行すると取り消せません。必ずコピーで試してください。

AIにテスト方法も聞いてしまう

テスト手順そのものをAIに頼むこともできます。

さっきのコードを安全にテストしたいです。
VBAやExcelに詳しくない人でもできるテスト手順を、ステップごとに教えてください。
特に、データが壊れないようにする注意点も書いてください。

さらに、コードが何をしているのかを日本語で説明してもらうと、安心して使えます。

このコードが、上から順に何をしているのかを、
プログラミングを知らない人にもわかるように1行ずつ説明してください。

自分でコードを読めなくても、AIに解説させて「自分のやりたいことと一致しているか」を確認すれば、思わぬ誤動作を防げます。

NOTE: AIの説明やコードを鵜呑みにせず、結果が正しいか最後は自分で確認する姿勢が大切です。AIが事実と異なる説明をすることもあります。確認の習慣についてはAIの回答を信じる前に確認することも参考にしてください。

コピペ用｜VBA依頼プロンプトテンプレート

ここまでの5パターンを1つにまとめた、コピペして使えるテンプレートです。【】の中を自分の状況に書き換えるだけで、精度の高い依頼ができます。

新規でマクロを作ってもらうとき

Excel VBAのコードを書いてください。VBAは読めない初心者です。

【環境】
・Excelのバージョン: 【例: Excel 2021 / Microsoft 365】

【データ構造】
・シート名: 【例: 売上一覧】
・1行目: 見出し行（【日付 / 店舗 / 金額】）
・2行目以降: データ（行数は変わります）
・列の対応: 【A列=日付、B列=店舗、C列=金額】

【やりたいこと】
【例: 店舗ごとの金額合計を「集計」シートに書き出したい】

【希望】
・コードに日本語のコメントを付けてください
・空白や想定外のデータがあっても止まらないようにしてください
・データの最終行は自動で判定してください
・コードの貼り付け先と実行手順も教えてください

動かないときに再質問するとき

もらったコードを実行したら、エラーで止まりました。

【エラーメッセージ】
【表示された文章をそのまま貼り付け（エラー番号も含めて）】

【止まった行】
【黄色くハイライトされた行を貼り付け】

【状況】
【例: 「集計」シートはまだ作っていません / データを増やしました】

原因と修正後のコード全体を、変更点にコメントを付けて教えてください。

一部だけ修正してもらうとき

今のコードはほぼ完成しています。次の点だけ修正してください。
他の部分は変えないでください。

【修正したい点】
・【例: 出力先を「月報」シートに変えたい】
・【例: 金額を整数で表示したい】

修正後のコード全体を、変更した行にコメントを付けて出してください。

テンプレートは「丸ごとコピーして、不要な行を削る」使い方でも構いません。最初は項目が多く感じるかもしれませんが、慣れると30秒で書けるようになります。

VBAをAIに頼むときの注意点

便利なAIですが、業務で使う以上は気をつけたい点があります。安全に使い続けるために、3つだけ押さえておきましょう。

個人情報・社外秘データを貼り付けない

データ構造を説明するとき、実際のデータをそのまま貼り付けたくなります。ですが、顧客名・氏名・取引先名などの機密情報は入力しないでください。AIに送ったデータが学習や品質改善に使われる可能性があるためです。構造を伝えたいときは、ダミーのデータに置き換えるか、列の説明だけにとどめます。何を入力してはいけないかはAIに入力してはいけない情報で具体的に整理しています。

コードは必ずコピーで試す

繰り返しになりますが、マクロは取り消しが効きません。AIのコードを本番ファイルでいきなり実行せず、必ずコピーしたファイルで動作を確認してください。これだけでデータ消失の事故をほぼ防げます。

AIの説明を鵜呑みにしない

AIは自信たっぷりに間違ったコードや説明を出すことがあります。返ってきたコードが意図どおりか、結果が正しいかは、最後は自分の目で確認しましょう。少しずつでもVBAの基本を理解しておくと、AIの間違いに気づけるようになります。基礎から学びたい方はExcel VBAマクロ入門が出発点として最適です。

まとめ｜頼み方を変えればAIはVBAの相棒になる

ここまで、ChatGPTやCopilotにVBAを書かせるときの「正しい頼み方」を5つのパターンで見てきました。要点を振り返ります。

• AIはあなたの画面を見ていない。データ構造を言葉で正確に伝える
• 「エラーで止まらないように」と最初に頼んで、堅牢なコードを引き出す
• 修正は「他は変えず、ここだけ」とピンポイントで依頼する
• 動かないときはエラーメッセージ・止まった行・状況の3点セットを渡す
• 完成コードは必ずコピーで、サンプルデータからテストする

VBAが書けなくても、頼み方さえ身につければ、AIはあなたの代わりにコードを書いてくれる頼もしい相棒になります。大切なのは「丸投げ」ではなく「正確な指示」です。今日紹介したコピペ用テンプレートを使えば、最初の一歩はもう踏み出せます。

まずは、自分が毎月繰り返している単純作業を1つ思い浮かべて、テンプレートに当てはめてChatGPTに頼んでみてください。返ってきたコードを安全にテストしながら、少しずつ自動化の範囲を広げていきましょう。AIとの付き合い方に慣れたら、ExcelのVBAで仕事を自動化する方法も合わせて読んでみてください。どんな業務がマクロ化に向いているかがわかると、依頼のアイデアが一気に広がります。

関連記事

• Excel VBAマクロ入門｜初めてのマクロを作る手順とよく使うコード10選
• ExcelのVBAで仕事を自動化する方法｜実務シーン別に解説
• VBAのエラーハンドリング完全ガイド｜On Error GoToとResume Nextの使い分け
• VBAマクロのエラー解決ガイド｜実行時エラー13・1004・9など頻出エラー別の直し方
• VBEの画面の見方を図解で解説｜6つのウィンドウの名前と役割を初心者向けに整理
• AIに入力してはいけない情報｜業務で生成AIを使う前に知るべき線引き
• AIの回答を信じる前に確認すること｜ハルシネーション対処法と業務別チェック手順

VBAの知識がないまま担当が回ってきた事務系の方にとって、Excelマクロのコード解読は本当に頭の痛い問題です。修正しようにも、どこから手をつければよいか見当もつきません。

しかし、ご安心ください。VBAコードは「書ける」ようになる前に「読める」ようになれば十分です。読めれば原因がわかり、原因がわかれば外注や同僚に相談する糸口になります。

この記事では、引き継いだExcelマクロを読み解くための実践的な5ステップを解説します。VBEの開き方から、変数名の読み方、ループや条件分岐の構文パターン早見表、F8ステップ実行まで網羅。コードを1行も書いたことがない方でも、前任者のVBAの意図がつかめるようになる内容です。

引き継いだマクロが読めない理由と解決策

前任者のVBAコードが読めない理由は、大きく3つに整理できます。

1つ目は「VBE（コード編集画面）の開き方すら分からない」という入口の問題。2つ目は「変数名やキーワードの意味が分からない」という語彙の問題。3つ目は「F8キーで動きを追う」というデバッグ手法を知らないという技術の問題です。

これらは順番に解消できます。VBEを開く方法はキーボードショートカット1つ。変数名のルールは早見表で覚えられます。F8ステップ実行は、コードの動きを1行ずつ目で追えるVBAの最強の武器です。

本記事では「書けなくても読める」をゴールにしています。コードを自分で書けるようになるには数か月の学習が必要ですが、読んで意図をつかむだけなら半日で身につきます。完璧を目指さず、まずは前任者が何をしたかったのかを推測できるレベルを目指しましょう。

そして、読めるようになれば次の選択肢が見えてきます。自分で軽微な修正をする、外注に正確な依頼内容を伝える、同僚に「ここのループが原因では」と相談する——これらは全て「読める」から始まります。

【準備】VBEを開いてコードを確認する

VBAコードを読むには、まず編集画面である「VBE（Visual Basic Editor）」を開く必要があります。Excelとは別の専用画面で動作します。

VBEの画面構成を5分で把握する

VBEを開く方法は2つあります。最も速いのはAlt+F11キーを押す方法です。Excelファイルを開いた状態でこのショートカットを押せば、瞬時にVBEが起動します。

もう1つの方法は「開発」タブから「Visual Basic」をクリックする方法。「開発」タブが表示されていない場合は、Excelの「ファイル」→「オプション」→「リボンのユーザー設定」で「開発」にチェックを入れてください。

VBEを開くと、いくつかのウィンドウが表示されます。それぞれの役割を押さえておきましょう。

まずは左上のプロジェクトエクスプローラーと中央のコードウィンドウを意識すれば十分です。VBEの画面構成をさらに詳しく知りたい方は、ExcelのVBE画面構成と各メニューの役割も参考にしてください。

どのモジュールに何が書いてある？

プロジェクトエクスプローラーを見ると、ブック名の下にいくつかの「モジュール」が並んでいます。モジュールとは、コードを格納する「引き出し」のようなものです。

モジュールには5つの種類があり、それぞれ役割が違います。

• 標準モジュール: 汎用的な処理を書く場所。最もよく使われる
• シートモジュール（Sheet1など）: そのシート専用のイベント処理
• ThisWorkbookモジュール: ブックを開く・閉じる時の処理
• ユーザーフォームモジュール: ダイアログ画面の処理
• クラスモジュール: カスタムオブジェクトの定義（上級者向け）

引き継いだマクロの場合、まずは標準モジュールを開いてみましょう。汎用的な処理の8〜9割はここに書かれています。

プロジェクトエクスプローラーで「標準モジュール」フォルダを展開し、中にある「Module1」などをダブルクリック。中央のコードウィンドウにコードが表示されたら準備完了です。モジュールとプロシージャの関係性については、VBAのプロジェクト・モジュール・プロシージャの違いも参照してください。

【5ステップ】前任者のVBAコードを読み解く手順

ここからが本題です。コードを開いたら、いきなり1行目から読み始めてはいけません。全体→細部の順で読むのが鉄則です。

ステップ1：全体構造を鳥瞰する

まずはコード全体を眺めて、規模感と構造を把握します。具体的にチェックするのは次の3点です。

1. Sub〜End Subの個数: 1つの「Sub」が1つの処理単位（プロシージャ）。数えれば全体の規模が分かる
2. Option Explicitの有無: 1行目にあれば変数宣言が強制されており、型情報が読みやすい
3. プロシージャ名: Sub データ集計() のように、Sub直後の名前を全部拾い読みする

例えば次のようなコードがあったとします。

Option Explicit

Sub データ取得()
    ' 処理...
End Sub

Sub データ集計()
    ' 処理...
End Sub

Sub レポート出力()
    ' 処理...
End Sub

このコードは「取得→集計→出力」の3段階の処理で構成されている、と一目で読み取れます。前任者の意図した処理の流れが、プロシージャ名から見えてくるはずです。

ステップ2：変数名から処理の意図を読む

VBAでは、変数名に「型のヒント」を付ける慣習があります。これをハンガリアン記法と呼びます。

変数名の先頭にある2〜3文字のプレフィックス（接頭辞）を見れば、その変数が何を入れるためのものか即座に判断できます。早見表で覚えてしまいましょう。

例えば Dim strName As String を見れば「文字列を入れる変数」、Dim wsTarget As Worksheet なら「シートを入れる変数」だと推測できます。

変数名は前任者がコードに残したコメントのようなものです。lngRowCount なら「行数を数える整数の変数」、rngData なら「データ範囲のセル」と読めれば、コードの意図がぐっと見えてきます。VBAの変数とデータ型の詳細は、VBAの変数と宣言を初心者向けに解説で深掘りできます。

ステップ3：ループと条件分岐のパターンを認識する

VBAコードの大半は「繰り返し（ループ）」と「分岐（If）」で構成されています。代表的なパターンを暗記すれば、コードの流れが追えるようになります。

最頻出は For〜Next ループです。「決まった回数を繰り返す」処理に使います。

For i = 1 To 10
    ' iが1から10まで、合計10回繰り返す処理
Next i

i = 1 To 10 は「iを1から10まで変化させる」という意味。ループ内の処理が10回実行されます。Step -1 で逆順、Step 2 で2つ飛ばしになります。詳しくはVBAのFor〜Next構文の使い方で解説しています。

次に For Each〜Next。これは「集合の中の全要素」に対して処理を行うループです。

For Each ws In Worksheets
    ' 全シートに同じ処理。wsが各シートを順に指す
Next ws

「全シート」「全セル」「全ファイル」のように、要素の数を数えなくても全部を回したい時に使われます。

ステップ4：エラー処理の有無を確認する

「On Error」で始まる行があるかどうかを確認します。これはエラー発生時の挙動を制御する命令です。

On Error GoTo ErrHandler   ' エラー時はErrHandlerラベルへジャンプ
On Error Resume Next       ' エラーを無視して次行へ進む
On Error GoTo 0            ' エラー処理をリセット

エラー処理が全くないコードは、何かトラブルがあると即座に止まります。一方、On Error Resume Next だらけのコードは、エラーが起きても気付かず誤った結果を出している可能性があります。

「マクロが動かない」と言われている場合、On Error GoTo のラベル先（例：ErrHandler: の下）を読めば、想定エラーが何だったかが分かることも多いです。エラー処理の読み方はVBAのエラー処理完全ガイドも参考にしてください。

ステップ5：F8ステップ実行で実際の動きを追う

ここまで来たら、コードを「実際に動かしながら」読みます。これがVBAデバッグの真骨頂です。

手順は次の通りです。

1. 読みたいSub〜End Subの中にカーソルを置く
2. F8キーを押す → 1行ずつ実行され、黄色いハイライトが移動する
3. 「表示」→「ローカルウィンドウ」を開く → 変数の値がリアルタイムで表示される
4. F8を押し続けて、ループ条件・分岐・代入の流れを目で追う

特定の行から開始したい場合は、その行にカーソルを置いてF9キーを押し、ブレークポイント（赤い点）を設定します。F5で実行するとブレークポイント直前で自動停止し、そこからF8でステップ実行に切り替えられます。

イミディエイトウィンドウ（Ctrl+G）に ? 変数名 と打てば、その場で変数の中身を確認できます。例えば ? rngData.Address と打てば、rngData が指しているセル範囲のアドレスが表示されます。

【早見表】よく出るコードパターンの読み方

実務でよく登場するVBA構文を、読み方のヒント付きで一覧化しました。コードを読んでいて詰まったら、この表を参照してください。

特に注意したいのが Withブロックです。.（ドット）で始まる行は、Withで指定したオブジェクトに属します。

With Worksheets("Sheet1")
    .Range("A1").Value = "hello"   ' Sheet1のA1セルに代入
    .Range("A2").Font.Bold = True  ' Sheet1のA2を太字に
End With

上記の.Range("A1")はWorksheets("Sheet1").Range("A1")と同じ意味です。Withは記述を短くする省略記法ですが、慣れていないと「何のオブジェクトの操作か」が分かりにくくなる原因にもなります。

Do While と Do Until の違いもよく混乱します。Whileは「条件が真の間ループ」、Untilは「条件が真になるまでループ」。意味が逆なので注意してください。

' データが入っている行を最後まで処理する例
Do While Cells(i, 1) <> ""
    ' A列のi行目が空でない間、繰り返す
    i = i + 1
Loop

小改修にチャレンジ：コードを触ってみる

読めるようになったら、ごく軽微な改修にチャレンジしてみましょう。「読める」と「直せる」の間には大きな壁がありますが、設定値の変更レベルなら初心者でも安全に行えます。

例えば次のような改修は、リスクが低くて練習に最適です。

• 出力先のシート名を変える（Worksheets("旧名") を Worksheets("新名") に書き換える）
• ループの繰り返し回数を変える（For i = 1 To 10 を For i = 1 To 20 に変える）
• 数値の閾値を変える（If x > 100 Then を If x > 200 Then に変える）
• メッセージボックスの文言を変える（MsgBox "完了" を MsgBox "処理が完了しました" に変える）

改修前に必ずExcelファイルをコピーしてバックアップを取ってください。VBAは「元に戻す（Ctrl+Z）」が効きにくいため、ファイル単位の保存が最も安全な保険になります。

そして改修後は、必ずF8でステップ実行して動きを確認しましょう。いきなりF5で全実行すると、意図しない箇所でエラーが出ても原因が特定しづらくなります。

逆に、ロジックそのものを変える改修（ループの構造を変える、分岐の条件を加えるなど）は、まだ無理をする必要はありません。読めるレベルで止めておいて、必要なら専門家に依頼する——これも立派な判断です。

まとめ：「書けなくても読める」から始める

引き継いだVBAマクロを読み解く5ステップを振り返ります。

1. 全体構造を鳥瞰する — Subの数とプロシージャ名から処理の流れを把握
2. 変数名から意図を読む — ハンガリアン記法のプレフィックスで型を推測
3. ループと分岐のパターンを認識する — For/Do/If/Select Caseの早見表で構文を判別
4. エラー処理を確認する — On ErrorのラベルとResume Nextの場所をチェック
5. F8ステップ実行で動きを追う — ローカルウィンドウで変数の値を目視確認

VBAは「自分で書けないと使えない」と思われがちですが、それは誤解です。読めるだけで、業務上の問題は8割解決します。原因の切り分け、外注への依頼、同僚への相談——これら全てに「読める力」が活きます。

明日からの実践は、Alt+F11でVBEを開き、前任者のコードをコピー（バックアップ）した上で、Sub単位で1つずつF8ステップ実行してみることから始めてください。1日30分続ければ、1週間後には「だいたい何をやっているか」が見える状態になっているはずです。

書けるようになるのはその先で構いません。まずは「読める」を目標に、引き継いだVBAコードと仲良くなっていきましょう。

ただし実際に使ってみると、「start引数を指定したら前半が消えた」「大文字と小文字が区別されて置換できない」など、引数の挙動でつまずく方も少なくありません。Replace関数は6つの引数を持つため、それぞれの役割を理解しないと意図しない結果になりがちです。

この記事では、VBA Replace関数の基本構文から、Count・Compare引数を活用した一括置換のテクニック、そして実務でコピペして使えるコードパターンまでをまとめて解説します。WorksheetFunction.Substituteとの使い分けも比較表で整理しているので、文字列加工の判断軸として活用してください。

VBAのReplace関数とは

VBA Replace関数は、指定した文字列の中から検索対象の部分文字列を見つけて、別の文字列に置き換える組み込み関数です。Excel関数のSUBSTITUTEに近い動きをしますが、VBAコード内ではこちらが標準となります。

最大の特徴は、引数によって挙動を細かく制御できる点です。「最初の1件だけ置換する」「N文字目から検索を開始する」「大文字と小文字を区別しない」といった処理が、追加のIf文なしに引数指定だけで実現できます。

事務処理では、フォーム入力データの正規化、CSVの整形、ファイル名の一括変更など、文字列加工が発生する場面で頻繁に登場します。一度引数の意味を押さえておけば、関連する自動化処理の幅が大きく広がる関数です。

なお、VBAには同名のメソッドがStringクラスやRangeオブジェクトにも存在しますが、本記事では純粋な関数としてのReplace（VBA.Strings.Replace）を扱います。

基本構文と引数一覧

Replace関数の構文は以下のとおりです。

Replace(expression, find, replace[, start[, count[, compare]]])

引数は6つあり、最初の3つが必須、後ろの3つは省略可能です。

最もシンプルな使い方は、必須の3引数だけを指定するパターンです。

Sub BasicReplace()
    Dim result As String
    result = Replace("2026/05/19", "/", "-")
    Debug.Print result   ' → 2026-05-19
End Sub

このように、expressionの中に出てくるfindをすべてreplaceに置き換えた文字列が返ります。デフォルトでは全件置換となるため、Countを指定しない限り該当箇所はすべて置換されると覚えておきましょう。

【引数別】戻り値の変化と注意点

ここからは、省略可能な3つの引数の挙動を順番に見ていきます。とくにstart引数には「前半部分が消える」という有名な落とし穴があるため、最初に押さえておきましょう。

戻り値の特殊ケースも整理しておきます。

• expressionが空文字列のとき → ""を返す
• expressionがNullのとき → エラー（IsNullでの事前チェック必須）
• findが空文字列のとき → expressionのコピーをそのまま返す
• replaceが空文字列のとき → findの出現箇所をすべて削除した文字列を返す
• startがLen(expression)より大きいとき → ""を返す
• countが0のとき → expressionのコピーを返す（置換なし）

Null値が混入しそうな処理では、必ずIf IsNull(value) Then ...で分岐を入れておきます。

start引数を使うときの落とし穴

startは検索開始位置を指定する引数ですが、戻り値が「start位置から末尾までの文字列のみ」になります。先頭部分は戻り値に含まれません。

Sub StartPitfall()
    Dim str As String
    str = "ABCDEFG-ABCDEFG"
    
    ' 6文字目以降のAをXに置換したい
    Debug.Print Replace(str, "A", "X", 6)
    ' → "FG-XBCDEFG"
    ' 先頭の "ABCDE" が消える！
End Sub

「6文字目以降のAをXに置換したい」と意図して書いたコードですが、先頭5文字が消えた結果が返ってきます。これは仕様であり、バグではありません。

先頭部分を保持したい場合は、Left関数で前半を取り出して連結する必要があります。

Sub StartFixed()
    Dim str As String
    Dim head As String
    Dim tail As String
    Dim result As String
    
    str = "ABCDEFG-ABCDEFG"
    
    '--- 先頭5文字を保持 ---
    head = Left(str, 5)
    '--- 6文字目以降のAを置換 ---
    tail = Replace(str, "A", "X", 6)
    
    result = head & tail
    Debug.Print result   ' → "ABCDEFG-XBCDEFG"
End Sub

この挙動を知らずにstartを使うと、データが意図せず削れる事故につながります。startは「途中から検索したい」というより「途中以降の文字列を加工して返したい」ときに使う引数だと理解しておくのが安全です。

count引数で置換回数を制限する

count引数は、置換を実行する回数の上限を指定します。デフォルトは-1で、これは「すべての出現箇所を置換する」という意味です。

Sub CountLimit()
    Dim str As String
    str = "AAA-AAA-AAA"
    
    ' 全置換（デフォルト）
    Debug.Print Replace(str, "A", "X")
    ' → "XXX-XXX-XXX"
    
    ' 最初の1件だけ置換
    Debug.Print Replace(str, "AAA", "BBB", 1, 1)
    ' → "BBB-AAA-AAA"
    
    ' 最初の2件だけ置換
    Debug.Print Replace(str, "AAA", "BBB", 1, 2)
    ' → "BBB-BBB-AAA"
End Sub

countを使うときは、startも同時に指定する必要があります（countは4番目、startは5番目という順序のため）。先頭から数えたい場合はstartに1を渡しておきましょう。

ログの先頭1件目だけタイムスタンプを差し替えたい、テンプレートの最初のプレースホルダだけ置き換えたい、といった用途で役立ちます。

compare引数で大文字小文字を無視する

compare引数は文字列の比較方法を切り替えます。デフォルトは大文字と小文字を区別するvbBinaryCompareです。

vbTextCompareを指定すれば、「vba」「VBA」「Vba」「vBa」のような表記ゆれをまとめて拾えます。

Sub CompareDemo()
    Dim str As String
    str = "vbaとVBAとVbaは同じ言語です"
    
    ' 既定値（大文字小文字を区別）
    Debug.Print Replace(str, "vba", "Excel")
    ' → "ExcelとVBAとVbaは同じ言語です"
    
    ' vbTextCompare（大文字小文字を無視）
    Debug.Print Replace(str, "vba", "Excel", 1, -1, vbTextCompare)
    ' → "ExcelとExcelとExcelは同じ言語です"
End Sub

ユーザー入力データやWebから取得した文字列は、大文字小文字が揺れていることが珍しくありません。表記ゆれをまとめて正規化したいときは、vbTextCompareを積極的に使いましょう。

実務でよく使うコードパターン3選

ここからは、事務処理の現場で頻出する3つのパターンを紹介します。いずれもコピペしてそのまま使えるコードです。

パターン1: スペース・特殊文字を全削除する

データの正規化で最も多いのが、不要な空白や記号の削除です。replaceに空文字列""を渡せば、findに該当する箇所がすべて消えます。

Sub RemoveSpaces()
    Dim str As String
    str = "山田　太郎 さん"   ' 全角＋半角スペース混在
    
    '--- 半角スペースを全削除 ---
    str = Replace(str, " ", "")
    
    '--- 全角スペースを全削除（Chr(12288)） ---
    str = Replace(str, Chr(12288), "")
    
    Debug.Print str   ' → "山田太郎さん"
End Sub

タブ・改行を含めて一気に除去したい場合は、Replace関数をネストするのが定番です。

Sub RemoveWhitespace()
    Dim str As String
    str = "ABC" & vbTab & "DEF" & vbCrLf & "GHI"
    
    '--- タブ・LF・CRをまとめて除去 ---
    str = Replace(Replace(Replace(str, Chr(9), ""), Chr(10), ""), Chr(13), "")
    
    Debug.Print str   ' → "ABCDEFGHI"
End Sub

スペース削除専用の手段としては、Trim関数やLTrim / RTrim関数もあります。前後の空白だけを削りたい場合はTrim系のほうがシンプルです。詳しくはVBA Trim関数の使い方やVBAでスペースを削除する方法もあわせて参考にしてください。

パターン2: 大文字小文字を統一する

入力データの「VBA／vba／Vba」のような表記ゆれを統一するパターンです。compare引数にvbTextCompareを渡せば、大文字小文字を無視して置換できます。

Sub NormalizeCase()
    Dim str As String
    str = "vbaのコード例とVBA講座、Vba入門書"
    
    '--- 大文字小文字を区別せず "VBA" に統一 ---
    str = Replace(str, "vba", "VBA", 1, -1, vbTextCompare)
    
    Debug.Print str
    ' → "VBAのコード例とVBA講座、VBA入門書"
End Sub

ポイントは、startに1、countに-1を必ず渡すことです。compareは6番目の引数なので、前の引数を省略できません。「先頭から全件置換」を意味する1, -1はセットで覚えておくと迷いません。

商品コード・型番・タグなど、半角英字が混じるデータの正規化で重宝するパターンです。

パターン3: 複数の文字列を一括置換する

複数の検索パターンを順番に置換するときは、配列とループを組み合わせると保守性が上がります。置換ルールが10件、20件と増えても、配列の中身を変えるだけで済むのが利点です。

Sub MultiReplace(ByRef str As String)
    Dim findList As Variant
    Dim repList  As Variant
    Dim i As Long
    
    '--- 検索文字と置換文字をペアで定義 ---
    findList = Array("（", "）", "　", "・")
    repList  = Array("(",  ")",  " ",  "-")
    
    '--- 順番に置換していく ---
    For i = 0 To UBound(findList)
        str = Replace(str, findList(i), repList(i))
    Next i
End Sub

Sub TestMultiReplace()
    Dim s As String
    s = "（株）山田　商事・東京"
    
    Call MultiReplace(s)
    Debug.Print s   ' → "(株)山田 商事-東京"
End Sub

findListとrepListを同じインデックスで対応させるのがコツです。要素数が一致しないと配列の境界エラーになるため、追加時は両方の配列を必ずセットで更新してください。

社内システムから出力されたCSVを集計用に整形する、住所データの記号を統一する、といった処理にそのまま流用できます。

VBA Replace関数 vs WorksheetFunction.Substitute

VBAから文字列を置換する手段は、Replace関数だけではありません。WorksheetFunction.Substituteを経由して、Excel関数のSUBSTITUTEを呼び出す方法もあります。両者には明確な使い分けの基準があります。

基本的にはVBA Replace関数のほうがコードが短く、引数も柔軟です。日常的な置換処理は、まずReplace関数で書くことを推奨します。

一方、「3番目に出現した文字だけを置換したい」のような限定的なケースでは、WorksheetFunction.Substituteの第4引数（インスタンス番号）が役立ちます。

Sub SubstituteByPosition()
    Dim str As String
    Dim result As String
    str = "A-A-A-A-A"
    
    '--- 3番目の "A" だけ "X" に置換 ---
    result = WorksheetFunction.Substitute(str, "A", "X", 3)
    Debug.Print result   ' → "A-A-X-A-A"
End Sub

Replace関数ではN番目だけの置換ができないため、この用途に限ってはSubstituteの出番です。Excel関数の挙動についてはExcelのSUBSTITUTE関数の使い方も参考になります。

まとめ

VBA Replace関数のポイントを振り返ります。

• 基本構文はReplace(expression, find, replace, start, count, compare)の6引数
• startを指定すると先頭部分が戻り値から消える。Left関数との連結で対処
• countで置換回数を制限できる。最初の1件だけ、最初の2件だけといった指定が可能
• compareにvbTextCompareを渡すと、大文字小文字を区別せず置換できる
• 実務では「スペース全削除」「大文字小文字統一」「複数文字列の一括置換」の3パターンが頻出
• N番目のみ置換したい特殊ケースはWorksheetFunction.Substituteを使う

パターンに一致する文字列をまとめて置換したい場合はVBA正規表現（RegExp）の使い方が便利です。

引数の挙動さえ押さえれば、Replace関数は文字列加工の最強の味方になります。とくにcompare引数の存在を知っているかどうかで、表記ゆれデータの処理スピードは大きく変わります。まずは基本の3引数からスタートし、慣れてきたらcount・compareを組み合わせて、データ正規化の自動化に役立ててください。

1ファイルなら数分でも、10ファイル・20ファイルと増えると一気に負担になります。しかもコピペの貼り付け位置を間違えると、データがずれて気づかないこともあります。

そんな繰り返し作業こそ、VBA（マクロ）の出番です。一度コードを書いておけば、ボタン1つでCSVの取り込みが一瞬で終わります。この記事では、CSVを読み込むコードと書き出すコードを、コピペで動く形で順番に紹介します。

VBAでCSVを読み込む・書き出すとは？

VBAでCSVを扱うとは、マクロを使ってCSVファイルの取り込みと出力を自動化することです。読み込みは「CSVの中身をExcelシートに展開する処理」を指します。書き出しは「シートのデータをCSVファイルとして保存する処理」のことです。

手作業とVBAで、どれくらい差が出るのか比べてみましょう。

ポイントは、ファイル数が増えるほど効果が大きくなることです。フォルダの中のCSVを全部まとめて処理する、といった芸当もマクロなら簡単にできます。

CSVを扱う方法は大きく2つあります。1つは昔からある「Open文」、もう1つは「FileSystemObject（エフエスオー）」です。まずは両方の基本を押さえて、後半で使い分けを解説します。

CSVファイルの中身はただのテキスト

CSVは「Comma Separated Values」の略で、カンマで区切られたテキストファイルです。Excelで開くと表のように見えますが、中身はメモ帳で開けるただの文字列です。

氏名,部署,売上
田中,営業1課,150000
佐藤,営業2課,98000

このように、1行が1レコード、カンマが列の区切りになっています。VBAでは、この「1行ずつ読む」「カンマで分ける」という流れでデータを扱います。

VBEの起動とコードの準備

CSV処理のコードを書く前に、VBA専用のエディタ「VBE（Visual Basic Editor）」を開きます。ここがマクロを書く作業場所です。

VBE（Visual Basic Editor）の開き方

VBEを開く方法は2つあります。

1. キーボードで Alt + F11 を押す（一番手軽です）
2. リボンの「開発」タブ →「Visual Basic」をクリックする

「開発」タブが見当たらない場合は、次の手順で表示できます。

1. 「ファイル」→「オプション」を開く
2. 「リボンのユーザー設定」を選ぶ
3. 右側の一覧で「開発」にチェックを入れる
4. 「OK」を押す

これでリボンに「開発」タブが追加されます。

標準モジュールの挿入

VBEが開いたら、コードを書く場所「標準モジュール」を追加します。

1. メニューの「挿入」→「標準モジュール」をクリックする
2. 画面に白いコード入力エリアが表示される

この白い画面に、これから紹介するコードを貼り付けて使います。準備はこれだけです。

基本コード｜Open文でCSVを読み込む

まずは一番シンプルな方法、Open文でCSVを読み込むコードです。下のコードをそのままコピペすれば動きます。

Sub CSV読み込み_Open()
    Dim sFilePath As String '読み込むCSVのパス
    Dim sLine As String '1行分の文字列
    Dim vData As Variant 'カンマで分割した配列
    Dim iRow As Long '書き込む行番号

    sFilePath = "C:datasample.csv" 'CSVのパスを指定
    iRow = 1 '1行目から書き込む

    Open sFilePath For Input As #1 'ファイルを読み込みモードで開く
    Do Until EOF(1) 'ファイルの末尾まで繰り返す
        Line Input #1, sLine '1行を読み込む
        vData = Split(sLine, ",") 'カンマで分割する
        '--- 分割した値をセルに書き込む ---
        Dim iCol As Long '列番号
        For iCol = 0 To UBound(vData)
            Cells(iRow, iCol + 1).Value = vData(iCol)
        Next iCol
        iRow = iRow + 1 '次の行へ
    Loop
    Close #1 'ファイルを閉じる

    MsgBox "読み込みが完了しました" '完了メッセージ
End Sub

sFilePath の部分を、自分のCSVファイルのパスに書き換えてください。実行すると、アクティブなシートの1行目からデータが展開されます。

実行方法は2通りです。VBE上で F5 キーを押すか、Excelに戻って「開発」タブ →「マクロ」から CSV読み込み_Open を選んで実行します。

コードの仕組みを理解する

このコードがやっていることを、順番に見ていきましょう。難しく見えますが、流れはとてもシンプルです。

1. Open sFilePath For Input As #1 でCSVを読み込み用に開く
2. Do Until EOF(1) でファイルの最後まで1行ずつ処理する
3. Line Input #1, sLine で1行を文字列として読み込む
4. Split(sLine, ",") でカンマごとに分けて配列にする
5. Cells(iRow, iCol + 1) で各セルに書き込む
6. Close #1 でファイルを閉じる

#1 は「ファイル番号」と呼ばれる目印です。複数ファイルを同時に開くときは #2、#3 と番号を変えます。EOF は「End Of File」の略で、ファイルの終わりを意味します。

基本コード｜CSVを書き出す

次は逆方向、シートのデータをCSVファイルとして書き出すコードです。集計結果を他システムに渡したいときに役立ちます。

Sub CSV書き出し_Open()
    Dim sFilePath As String '書き出すCSVのパス
    Dim iLastRow As Long '最終行
    Dim iLastCol As Long '最終列
    Dim iRow As Long '行カウンター
    Dim iCol As Long '列カウンター
    Dim sLine As String '1行分の文字列

    sFilePath = "C:dataoutput.csv" '保存先のパスを指定
    iLastRow = Cells(Rows.Count, 1).End(xlUp).Row '最終行を取得
    iLastCol = Cells(1, Columns.Count).End(xlToLeft).Column '最終列を取得

    Open sFilePath For Output As #1 'ファイルを書き込みモードで開く
    For iRow = 1 To iLastRow '1行目から最終行まで
        sLine = "" '行の文字列を初期化
        For iCol = 1 To iLastCol '1列目から最終列まで
            sLine = sLine & Cells(iRow, iCol).Value 'セルの値を連結
            If iCol < iLastCol Then sLine = sLine & "," '区切りのカンマを追加
        Next iCol
        Print #1, sLine '1行をファイルに書き出す
    Next iRow
    Close #1 'ファイルを閉じる

    MsgBox "書き出しが完了しました" '完了メッセージ
End Sub

このコードは、シートの使われている範囲を自動で判定してCSVに出力します。iLastRow と iLastCol で、データがどこまで入っているかを取得しているのがポイントです。

最終行の取得については、Excel VBAで最終行を取得する方法でくわしく解説しています。データ範囲を正しく取れないと書き出しが途中で切れるので、あわせて確認しておくと安心です。

Print #1, sLine で1行ずつファイルに書き込みます。最後のカンマが余計に付かないよう、If iCol < iLastCol Then で制御しているところも実務では大事です。

FileSystemObjectでCSVを扱う方法

Open文と並んでよく使われるのが、FileSystemObject（FSO）です。FSOは、ファイルやフォルダを扱うための専用オブジェクトで、コードが読みやすくなるのが特長です。

FSOを使うには2つの書き方があります。1つは事前バインディング（参照設定が必要）、もう1つは遅延バインディング（参照設定が不要）です。配布しやすいのは、参照設定がいらない遅延バインディングです。

Sub CSV読み込み_FSO()
    Dim oFSO As Object 'FileSystemObject
    Dim oStream As Object 'テキストストリーム
    Dim sLine As String '1行分の文字列
    Dim vData As Variant 'カンマで分割した配列
    Dim iRow As Long '書き込む行番号
    Dim iCol As Long '列番号

    Set oFSO = CreateObject("Scripting.FileSystemObject") 'FSOを生成
    Set oStream = oFSO.OpenTextFile("C:datasample.csv", 1) '読み込みモードで開く
    iRow = 1 '1行目から書き込む

    Do Until oStream.AtEndOfStream 'ファイルの末尾まで繰り返す
        sLine = oStream.ReadLine '1行を読み込む
        vData = Split(sLine, ",") 'カンマで分割する
        '--- 分割した値をセルに書き込む ---
        For iCol = 0 To UBound(vData)
            Cells(iRow, iCol + 1).Value = vData(iCol)
        Next iCol
        iRow = iRow + 1 '次の行へ
    Loop

    oStream.Close 'ストリームを閉じる
    Set oStream = Nothing 'オブジェクトを解放
    Set oFSO = Nothing 'オブジェクトを解放

    MsgBox "読み込みが完了しました" '完了メッセージ
End Sub

OpenTextFile の第2引数 1 が「読み込みモード」を表します。書き出すときは 2（上書き）または 8（追記）を使います。処理の流れはOpen文とほぼ同じで、1行ずつ読んでカンマで分割しています。

Open文とFileSystemObjectの使い分け

ここがこの記事の核心です。どちらを使うべきか、判断基準を表にまとめました。

ざっくりした使い分けはこうです。1ファイルだけ素早く処理するならOpen文が向いています。フォルダ内の一覧を扱ったり複数ファイルをまとめて処理するならFSOが便利です。

迷ったらFSOを選んでおけば、後からフォルダ処理に発展させるときに楽です。次の応用編でその威力がわかります。

実践コード｜フォルダ内のCSVを全件一括処理する

ここからが本番です。「毎日届くCSVが溜まっているフォルダを、まとめて1枚のシートに統合したい」という実務ニーズに応えるコードを紹介します。FSOのフォルダ操作が活躍する場面です。

Sub CSV一括取り込み()
    Dim oFSO As Object 'FileSystemObject
    Dim oFolder As Object '対象フォルダ
    Dim oFile As Object '個々のファイル
    Dim oStream As Object 'テキストストリーム
    Dim sFolderPath As String '対象フォルダのパス
    Dim sLine As String '1行分の文字列
    Dim vData As Variant 'カンマで分割した配列
    Dim iRow As Long '書き込む行番号
    Dim iCol As Long '列番号

    sFolderPath = "C:datacsv" '対象フォルダを指定
    iRow = 1 '1行目から書き込む

    Set oFSO = CreateObject("Scripting.FileSystemObject") 'FSOを生成
    Set oFolder = oFSO.GetFolder(sFolderPath) 'フォルダを取得

    '--- フォルダ内のファイルを1つずつ処理 ---
    For Each oFile In oFolder.Files
        '--- 拡張子がcsvのファイルだけ対象にする ---
        If LCase(oFSO.GetExtensionName(oFile.Name)) = "csv" Then
            Set oStream = oFSO.OpenTextFile(oFile.Path, 1) '読み込みモードで開く
            Do Until oStream.AtEndOfStream '末尾まで繰り返す
                sLine = oStream.ReadLine '1行を読み込む
                vData = Split(sLine, ",") 'カンマで分割する
                For iCol = 0 To UBound(vData)
                    Cells(iRow, iCol + 1).Value = vData(iCol)
                Next iCol
                iRow = iRow + 1 '次の行へ
            Loop
            oStream.Close 'ストリームを閉じる
        End If
    Next oFile

    Set oStream = Nothing 'オブジェクトを解放
    Set oFolder = Nothing 'オブジェクトを解放
    Set oFSO = Nothing 'オブジェクトを解放

    MsgBox "フォルダ内のCSVをすべて取り込みました" '完了メッセージ
End Sub

このコードのキモは For Each oFile In oFolder.Files の部分です。フォルダの中のファイルを1つずつ取り出して、CSVだけを順番に取り込んでいます。For Each の使い方はExcel VBAでFor Each Nextを使う方法でくわしく解説しています。

GetExtensionName で拡張子を調べ、csv のファイルだけ処理するようにしています。これでフォルダにExcelファイルやテキストファイルが混ざっていても安全です。

変更すべき箇所は sFolderPath の1行だけです。自分のCSVが入っているフォルダのパスに書き換えてください。末尾の「」を忘れないのがポイントです。

1行目のヘッダーをスキップしたいとき

複数ファイルを統合すると、各CSVの見出し行（ヘッダー）が何度も繰り返されてしまいます。これを防ぐには、各ファイルの1行目を読み飛ばす処理を追加します。

Dim isFirstLine As Boolean '1行目かどうかの判定
isFirstLine = True 'ファイルごとにTrueにリセット

Do Until oStream.AtEndOfStream
    sLine = oStream.ReadLine '1行を読み込む
    '--- 1行目（ヘッダー）はスキップする ---
    If isFirstLine Then
        isFirstLine = False
    Else
        vData = Split(sLine, ",")
        For iCol = 0 To UBound(vData)
            Cells(iRow, iCol + 1).Value = vData(iCol)
        Next iCol
        iRow = iRow + 1
    End If
Loop

isFirstLine というフラグを使って、ファイルの最初の1行だけ書き込みをスキップしています。ファイルごとに True へ戻すのを忘れないようにしてください。

文字コードのトラブル対処（Shift-JIS/UTF-8）

CSV処理でつまずきやすいのが、文字化けです。CSVには主に「Shift-JIS」と「UTF-8」という2つの文字コードがあります。これが合っていないと、日本語が「譁・喧縺・」のように崩れてしまいます。

Open文や OpenTextFile は、基本的にShift-JISとして読み込みます。最近の業務システムはUTF-8で出力することが多いので、ここで文字化けが起きやすいのです。

UTF-8のCSVを正しく読むには、ADODB.Streamというオブジェクトを使います。文字コードを指定して読み込めるのが利点です。

Sub UTF8のCSV読み込み()
    Dim oStream As Object 'ADODB.Stream
    Dim sText As String '読み込んだ全文
    Dim vLines As Variant '行ごとの配列
    Dim vData As Variant 'カンマで分割した配列
    Dim iRow As Long '書き込む行番号
    Dim iCol As Long '列番号
    Dim i As Long '行ループ用

    Set oStream = CreateObject("ADODB.Stream") 'ストリームを生成
    oStream.Charset = "UTF-8" '文字コードをUTF-8に指定
    oStream.Open 'ストリームを開く
    oStream.LoadFromFile "C:datautf8.csv" 'ファイルを読み込む
    sText = oStream.ReadText '全文をテキストとして取得
    oStream.Close 'ストリームを閉じる
    Set oStream = Nothing 'オブジェクトを解放

    vLines = Split(sText, vbCrLf) '改行で行に分割
    iRow = 1 '1行目から書き込む
    For i = 0 To UBound(vLines)
        If vLines(i) <> "" Then '空行はスキップ
            vData = Split(vLines(i), ",") 'カンマで分割
            For iCol = 0 To UBound(vData)
                Cells(iRow, iCol + 1).Value = vData(iCol)
            Next iCol
            iRow = iRow + 1 '次の行へ
        End If
    Next i

    MsgBox "UTF-8のCSVを読み込みました" '完了メッセージ
End Sub

oStream.Charset = "UTF-8" の1行で文字コードを指定するのがポイントです。Shift-JISのファイルなら "Shift_JIS" に変えれば対応できます。

文字化けの原因と対処を体系的に知りたい方は、ExcelでCSVが文字化けする原因と直し方もどうぞ。手作業での開き方も含めて整理しています。

よくあるエラーと対処法

CSV処理でよく出るエラーと、その対処法をまとめました。エラーメッセージが出ても、原因がわかれば落ち着いて対応できます。

特に多いのが、ファイルを開いたまま書き出そうとして起きる「実行時エラー'70'」です。出力先のCSVをExcelやメモ帳で開いていないか、まず確認してください。

実務で使うなら、エラーが出ても処理が止まらないようにエラーハンドリングを入れておくと安心です。On Error GoTo の使い方はVBAのエラーハンドリング完全ガイドでくわしく解説しています。

マクロが無効になっていないか確認する

書いたマクロが動かないときは、ファイルの保存形式やセキュリティ設定が原因かもしれません。次の2点を確認してください。

1. ファイルを「Excelマクロ有効ブック（.xlsm）」で保存しているか
2. マクロのセキュリティ設定でマクロが許可されているか

通常の .xlsx 形式で保存すると、マクロが消えてしまいます。マクロを含むファイルは必ず .xlsm で保存しましょう。これはCSV処理に限らず、すべてのVBA作業で共通の注意点です。

まとめ

VBAを使えば、手作業で繰り返していたCSVの取り込みと書き出しを、ボタン1つで自動化できます。最後にポイントを整理しておきます。

• 読み込みの基本: Open ～ For Input または FSOの OpenTextFile で1行ずつ読む
• 書き出しの基本: Open ～ For Output で Print #1 を使って1行ずつ書く
• 使い分け: 1ファイルならOpen文、フォルダ一括処理ならFileSystemObject
• 一括処理: For Each oFile In oFolder.Files でフォルダ内のCSVを全件処理
• 文字化け対処: UTF-8のCSVはADODB.Streamで文字コードを指定して読む
• 保存形式: マクロを含むファイルは必ず .xlsm で保存する

毎月のCSV取り込みに30分かかっていた作業も、自動化すれば数秒で終わります。初回のコード作成だけがんばれば、あとはずっと時短の恩恵を受けられます。まずはこの記事の基本コードをコピペして、sFilePath を自分のファイルに書き換えるところから試してみてください。

VBAの基本構文をテーマ別に学び直したい方は、こちらの記事もあわせてどうぞ。

• 繰り返し処理の基本はExcel VBAでFor文を使う方法
• コレクション処理はExcel VBAでFor Each Nextを使う方法
• セル操作の基本はExcel VBAでRangeを使う方法
• 最終行取得はExcel VBAで最終行を取得する方法

VBA全体を体系的に学びたい方もいるでしょう。入門ハブ記事のExcel VBAでマクロ自動化を始めるための完全ガイドも参考にしてください。

ファイル整理は地味ですが、毎月くり返すと意外と時間を取られますよね。フォルダを作り、ファイルを探し、コピーして、また確認して。この一連の作業こそ、VBAで自動化したいポイントです。

そこで活躍するのが FileSystemObject（FSO） です。この記事では、FSOの準備から、フォルダの自動作成・ファイルの存在確認・一覧取得・コピーまでを解説します。月次フォルダの自動仕分けなど、コピペで使える実務コードも紹介していきますね。

VBA FileSystemObject（FSO）とは？

FileSystemObjectは、Windowsのファイル操作をVBAから命令できるオブジェクトです。「FSO」と略されます。

イメージは「ファイル係の司令塔」です。普段あなたがエクスプローラーで手動でやっている操作を、コードで指示できます。

具体的には、次のような操作ができます。

• フォルダを作る・あるか調べる
• ファイルがあるか調べる
• フォルダの中のファイル一覧を取り出す
• ファイルをコピー・移動・削除する
• ファイル名や拡張子、更新日時を取り出す

FSOは Microsoft Scripting Runtime という部品に含まれています。Windowsに標準で入っているので、特別なインストールは不要です。

NOTE

VBE（Visual Basic Editor）は Alt + F11 で起動します。リボンから開く場合は「開発」タブ →「Visual Basic」を選びます。「開発」タブが表示されていないときは、「ファイル」→「オプション」→「リボンのユーザー設定」で「開発」にチェックを入れてください。VBEが開いたら「挿入」→「標準モジュール」でコードを書く場所を作ります。画面構成がわからない方は、VBE画面の見方の記事も参考にしてみてください。

FileSystemObjectを使う準備（参照設定とCreateObject）

FSOを使うには、最初にオブジェクトを生成する必要があります。生成方法は2通りあります。

方法1: 参照設定する（事前バインディング）

VBEのメニューから「ツール」→「参照設定」を開きます。一覧から Microsoft Scripting Runtime にチェックを入れます。これで準備完了です。

Sub UseEarlyBinding()
    Dim fso As Scripting.FileSystemObject 'ファイル操作オブジェクト
    Set fso = New Scripting.FileSystemObject

    MsgBox fso.FolderExists("C:Temp") 'C:Tempがあるか判定
End Sub

参照設定すると、入力中に候補が出る入力補完（IntelliSense）が効きます。コードが書きやすくなるので、自分のPCで使う場合はこちらがおすすめです。

方法2: CreateObjectで生成する（実行時バインディング）

参照設定をせずに、コード内でオブジェクトを直接生成する方法です。

Sub UseLateBinding()
    Dim fso As Object 'ファイル操作オブジェクト
    Set fso = CreateObject("Scripting.FileSystemObject")

    MsgBox fso.FolderExists("C:Temp") 'C:Tempがあるか判定
End Sub

CreateObjectは参照設定が不要です。そのため、ファイルを他の人に配布する場合に向いています。環境による設定の違いを気にしなくて済むからです。

TIP

迷ったら CreateObject を選んでおくと安全です。参照設定はファイルごとに必要で、配布先で外れていると動かなくなります。本記事のコードはすべてCreateObjectで統一しています。

FileSystemObjectの基本メソッド一覧（フォルダ・ファイル操作）

FSOでよく使うメソッドとプロパティを、まず一覧で見ておきましょう。後のセクションで1つずつコード付きで解説します。

フォルダ操作

ファイル操作

パス・名前の操作

Fileオブジェクトの主なプロパティ

フォルダの存在確認と自動作成（FolderExists / CreateFolder）

まずはフォルダ操作からです。実務でいちばん多いのが「フォルダがなければ作る」という処理です。

FolderExists：フォルダがあるか調べる

FolderExists は、指定したフォルダがあるかを True / False で返します。

Dim fso As Object 'ファイル操作オブジェクト
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FolderExists("C:Temp2026") Then
    MsgBox "フォルダがあります"
Else
    MsgBox "フォルダがありません"
End If

CreateFolder：フォルダを作る

CreateFolder は、新しいフォルダを作ります。

fso.CreateFolder "C:Temp2026" 'フォルダを新規作成

ここで注意点が2つあります。まず、既に同じフォルダがあるとエラーになります。次に、作れるのは1階層だけです。たとえば C:Temp がないのに C:Temp2026 を一度に作ろうとするとエラーになります。

そこで実務では、FolderExists で確認してから CreateFolder する形が定番です。

Dim fso As Object 'ファイル操作オブジェクト
Dim targetPath As String '作りたいフォルダのパス
Set fso = CreateObject("Scripting.FileSystemObject")
targetPath = "C:Temp2026"

'--- フォルダがなければ作る ---
If Not fso.FolderExists(targetPath) Then
    fso.CreateFolder targetPath
    MsgBox "フォルダを作成しました"
Else
    MsgBox "フォルダは既にあります"
End If

If Not fso.FolderExists(...) で「なければ」を判定しています。これでエラーを防ぎながら安全にフォルダを用意できます。条件分岐の書き方はIf文の使い方をご覧ください。

NOTE

多階層のフォルダ（例: C:Temp20264）を一度に作りたい場合は、親から順に作る必要があります。C:Temp → C:Temp2026 → C:Temp20264 の順です。後ほどの実務パターン1で、この処理を関数にまとめた例を紹介します。

ファイルの存在確認・一覧取得・コピー削除（FileExists / GetFolder / CopyFile）

続いてファイル操作です。「ファイルがあるか確認する」「フォルダ内の一覧を取る」「コピーする」の3つを押さえれば、実務はほぼカバーできます。

FileExists：ファイルがあるか調べる

FileExists は、指定したファイルがあるかを True / False で返します。

If fso.FileExists("C:Tempreport.xlsx") Then
    MsgBox "ファイルがあります"
Else
    MsgBox "ファイルがありません"
End If

上書き保存の前や、コピーの前に「すでにあるか」を確認するときに使います。

GetFolderとFiles：フォルダ内のファイル一覧を取る

フォルダ内のファイルを1つずつ処理したいとします。このときは GetFolder でフォルダを取得し、Files コレクションを For Each で回します。

Sub ListFiles()
    Dim fso As Object 'ファイル操作オブジェクト
    Dim fol As Object '対象フォルダ
    Dim f As Object '取り出す1ファイル
    Dim msg As String '一覧の文字列

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fol = fso.GetFolder("C:Temp") '対象フォルダを取得

    '--- フォルダ内のファイル名を1つずつ集める ---
    For Each f In fol.Files
        msg = msg & f.Name & vbCrLf
    Next f

    MsgBox msg
End Sub

For Each f In fol.Files で、フォルダの中のファイルを1つずつ取り出しています。f.Name でファイル名が取れます。ループの基本はFor Eachの使い方も参考にしてください。

拡張子で絞り込む

一覧の中から「Excelファイルだけ」を選びたいときは、GetExtensionName で拡張子を調べます。

For Each f In fol.Files
    If fso.GetExtensionName(f.Name) = "xlsx" Then
        msg = msg & f.Name & vbCrLf '拡張子がxlsxのものだけ集める
    End If
Next f

GetExtensionName は拡張子だけを返します。ドット（.）は含まないので、"xlsx" のように比較します。

CopyFile・MoveFile・DeleteFile：コピー・移動・削除

ファイルのコピー・移動・削除は、それぞれ1行で書けます。

fso.CopyFile "C:Tempreport.xlsx", "C:Backupreport.xlsx" 'コピー
fso.MoveFile "C:Tempold.xlsx", "C:Archiveold.xlsx" '移動
fso.DeleteFile "C:Tempunused.xlsx" '削除

NOTE

CopyFile は、コピー先に同じ名前のファイルがあると既定で上書きします。上書きしたくない場合は、第3引数に False を指定します（fso.CopyFile 元, 先, False）。この場合、同名ファイルがあるとエラーになります。コピー前に FileExists で確認すると、より安全です。

【実務】FileSystemObjectの活用コード3選

ここからは、実務でそのまま使えるパターンを3つ紹介します。どれもコピペして動かせるコードです。

パターン1: 月次報告書を年月フォルダに自動仕分け

C:報告書 に 2026-04_営業報告.xlsx のようなファイルがあるとします。ファイル名の先頭から年月フォルダ（C:報告書2026-04）を作り、そこへ移動するコードです。

Sub SortReportsByMonth()
    Dim fso As Object 'ファイル操作オブジェクト
    Dim fol As Object '元フォルダ
    Dim f As Object '処理するファイル
    Dim baseFol As String '振り分け元のパス
    Dim ym As String '年月（フォルダ名）
    Dim destFol As String '移動先フォルダのパス

    Set fso = CreateObject("Scripting.FileSystemObject")
    baseFol = "C:報告書"
    Set fol = fso.GetFolder(baseFol)

    '--- ファイルを1つずつ確認して年月フォルダに移動する ---
    For Each f In fol.Files
        ym = Left(f.Name, 7) 'ファイル名先頭の"2026-04"を取り出す
        destFol = baseFol & "" & ym

        '--- 年月フォルダがなければ作る ---
        If Not fso.FolderExists(destFol) Then
            fso.CreateFolder destFol
        End If

        fso.MoveFile f.Path, destFol & "" & f.Name '移動
    Next f

    MsgBox "仕分けが完了しました"
End Sub

ポイントは2つです。Left(f.Name, 7) でファイル名の先頭7文字（2026-04）を取り出してフォルダ名にしています。そして移動前に FolderExists で確認し、なければ CreateFolder で作っています。これで「フォルダがない」エラーを防げます。

TIP

ファイル名のルールに合わせて Left(f.Name, 7) の文字数を変えてください。2026年04月 のような形式なら、文字数を調整するか、Mid 関数で必要な部分を切り出します。

パターン2: 指定フォルダ内のExcelファイルを一括処理

C:データ フォルダのExcelファイルを順番に開くコードです。A1セルにファイル名を書き込み、保存して閉じます。複数ファイルへの定型処理の土台になります。

Sub ProcessAllExcelFiles()
    Dim fso As Object 'ファイル操作オブジェクト
    Dim fol As Object '対象フォルダ
    Dim f As Object '処理するファイル
    Dim wb As Workbook '開いたブック

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fol = fso.GetFolder("C:データ")

    Application.ScreenUpdating = False '画面更新を止めて高速化

    '--- フォルダ内のxlsxファイルを順に開いて処理する ---
    For Each f In fol.Files
        If fso.GetExtensionName(f.Name) = "xlsx" Then
            Set wb = Workbooks.Open(f.Path) 'ファイルを開く
            wb.Worksheets(1).Range("A1").Value = f.Name 'A1に処理を書き込む
            wb.Close SaveChanges:=True '保存して閉じる
        End If
    Next f

    Application.ScreenUpdating = True '画面更新を戻す
    MsgBox "一括処理が完了しました"
End Sub

fso.GetExtensionName(f.Name) = "xlsx" でExcelファイルだけに絞っています。Workbooks.Open で開いたブックは、処理後に必ず Close で閉じます。セルの操作はRangeの使い方も参考にしてください。

NOTE

一括処理では、自分自身（マクロを書いたブック）を開きにいかないよう注意してください。マクロブックを処理対象フォルダの外に置くのが安全です。同じフォルダに置く場合は、If f.Name <> ThisWorkbook.Name Then で自分を除外します。

パターン3: 存在確認してから安全にバックアップする

ファイルをバックアップフォルダにコピーするコードです。元ファイルの有無とバックアップ先フォルダの有無を両方確認してから実行します。

Sub SafeBackup()
    Dim fso As Object 'ファイル操作オブジェクト
    Dim srcFile As String 'コピー元ファイル
    Dim destFol As String 'バックアップ先フォルダ

    Set fso = CreateObject("Scripting.FileSystemObject")
    srcFile = "C:Tempreport.xlsx"
    destFol = "C:Backup"

    '--- 元ファイルがなければ中止する ---
    If Not fso.FileExists(srcFile) Then
        MsgBox "コピー元のファイルがありません"
        Exit Sub
    End If

    '--- バックアップ先フォルダがなければ作る ---
    If Not fso.FolderExists(destFol) Then
        fso.CreateFolder destFol
    End If

    fso.CopyFile srcFile, destFol & "" & fso.GetFileName(srcFile) 'コピー実行
    MsgBox "バックアップが完了しました"
End Sub

fso.GetFileName(srcFile) で元ファイルの名前だけを取り出し、コピー先のパスを組み立てています。先に FileExists と FolderExists でチェックしているので、途中でエラーが出ません。Exit Sub で安全に中断する書き方も覚えておくと便利です。

FileSystemObjectでよくあるエラーと対処法

NOTE

FSOを使うマクロは、必ず マクロ有効ブック（.xlsm） で保存してください。通常の .xlsx で保存すると、マクロが消えてしまいます。ファイル形式の違いは.xlsxと.xlsmの違いで解説しています。

Dir関数との使い分け

ファイル操作には、FSO以外に Dir関数 という方法もあります。VBA組み込みの関数で、参照設定なしで使えます。

両者の違いを整理しておきましょう。

使い分けの目安

• 単純な存在確認・1フォルダの列挙だけ → Dir関数でも十分
• サブフォルダまで再帰的に探す・ファイル情報を取る・読みやすさ重視 → FSO

TIP

Dir関数は、ループの途中で別のDir呼び出しを挟むと検索状態が壊れます。一方FSOは Files コレクションを For Each で回すだけなので、こうした落とし穴がありません。複雑な処理ほどFSOが安全です。

まとめ

VBA FileSystemObjectは「Windowsのファイル操作をVBAから命令できる」オブジェクトです。

• 準備は CreateObject(“Scripting.FileSystemObject”) が配布向きで安全
• フォルダは FolderExists で確認してから CreateFolder で作る（既存だとエラー・1階層のみ）
• ファイルは FileExists で確認、GetFolder + Files で一覧取得、CopyFile / MoveFile / DeleteFile で操作
• 拡張子の絞り込みは GetExtensionName が便利
• 単純な処理は Dir関数、複雑な処理や再帰探索は FSO と使い分ける

まずは「フォルダがなければ作る」のコードをVBEに貼り付けて、動きを確かめてみてください。月次の手作業がボタン1つに変わると、ファイル整理がぐっと楽になりますよ。

ファイル操作を覚えたら、次はVBA学習ロードマップで全体の学習ステップを確認してみましょう。

関連記事

• Dictionary（連想配列）の使い方｜重複削除・高速集計を実務コードで解説
• For Eachの使い方｜セル・シート・配列を一括処理
• Do Loopの使い方｜Do While・Do Untilを4パターンで解説
• Rangeの使い方｜セルの指定・範囲操作を基本から解説
• 最終行を取得する方法｜End(xlUp)とCells.Countの使い方
• If文の使い方｜条件分岐を基本から実務まで解説
• VBA変数の使い方
• .xlsxと.xlsmの違い｜マクロ有効ブックの保存形式
• VBE画面の見方｜ウィンドウの名前と役割を整理
• VBA学習ロードマップ

VBAをある程度書けるようになると、こんな壁にぶつかりますよね。特に「重複をチェックしながらループする」処理は、データが増えるほど一気に重くなります。Excelがフリーズして、保存もできずにヒヤッとした経験がある方も多いはずです。

この遅さを根本から解決してくれるのが VBA Dictionary（連想配列） です。この記事では、基本メソッドの使い方から「なぜ配列より速いのか」、そして重複削除・グループ集計・別シート転記の実務コードまで解説していきますね。

VBA Dictionary（連想配列）とは？

Dictionaryは、キー（Key）と値（Item）をペアで保管するオブジェクトです。連想配列やハッシュマップとも呼ばれます。

イメージは「ラベル付きの引き出し」です。引き出しにラベル（キー）を貼っておけば、中身（値）を探すときにラベルを見るだけで一発で取り出せます。これがDictionaryの本質です。

ふつうの配列が「1番目・2番目」と番号で管理するのに対して、Dictionaryは「商品コード」「部門名」のような意味のある名前で管理できます。

つまりDictionaryは「名前で出し入れできて、しかも検索が速い」入れ物だと覚えてください。この2つの特徴が、大量データ処理の遅さを解決してくれます。

NOTE

VBE（Visual Basic Editor）は Alt + F11 で起動します。リボンから開く場合は「開発」タブ →「Visual Basic」を選びます。「開発」タブが表示されていないときは、「ファイル」→「オプション」→「リボンのユーザー設定」で「開発」にチェックを入れてください。VBEが開いたら「挿入」→「標準モジュール」でコードを書く場所を作ります。画面構成がわからない方は、VBE画面の見方の記事も参考にしてみてください。

Dictionaryを使う準備（参照設定とCreateObject）

Dictionaryを使うには、最初にオブジェクトを生成する必要があります。生成方法は2通りあります。

方法1: 参照設定する（事前バインディング）

VBEのメニューから「ツール」→「参照設定」を開きます。一覧から Microsoft Scripting Runtime にチェックを入れます。これで準備完了です。

Sub UseEarlyBinding()
    Dim dic As Scripting.Dictionary '辞書オブジェクト
    Set dic = New Scripting.Dictionary

    dic.Add "りんご", 100
    MsgBox dic("りんご") & "円"
End Sub

参照設定すると、入力中に候補が出る入力補完（IntelliSense）が効きます。コードが書きやすくなるので、自分のPCで使う場合はこちらがおすすめです。

方法2: CreateObjectで生成する（実行時バインディング）

参照設定をせずに、コード内でオブジェクトを直接生成する方法です。

Sub UseLateBinding()
    Dim dic As Object '辞書オブジェクト
    Set dic = CreateObject("Scripting.Dictionary")

    dic.Add "りんご", 100
    MsgBox dic("りんご") & "円"
End Sub

CreateObjectは参照設定が不要です。そのため、ファイルを他の人に配布する場合に向いています。環境による設定の違いを気にしなくて済むからです。

TIP

迷ったら CreateObject を選んでおくと安全です。参照設定はファイルごとに必要で、配布先で外れていると動かなくなります。本記事のコードはすべてCreateObjectで統一しています。

Dictionaryの基本メソッド

Dictionaryの基本操作を1つずつ見ていきましょう。どれもシンプルなので、すぐに使えるようになりますよ。

Add：キーと値を追加する

Add はキーと値のペアを登録するメソッドです。

Dim dic As Object '辞書オブジェクト
Set dic = CreateObject("Scripting.Dictionary")

dic.Add "A001", "りんご" 'キー"A001"に値"りんご"を登録
dic.Add "A002", "みかん"

同じキーをもう一度Addするとエラーになります。キーは重複できないルールだからです。

Exists：キーがあるか調べる

Exists は、指定したキーが登録済みかどうかを True / False で返します。

If dic.Exists("A001") Then
    MsgBox "登録済みです"
Else
    MsgBox "未登録です"
End If

重複チェックの主役になるメソッドです。後ほどの実務コードで大活躍します。

Item：値を取り出す・書き換える

Item はキーに対応する値を取り出すプロパティです。既定プロパティなので、dic("キー") と短く書けます。

MsgBox dic("A001") '"りんご"が表示される

dic("A001") = "青りんご" '値を上書き

NOTE

Item には注意点があります。存在しないキーを dic("未登録キー") で参照すると、エラーにならず、そのキーが空の値で勝手に追加されてしまいます。存在確認には必ず Exists を使ってください。Item での判定は誤動作のもとになります。

Keys・Items：全キー・全値を取り出す

Keys は全キーを、Items は全値を、それぞれ配列で返します。

Dim k As Variant '取り出すキー
For Each k In dic.Keys
    Debug.Print k & " → " & dic(k) 'キーと値をセットで出力
Next k

For Each でキーを1つずつ取り出し、dic(k) で対応する値を引いています。For Eachの使い方との組み合わせはDictionaryの定番パターンです。

Count・Remove：件数取得と削除

Count は登録ペア数を返すプロパティです。Remove は指定したキーのペアを削除します。

MsgBox "登録数: " & dic.Count & "件"

dic.Remove "A002" '"A002"のペアを削除
dic.RemoveAll '全ペアを削除

基本メソッド早見表

なぜDictionaryは配列より速いのか

ここがこの記事のいちばん大事なところです。「なぜ速いのか」を理解すると、Dictionaryを使うべき場面が自分で判断できるようになります。

配列の重複チェックは「総当たり」になる

配列で「この値はもう登場したか」を調べるには、先頭から順に1つずつ照合するしかありません。これを線形探索と呼びます。

たとえば1,000件のデータから重複を除こうとすると、1件ごとに既存リストを全部チェックします。結果として、最悪で約100万回（1,000×1,000）の照合が必要です。データが10,000件なら約1億回に膨れ上がります。

これが二重ループ（O(n^2)）の正体です。件数が10倍になると、処理時間は100倍になります。

Dictionaryは「ラベルから直接たどる」

一方、Dictionaryは内部でハッシュテーブルという仕組みを使っています。キーを計算式（ハッシュ関数）にかけて、値を置く場所を直接割り出します。

引き出しのラベルを見て、いきなり目的の引き出しを開けるイメージです。他の引き出しを順番に開けて確認する必要がありません。

そのため、Exists や dic(キー) での検索は、データ件数に関係なくほぼ一定時間（O(1)）で終わります。重複チェックを伴うループ全体で見ても、DictionaryならO(n)で済みます。

件数が増えるほど差は爆発する

両者の照合回数を比べてみましょう。

100件程度なら配列でも一瞬です。しかし数千〜数万件になると、配列は数十秒〜数分かかる一方、Dictionaryは一瞬で終わります。この差が、冒頭の「急に遅くなる」問題の答えです。

TIP

配列が遅いのは「値で探す」ときだけです。番号（インデックス）で直接取り出す処理は配列も高速です。「名前や値で検索したい」ときがDictionaryの出番だと覚えておきましょう。

【実務】Dictionaryの活用コード3選

ここからは、実務でそのまま使えるパターンを3つ紹介します。どれもデータの準備から出力まで通しで動くコードです。

パターン1: 重複を削除して一意リストを作る

A列の商品コードから重複を除き、C列に一意のリストを書き出すコードです。

Sub RemoveDuplicates()
    Dim ws As Worksheet '対象シート
    Dim dic As Object '重複判定用の辞書
    Dim lastRow As Long '最終行
    Dim i As Long '行カウンター
    Dim key As String '判定するキー
    Dim outRow As Long '出力先の行

    Set ws = ActiveSheet
    Set dic = CreateObject("Scripting.Dictionary")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    outRow = 2

    '--- A列を1行ずつ読み、未登録のものだけC列に書き出す ---
    For i = 2 To lastRow
        key = ws.Cells(i, 1).Value
        If Not dic.Exists(key) Then
            dic.Add key, True '登録済みとして記録
            ws.Cells(outRow, 3).Value = key
            outRow = outRow + 1
        End If
    Next i

    MsgBox "重複を除いて " & dic.Count & " 件を書き出しました"
End Sub

ポイントは If Not dic.Exists(key) Then です。まだ登録されていないキーだけをC列に書き出しています。最終行は End(xlUp) で取得しています。詳しくは最終行を取得する方法をご覧ください。

パターン2: 部門別の売上を集計する

A列に部門名、B列に売上金額が入ったデータを、部門ごとに合計するコードです。

Sub GroupSum()
    Dim ws As Worksheet '対象シート
    Dim dic As Object '部門別集計用の辞書
    Dim lastRow As Long '最終行
    Dim i As Long '行カウンター
    Dim dept As String '部門名（キー）
    Dim amount As Double '売上金額
    Dim k As Variant '出力時のキー
    Dim outRow As Long '出力先の行

    Set ws = ActiveSheet
    Set dic = CreateObject("Scripting.Dictionary")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    '--- 部門名をキーにして売上を加算していく ---
    For i = 2 To lastRow
        dept = ws.Cells(i, 1).Value
        amount = ws.Cells(i, 2).Value
        If dic.Exists(dept) Then
            dic(dept) = dic(dept) + amount '既存部門に加算
        Else
            dic.Add dept, amount '新しい部門を登録
        End If
    Next i

    '--- 集計結果をD・E列に書き出す ---
    outRow = 2
    For Each k In dic.Keys
        ws.Cells(outRow, 4).Value = k
        ws.Cells(outRow, 5).Value = dic(k)
        outRow = outRow + 1
    Next k

    MsgBox dic.Count & " 部門を集計しました"
End Sub

dic(dept) = dic(dept) + amount が集計の心臓部です。既に登録済みの部門なら現在の合計に加算し、初登場の部門なら新規登録しています。ピボットテーブルのグループ集計をコードで実現するイメージです。条件分岐はIf文の使い方で行っています。

パターン3: コード→名前の対応表で別シートに転記する

「商品マスタ」シートの対応表をDictionaryに読み込み、「売上」シートの商品コードを商品名に変換しながら転記するコードです。VLOOKUPをメモリ上で高速実行するイメージです。

Sub MappingTransfer()
    Dim wsM As Worksheet '商品マスタシート
    Dim wsS As Worksheet '売上シート
    Dim dic As Object '対応表の辞書
    Dim lastRowM As Long 'マスタの最終行
    Dim lastRowS As Long '売上の最終行
    Dim i As Long '行カウンター
    Dim code As String '商品コード（キー）

    Set wsM = Worksheets("商品マスタ")
    Set wsS = Worksheets("売上")
    Set dic = CreateObject("Scripting.Dictionary")

    '--- マスタのコードと名前を対応表として読み込む ---
    lastRowM = wsM.Cells(wsM.Rows.Count, 1).End(xlUp).Row
    For i = 2 To lastRowM
        dic(wsM.Cells(i, 1).Value) = wsM.Cells(i, 2).Value
    Next i

    '--- 売上シートのコードを名前に変換してC列に書き出す ---
    lastRowS = wsS.Cells(wsS.Rows.Count, 1).End(xlUp).Row
    For i = 2 To lastRowS
        code = wsS.Cells(i, 1).Value
        If dic.Exists(code) Then
            wsS.Cells(i, 3).Value = dic(code) '対応する名前を転記
        Else
            wsS.Cells(i, 3).Value = "該当なし"
        End If
    Next i

    MsgBox "転記が完了しました"
End Sub

対応表を一度Dictionaryに読み込んでしまえば、あとは dic(code) で一発参照できます。売上データが何万行あっても高速です。VLOOKUPの数式を大量に貼るより軽く、確実に動きます。

NOTE

マスタの読み込みで dic(キー) = 値 を使っているのは、マスタ側に重複コードがあっても後の行で上書きされるだけでエラーにならないからです。Add だと重複コードでエラーになるので、対応表の読み込みではこの書き方が安全です。

Dictionaryでよくあるエラーと対処法

NOTE

Dictionaryを使うマクロは、必ず マクロ有効ブック（.xlsm） で保存してください。通常の .xlsx で保存すると、マクロが消えてしまいます。

配列・コレクションとの使い分け

VBAでデータをまとめて扱う方法には、配列・Collection・Dictionaryの3つがあります。場面に合わせて選びましょう。

使い分けの目安

• 番号で順番に処理する → 配列
• 単純に要素を束ねたいだけ → Collection
• キーで検索・重複判定・集計したい → Dictionary

TIP

「重複を除きたい」「○○ごとに合計したい」「コードから名前を引きたい」という処理が出てきたら、Dictionaryを思い出してください。二重ループで書きかけていたコードが、半分以下の行数で、しかも何倍も速くなります。

まとめ

VBA Dictionaryは「キーと値をペアで保管し、高速に出し入れできる」オブジェクトです。

• Add でペアを追加し、Exists でキーの有無を判定する
• 値の取得・上書きは dic(キー) で書ける（存在しないキーの参照は厳禁）
• Keys / Items で全要素を取り出し、For Each でループする
• 速い理由はハッシュテーブル。値で探す処理が配列より圧倒的に速い
• 重複削除・グループ集計・別シート転記の3パターンが実務の定番

データが数千行を超えて「急に遅くなった」と感じたら、Dictionaryの出番です。まずは重複削除のコードをVBEに貼り付けて、二重ループとの速度差を体感してみてくださいね。

Dictionaryを使いこなせたら、次はVBA学習ロードマップで全体の学習ステップを確認してみましょう。

関連記事

• For Eachの使い方｜セル・シート・配列を一括処理
• Do Loopの使い方｜Do While・Do Untilを4パターンで解説
• Rangeの使い方｜セルの指定・範囲操作を基本から解説
• 最終行を取得する方法｜End(xlUp)とCells.Countの使い方
• If文の使い方｜条件分岐を基本から実務まで解説
• VBA変数の使い方
• VBE画面の見方｜ウィンドウの名前と役割を整理
• VBA学習ロードマップ

この記事では、WorksheetFunction.Trim の使い方を、VBA 標準の Trim・LTrim・RTrim との違いとあわせて解説します。4つの空白処理の挙動は、入力と出力の比較表で整理します。CSV やシステム出力のデータクリーニングに使える実務コードも紹介します。最後に、Trim 系をどれだけ使っても消えないノーブレークスペース（Chr(160)）の落とし穴と対処法も取り上げます。

VBA の WorksheetFunction.Trim とは？

WorksheetFunction.Trim は、ワークシート関数の TRIM を VBA から呼び出すメソッドです。文字列の先頭と末尾のスペースを削除します。さらに、単語の間にある連続したスペースも1つだけ残して圧縮します。

VBA には標準の Trim 関数もあります。ただし標準の Trim 関数は、中間の連続スペースには手を付けません。「単語間のスペースを1つに詰める」処理は、VBA 標準関数にはない機能です。

そこで WorksheetFunction オブジェクトを経由して、ワークシート関数の TRIM を借りてくるわけです。具体的な挙動を見てみましょう。

result = WorksheetFunction.Trim("A   B   C")
'--- 結果は "A B C"（単語間スペースが1つに圧縮される）---

入力 "A B C" の単語間には、それぞれ3つのスペースがあります。WorksheetFunction.Trim を通すと、すべて1つにまとめられて "A B C" になります。

NOTE: ワークシート関数を VBA から呼ぶ仕組み全般については、VBAでWorksheetFunctionを使う方法で詳しく解説しています。

WorksheetFunction.Trim の使い方

まずは基本の構文と、実際に動かすための準備を確認します。

WorksheetFunction.Trim(Arg1)

引数は次のとおりです。

戻り値は String 型です。Application.WorksheetFunction.Trim(Arg1) と書いても同じ動作になります。Application. は省略できます。

VBE の起動と標準モジュールの準備

コードを書くには、まず VBE（Visual Basic Editor）を開きます。Excel で Alt + F11 キーを押すと VBE が起動します。

リボンから開くこともできます。「開発」タブの「Visual Basic」ボタンをクリックする方法です。「開発」タブが表示されていない場合は、次の手順で追加します。

1. 「ファイル」→「オプション」を開きます。
2. 「リボンのユーザー設定」を選びます。
3. 右側の一覧で「開発」にチェックを入れます。

VBE が開いたら、メニューの「挿入」→「標準モジュール」をクリックします。表示されたコード入力欄に、これから紹介するコードを貼り付けてください。

基本コード

実際に WorksheetFunction.Trim を動かす基本コードです。変換前と変換後をメッセージボックスで見比べられるようにしています。

Sub WorksheetFunctionTrimSample()
    Dim sBefore As String '変換前の文字列
    Dim sAfter As String  '変換後の文字列

    '--- 変換前の文字列を用意 ---
    sBefore = "  Excel   VBA   入門  "

    '--- 連続スペースを1つに圧縮し、先頭末尾も削除 ---
    sAfter = WorksheetFunction.Trim(sBefore)

    '--- 変換前後を確認 ---
    MsgBox "変換前：[" & sBefore & "]" & vbCrLf & _
           "変換後：[" & sAfter & "]"
End Sub

このコードを実行すると、変換後は [Excel VBA 入門] と表示されます。先頭と末尾のスペースが消え、単語間の連続スペースも1つに詰まりました。[ ] で囲んでいるのは、両端のスペースが消えたことを目で確認しやすくするためです。

VBA Trim・LTrim・RTrim との違い｜4関数の比較表

ここがこの記事の核心です。VBA には空白を扱う関数が複数あります。それぞれ削除する範囲が異なります。

同じ文字列に4つの関数を通すと、結果は次のように変わります。入力は " A B " とします。先頭に2つ、中間に3つ、末尾に2つのスペースがある文字列です。

Trim・LTrim・RTrim はいずれも、中間の連続スペースをそのまま残します。中間スペースを1つに詰めるのは WorksheetFunction.Trim だけです。ここが最大の違いです。

「先頭と末尾だけ消えればいい」場合は VBA 標準の Trim で十分です。「単語間の余分なスペースも整えたい」場合は WorksheetFunction.Trim を選びます。

TIP: 各関数の単体の使い方は、VBA Trim関数・VBA LTrim関数・VBA RTrim関数の各記事で解説しています。空白処理全体の使い分けはVBAで空白を削除する方法まとめも参考にしてください。

WorksheetFunction.Trim が活躍する実務シーン

WorksheetFunction.Trim の出番は、間隔がそろっていないデータを受け取ったときです。代表的なのが、システムから出力されたレポートや CSV ファイルです。項目の区切りが複数スペースになっていることがよくあります。実務で使えるコードを2つ紹介します。

実務コード1: 1つのセルをクレンジングする

A 列のセルに入った文字列を整え、B 列に書き出すコードです。

Sub CleanSingleCell()
    Dim sRaw As String   '元の文字列
    Dim sClean As String '整形後の文字列

    '--- A2セルの値を取得 ---
    sRaw = Range("A2").Value

    '--- 先頭末尾＋中間スペースを正規化 ---
    sClean = WorksheetFunction.Trim(sRaw)

    '--- 整形結果をB2セルに出力 ---
    Range("B2").Value = sClean
End Sub

A2 に " 山田 太郎 " のような値が入っていても、B2 には "山田 太郎" ときれいに出力されます。

実務コード2: セル範囲を一括クレンジングする

実務では1セルだけでなく、列全体を一気に処理したい場面が多いはずです。A 列のデータを最終行まで順番に整えるコードです。

Sub CleanRangeWithTrim()
    Dim lastRow As Long '最終行の行番号
    Dim i As Long       '行カウンター

    '--- A列の最終行を取得 ---
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    '--- 2行目から最終行まで繰り返す ---
    For i = 2 To lastRow
        '--- 文字列のセルだけを対象に正規化 ---
        If VarType(Cells(i, 1).Value) = vbString Then
            Cells(i, 1).Value = WorksheetFunction.Trim(Cells(i, 1).Value)
        End If
    Next i

    MsgBox "クレンジングが完了しました。"
End Sub

VarType でセルの値が文字列かどうかを確認しています。数値や日付のセルに Trim をかけると、意図しない型変換が起きることがあるためです。文字列のセルだけを対象にすると安全です。

ノーブレークスペース（Chr(160)）が削除できない落とし穴と対処法

WorksheetFunction.Trim には1つ大きな落とし穴があります。それが「ノーブレークスペース」です。Web ページや一部のシステムからコピーしたデータに混ざっていることがあります。

ノーブレークスペースは、文字コードの値が160の空白文字です。HTML では   として使われます。見た目は普通のスペースとそっくりですが、別の文字です。

WorksheetFunction.Trim が削除できるのは、値が32の半角スペース（Chr(32)）だけです。これは公式ドキュメントにも明記されています。VBA 標準の Trim・LTrim・RTrim も同じく、ノーブレークスペースには反応しません。

Sub TrimCannotRemoveNbsp()
    Dim sText As String '元の文字列

    '--- 単語の間にノーブレークスペースを含む文字列 ---
    sText = "A" & Chr(160) & Chr(160) & "B"

    '--- Trimをかけてもノーブレークスペースは残る ---
    MsgBox "[" & WorksheetFunction.Trim(sText) & "]"
End Sub

このコードを実行しても、A と B の間のノーブレークスペースは消えません。「Trim を試したのに空白が消えない」という現象の正体は、たいていこれです。

対処法は、ノーブレークスペースを先に半角スペースへ変換することです。Replace 関数を使います。半角スペースに変えてから WorksheetFunction.Trim を通すと、区切りのスペースを残しつつ正規化できます。

Sub CleanWithNbsp()
    Dim sRaw As String   '元の文字列
    Dim sClean As String '整形後の文字列

    '--- A2セルの値を取得 ---
    sRaw = Range("A2").Value

    '--- ノーブレークスペースを半角スペースに変換 ---
    sClean = Replace(sRaw, Chr(160), " ")

    '--- 連続スペースを1つに圧縮し先頭末尾も削除 ---
    sClean = WorksheetFunction.Trim(sClean)

    '--- 整形結果をB2セルに出力 ---
    Range("B2").Value = sClean
End Sub

「Chr(160) を半角スペースに変換 → WorksheetFunction.Trim」の順番がポイントです。いきなり全削除すると、本来必要な区切りスペースまで失われることがあります。

NOTE: ノーブレークスペースの正体と消し方は、Excelで消えない空白の正体と消し方でさらに詳しく解説しています。

WorksheetFunction.Trim を使うときの注意点・よくあるエラー

最後に、つまずきやすいポイントを整理します。

1つ目は、タブや改行は削除されないことです。削除対象はあくまで半角スペースだけです。タブ（Chr(9)）や改行（Chr(10)、Chr(13)）が混じっている場合は、Replace で個別に処理する必要があります。

2つ目は、全角スペースの扱いです。WorksheetFunction.Trim は半角スペースを対象に設計されています。全角スペースを確実に消したいときは、Replace(s, "　", " ") で半角に変換してから処理するのが安全です。

3つ目は、空セルや数値セルへの適用です。空のセルや数値のセルを直接渡すと、思わぬ型変換が起きることがあります。実務コード2のように VarType で文字列かどうかを確認してから渡すと、トラブルを防げます。

まとめ

WorksheetFunction.Trim は、文字列の先頭・末尾のスペースに加えて、単語間の連続スペースも1つに圧縮できるメソッドです。VBA 標準の Trim 関数が中間スペースを残すのに対し、こちらは中間スペースを詰めてくれます。この違いが両者の最大のポイントです。

システム出力や CSV インポート後のデータで、間隔が不規則な文字列を整えたいときに役立ちます。ただし、ノーブレークスペース（Chr(160)）は Trim 系では消せません。Replace で半角スペースに変換してから処理する、という流れを覚えておくと安心です。

空白処理の関数はそれぞれ役割が違います。先頭・末尾だけなら Trim、片側だけなら LTrim/RTrim、中間も整えるなら WorksheetFunction.Trim、と使い分けてみてください。

関連記事

• VBA Trim関数の使い方｜前後の空白を一括削除する方法
• VBA LTrim関数の使い方｜先頭の空白を削除する方法
• VBA RTrim関数の使い方｜末尾の空白を一括削除する方法
• VBAで空白を削除する方法｜Trim・Replace・全角スペースの対処法まとめ
• VBAのTrim・LTrim・RTrim関数で文字列の空白を除去する方法
• VBAでWorksheetFunctionを使う方法｜Excel関数をマクロで活用する
• Excelで消えない空白の正体と消し方｜ノーブレークスペース完全対策ガイド