Excelでフォルダ内の複数のファイルを一括でリネームする方法は？

Author Xiaoyang Last modified 2025-08-26

多くの人が、フォルダ内の複数のファイル名を変更する必要があるという問題に悩まされているかもしれません。数百や数千のファイルが存在する場合、ファイル名を1つずつ変更するのは非常に大変です。このような作業を効率化するための良い機能はありますか？

ステップ 1: Kutools for Excelを使用して特定のフォルダからすべてのファイル名をワークシートにリストアップする

ステップ 2: VBAコードを使用してExcelでフォルダ内の複数のファイルをリネームする

Kutools for Excelを使用して特定のフォルダからすべてのファイル名をワークシートにリストアップする

複数のファイルをリネームしたい場合、まずワークシートの列に古いファイル名をリストし、その後、新しいファイル名を入力します。ワークシートにすべてのファイルを素早くリストするには、Kutools for Excelの「ファイル名リスト 」機能を使用できます。

Kutools for Excelをインストール後、次の手順を行ってください：（ 今すぐKutools for Excelを無料ダウンロード ）

1. 「Kutools Plus」＞「インポート＆エクスポート」＞「ファイル名リスト」をクリックしてください。スクリーンショットをご覧ください：

Filename List option on the Kutools Plus tab on the ribbon

2「 ファイル名リスト 」ダイアログボックスで、「」ボタンをクリックして、ファイルをリストしたいフォルダを選択し、次に「 すべてのファイル 」から「 ファイルの種類」を選択してください。スクリーンショットをご覧ください：

Filename List dialog box

3. 次に「OK」ボタンをクリックすると、すべてのファイル名が新しいワークシートの列にリストされ、いくつかのファイル属性も表示されます。不要な列を削除し、「ファイル名」列だけを残すことができます。スクリーンショットをご覧ください：

All filenames are listed in a column in a new worksheet

この「ファイル名リスト」機能についてさらに詳しく知るにはこちらをクリック…

今すぐKutools for Excelを無料ダウンロード

VBAコードを使用してExcelでフォルダ内の複数のファイルをリネームする

列Aにすべての元のファイル名をリストしたら、次のスクリーンショットのように列Bに新しいファイル名を入力します：

Original filenames in column A, and new filenames in column B

ここで、古いファイル名を新しいファイル名に一度に置き換えるのに役立つVBAコードを紹介します。以下の手順に従ってください：

1. ALT + F11キーを押したままにすると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 「挿入」＞「モジュール」をクリックし、モジュールウィンドウに次のマクロを貼り付けます。

VBAコード：フォルダ内の複数のファイルをリネームする

Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
If .Show = -1 Then
    xDir = .SelectedItems(1)
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
        xRow = 0
        On Error Resume Next
        xRow = Application.Match(xFile, Range("A:A"), 0)
        If xRow > 0 Then
            Name xDir & Application.PathSeparator & xFile As _
            xDir & Application.PathSeparator & Cells(xRow, "B").Value
        End If
        xFile = Dir
    Loop
End If
End With
End Sub

3. コードを貼り付けた後、F5キーを押してこのコードを実行し、「参照」ウィンドウでファイル名を変更したいフォルダを選択します。スクリーンショットをご覧ください：

Browse window

4. 「OK」をクリックすると、すべての古いファイル名が新しいファイル名に即座に置き換えられます。スクリーンショットをご覧ください：

注意：

1. 古いファイル名と新しいファイル名をリストする際、ファイル拡張子を含める必要があります。

2. 上記のコードでは、参照A:Aはリネームしたい古いファイル名のリストを示し、参照Bは使用したい新しいファイル名を含みます。必要に応じてこれらを変更できます。

デモ：Excelでフォルダ内の複数のファイルをリネームする

Kutools for Excel: あなたの指先に 300 以上の便利なツールが集結！永久無料のAI機能をお楽しみください！今すぐダウンロード！

Excelでセル範囲からシーケンスワークシートを作成する方法は？

Excelで複数のワークシートをリネームする方法は？

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数