Excelでフォルダの複数のファイルの名前を変更するにはどうすればよいですか？

私たちのほとんどは、フォルダ内の複数のファイルの名前を変更する必要があるというこの問題に苦しんでいる可能性があります。ファイル名をXNUMXつずつ名前変更すると、そのフォルダに数百または数千のファイルがあると気が狂います。 このタスクに対処するための良い機能はありますか？

kutools for Excelを使用して、ワークシートの特定のフォルダーからすべてのファイル名を一覧表示します

VBAコードを使用してExcelのフォルダーの複数のファイルの名前を変更します

kutools for Excelを使用して、ワークシートの特定のフォルダーからすべてのファイル名を一覧表示します

名前を変更するファイルが複数ある場合は、最初にワークシートの列に古いファイル名をリストしてから、置き換える新しいファイル名を入力できます。 ワークシート内のすべてのファイルをすばやく一覧表示するには、 Kutools for Excelさん ファイル名リスト ユーティリティ。

インストールした後 Kutools for Excel、次のようにしてください:( 今すぐExcel用Kutoolsを無料でダウンロード )

1に設定します。 OK をクリックします。 クツールズプラス > インポート・エクスポート > ファイル名リスト、スクリーンショットを参照してください：

2。 の中に ファイル名リスト ダイアログボックスで、をクリックします。 ボタンをクリックして、ファイルを一覧表示するファイルフォルダーを選択し、[ すべてのファイル ファイルタイプ、スクリーンショットを参照してください：

3。 次に、をクリックします OK ボタンをクリックすると、すべてのファイル名が新しいワークシートの列と一部のファイル属性に一覧表示されます。これで、他の不要な列を削除して、 ファイル名 列、スクリーンショットを参照してください：

このファイル名リスト機能の詳細については、クリックしてください…

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

VBAコードを使用してExcelのフォルダーの複数のファイルの名前を変更します

XNUMXつの列Aにすべての元のファイル名をリストした後、次のスクリーンショットのように列Bに新しいファイル名を入力する必要があります。

ここでは、古いファイル名を新しいファイル名に一度に置き換えるのに役立つVBAコードについて説明します。 次の手順で実行してください。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュールウィンドウ.

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で複数のワークシートの名前を変更するにはどうすればよいですか？