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」ボタンをクリックすると、すべてのファイル名が新しいワークシートの列にリストされ、いくつかのファイル属性も表示されます。不要な列を削除し、「ファイル名」列だけを残すことができます。スクリーンショットをご覧ください:
この「ファイル名リスト」機能についてさらに詳しく知るにはこちらをクリック…
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でセル範囲からシーケンスワークシートを作成する方法は?
最高のオフィス生産性ツール
🤖 | Kutools AI アシスタント: データ分析を革命化する: インテリジェント実行 | コード生成 | カスタム数式の作成 | データを分析しグラフを生成 | 拡張機能を呼び出す… |
人気の機能: 重複を見つけてハイライトまたはマーキング | 空白行を削除 | データを失わずに列またはセルを統合 | 丸める ... | |
スーパーLOOKUP: 複数条件のVLookup | 複数値のVLookup | 複数シートの検索 | ファジーマッチ .... | |
高度なドロップダウンリスト: ドロップダウンリストを迅速に作成 | 依存ドロップダウンリスト | マルチセレクトドロップダウンリスト .... | |
列管理: 特定の数の列を追加 | 列を移動 | 非表示列の可視ステータスを切り替え | 範囲と列を比較 ... | |
注目の機能: グリッドフォーカス | デザインビュー | 強化された数式バー | ワークブック & ワークシート管理 | オートテキスト ライブラリ (Auto Text) | 日付ピッカー | データの統合 | セルの暗号化/復号化 | リストで電子メールを送信 | スーパーフィルター | 特殊フィルタ (太字/斜体/取り消し線をフィルタリング...) ... | |
トップ15のツールセット: 12 のテキストツール (テキストの追加, 特定の文字を削除, ...) | 50以上 のグラフ の種類 (ガントチャート, ...) | 40以上の実用的な 数式 (誕生日に基づいて年齢を計算する, ...) | 19 の挿入ツール (QRコードの挿入, パスから画像を挿入, ...) | 12 の変換ツール (単語に変換する, 通貨変換, ...) | 7 の統合 & セルの分割ツール (高度な行のマージ, セルの分割, ...) | ...さらに多く |
Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、300以上の高度な機能を提供し、生産性を向上させ、保存時間を節約します。 最も必要な機能を入手するにはここをクリック...
Office TabはOfficeにタブインターフェイスをもたらし、作業を非常に簡単にします
- Word、Excel、PowerPoint、Publisher、Access、Visio、Projectでタブ付きの編集と読み取りを有効にします。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を50%向上させ、毎日数百回のマウスクリックを減らします!