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

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

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

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

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

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

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

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

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

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

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

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

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

列Aにすべての元のファイル名をリストしたら、次のスクリーンショットのように列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キーを押してこのコードを実行し、「 参照」ウィンドウでファイル名を変更したいフォルダを選択します。スクリーンショットをご覧ください：

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

注意：

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

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

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

関連記事：

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

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