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

ワークシート範囲内にスタッフ名のリストがあり、それぞれの情報を保存するための個別のフォルダを作成したいとします。各フォルダを手動で作成するのは時間がかかる場合があります。しかし、このプロセスを効率化する方法がいくつかあります。このガイドでは、指定されたセル値に基づいてフォルダを迅速に生成するための複数のアプローチを共有します。

セル値に基づいてフォルダを作成する

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

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

セル値に基づいてフォルダを作成する

このセクションでは、さまざまな方法について詳しく説明し、リスト内のセル値に基づいてフォルダを迅速かつ簡単に作成するための包括的なステップバイステップの指示を提供します。

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

Excelのリストをフォルダに変える際に、MDコマンドとメモ帳を使うのは、簡単なバッチスクリプトとExcelの整理能力を組み合わせた賢いテクニックです。この方法は、大量のフォルダを素早く作成するのに最適で、すべて手作業で行う必要はありません。以下は、このタスクを実行するためのステップバイステップガイドです：

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

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

="MD "&A1

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

1. 「Ctrl + C」を押して、MDコマンド数式のあるセルをコピーします。
2. メモ帳を開き、「Ctrl + V」を押してコマンドを新しいファイルに貼り付けます。
   

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

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

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

1. メモ帳ファイルを閉じ、以前に .bat ファイルを保存したフォルダに移動します。
2. さあ、魔法を見ましょう：ファイルをダブルクリックすると、一度に複数のフォルダが作成されるのがわかります。以下のデモをご覧ください：
   

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

強力な Kutools for Excel の「範囲に基づいてフォルダを作成する」機能を使えば、Excelのリストから簡単に素早くフォルダを作成できます。基本的なフォルダだけでなく、Kutools では複数レベルのサブフォルダを持つ複雑な構造も一括で作成可能です。わずか数ステップで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コードを実行後、宛先ディレクトリに移動して結果を確認します。セル値によって指定されたフォルダとそれぞれのサブフォルダが正常に作成されていることがわかります。次のスクリーンショットをご覧ください：

関連記事：