Excel のデータリストから複数のフォルダーとサブフォルダーを作成

ワークシート内にスタッフ名のリストがあり、それぞれの情報を保存するための個別フォルダーを作成したいとします。手作業で一つひとつフォルダーを作成するのは非常に時間がかかりますが、この作業を迅速に行うための効率的な方法がいくつかあります。本ガイドでは、指定されたセルの値に基づいてフォルダーを素早く作成する複数のアプローチをご紹介します。

セルの値に基づいてフォルダーを作成

• MD コマンドとメモ帳を使用
• 強力な機能「Kutools for Excel」を使用
• VBA コードを使用

VBA コードを使用してセルの値に基づきフォルダーとサブフォルダーを作成

セルの値に基づいてフォルダーを作成

このセクションでは、セルの値のリストに基づいてフォルダーを素早く簡単に作成するさまざまな方法を、詳しいステップバイステップの手順とともにご紹介します。

MD コマンドとメモ帳を使用してリストからフォルダーを作成

Excel のリストを MD コマンドとメモ帳を使ってフォルダーに変換するのは、簡単なバッチスクリプトとExcel の整理力を組み合わせたスマートなテクニックです。この方法を使えば、手作業なしで多数のフォルダーを素早く作成できます。以下の手順に従ってタスクを完了してください：

ステップ1：MD コマンドを使用して数式を作成

最初のセル値（例：B1）の隣にある空白セルに次の数式をコピーまたは入力し、フィルハンドルを下にドラッグしてリストのすべてのアイテムに数式を適用します。

="MD "&A1

ステップ2：数式をメモ帳ファイルにコピー＆ペースト

1. MD コマンド式を含むセルを「Ctrl + C」でコピーしてください。
2. メモ帳を開き、「Ctrl + V」でコマンドを生成されたファイルに貼り付けます。
   

ステップ3：メモ帳ファイルを.bat ファイルとして保存

メモ帳の「ファイル」タブから「名前を付けて保存」をクリックし、「名前を付けて保存」ダイアログボックスで複数のフォルダーを作成したいディレクトリを選択してください。その後、ファイル名に「。bat」拡張子を付けて入力し、「保存」ボタンをクリックします。スクリーンショットをご覧ください：

ステップ4：.bat ファイルをダブルクリックして複数のフォルダーを生成

1. メモ帳ファイルを閉じて、先ほど .bat ファイルを保存したフォルダーに移動してください。
2. それでは、魔法のような瞬間をご覧ください！ファイルをダブルクリックするだけで、複数のフォルダーが一気に作成される様子を以下のデモでご確認いただけます。
   

強力なツール「Kutools for Excel」を使用してリストからフォルダーを作成

強力な Kutools for Excel の「範囲に基づいてフォルダを作成する」機能を使えば、Excel のリストからフォルダーを簡単かつ迅速に作成できます。基本的なフォルダーだけでなく、マルチレベルのサブフォルダーを含む複雑な構造も一度に生成可能。わずか数ステップで Excel データを整理されたフォルダーシステムに変換し、大幅に生産性を向上させましょう。

Kutools for Excel をインストール後、「KUTOOLS PLUS」＞「インポート／エクスポート」＞「範囲に基づいてフォルダを作成する」をクリックして、［範囲に基づいてフォルダを作成する］ダイアログボックスを開きます。

1. フォルダー作成の元となるセルの値を選択してください。
2. 次に、ボタンをクリックして、フォルダーの保存先を指定します。
3. 最後に、「OK」ボタンをクリックしてください。
   

結果：

Kutools がシート内のリストを処理し、指定された場所に各項目に対応するフォルダーを自動作成します。出力先フォルダーに移動して、結果をご確認ください。スクリーンショットもご参照ください。

VBA コードを使用してリストからフォルダーを作成

Excel で VBA コードを使えば、リストからフォルダーを作成する面倒な作業を、スピーディーかつ自動化されたプロセスに変えられます。このセクションでは、VBA コードを使ってフォルダーを生成する方法をご紹介します。

ステップ1：VBA モジュールエディターを開き、コードをコピー

1. Excel で「Alt + F11」キーを押すと、「Microsoft Visual Basic for Applications」ウィンドウが開きます。
2. 「挿入」＞「標準モジュール」をクリックし、表示されるモジュールウィンドウに次のコードを貼り付けてください。
   VBA コード：セルの値に基づいてフォルダーを作成

   Sub CreateFoldersFromSelection()
   'Updateby Extendoffice
       Dim FolderPath As String
       Dim Cell As Range
       Dim SelectedRange As Range
       Dim FolderName As String
       On Error Resume Next
       Set SelectedRange = Application.InputBox("Select the range with folder names", "Kutools for Excel", Type:=8)
       If SelectedRange Is Nothing Then Exit Sub
       On Error GoTo 0
       
       With Application.FileDialog(msoFileDialogFolderPicker)
           .Title = "Select the destination Folder"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           FolderPath = .SelectedItems(1) & "\"
       End With
       
       For Each Cell In SelectedRange
           FolderName = FolderPath & Cell.Value
           If Cell.Value <> "" And Not FolderExists(FolderName) Then
               MkDir FolderName
           End If
       Next Cell
   End Sub
   
   Function FolderExists(ByVal Path As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(Path) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

ステップ2：コードを実行

1. このコードを貼り付けたら、F5 キーを押して実行してください。表示されるプロンプトボックスで、フォルダーを作成したいセルの値を選択し、「OK」をクリックします。
   
2. 次に表示される「出力先フォルダーの選択」ウィンドウで、作成したフォルダーの出力先パスを指定し、「OK」ボタンをクリックしてください。スクリーンショットをご確認ください：
   

結果：

VBA コードを実行後、出力先ディレクトリに移動して結果をご確認ください。Excel リストの各項目に対応する新規フォルダーが作成されています。スクリーンショットをご覧ください：

VBA コードを使用してセルの値に基づきフォルダーとサブフォルダーを作成

場合によっては、フォルダーだけでなく、対応するサブフォルダーもExcel セル内のデータに基づいて一括作成する必要があります。こうしたタスクを効率的に実行するため、ここでは VBA コードをご紹介します。

ステップ1：データを準備

まず、以下のスクリーンショットのようにデータを入力してください。メインフォルダ名は最初の列に、サブフォルダー名は2 列目に入力します。

ステップ2：VBA モジュールエディターを開き、コードをコピー

1. Excel で「Alt + F11」キーを押すと、「Microsoft Visual Basic for Applications」ウィンドウが開きます。
2. 「挿入」＞「標準モジュール」をクリックし、表示されるモジュールウィンドウに次のコードを貼り付けてください。
   VBA コード：セルの値に基づいてフォルダーとサブフォルダーを作成

   Sub CreateFoldersAndSubfoldersWithUserInput()
   'Updateby Extendoffice
       Dim Rng As Range
       Dim Cell As Range
       Dim basePath As String
       Dim fldrPicker As FileDialog
       Dim FolderPath As String, subfolderPath As String
       On Error Resume Next
       Set Rng = Application.InputBox("Select the range of cells (two columns: one is folder column, another s subfolder column):", "Kutools for Excel", Type:=8)
       If Rng Is Nothing Then Exit Sub
       On Error GoTo 0
       Set fldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
       With fldrPicker
           .Title = "Select the Base Folder Path"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           basePath = .SelectedItems(1)
       End With
       If Right(basePath, 1) <> "\" Then basePath = basePath & "\"
       For Each Cell In Rng.Columns(1).Cells
           If Not Cell.Value = "" Then
               FolderPath = basePath & Cell.Value
               If Not FolderExists(FolderPath) Then MkDir FolderPath
               If Not Cell.Offset(0, 1).Value = "" Then
                   subfolderPath = FolderPath & "\" & Cell.Offset(0, 1).Value
                   If Not FolderExists(subfolderPath) Then MkDir subfolderPath
               End If
           End If
       Next Cell
   End Sub
   
   Function FolderExists(FolderPath As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(FolderPath) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

ステップ3：コードを実行

1. このコードを貼り付けたら、F5 キーを押して実行してください。表示されるプロンプトボックスで、フォルダーを作成したいセルの値を選択し、「OK」をクリックします。
   
2. 次に表示されるポップアップウィンドウで、作成したフォルダーの出力先パスを指定し、「OK」ボタンをクリックしてください。スクリーンショットをご確認ください：
   

結果：

VBA コードを実行後、出力先ディレクトリに移動して結果をご確認ください。セルの値に基づいてフォルダーとそのサブフォルダーが、以下のスクリーンショットのように正常に作成されていることを確認できます。

関連記事：