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

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

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

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

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

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

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

MD コマンドとメモ帳を使用して Excel のリストをフォルダーに変換することは、簡単なバッチ スクリプトと、物事を整理しておくための Excel のコツを組み合わせた賢いトリックです。この方法は、すべてを手作業で行う必要がなく、大量のフォルダーをすばやく作成する場合に最適です。このタスクを実行するためのステップバイステップのガイドは次のとおりです。

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

次の数式をコピーするか、最初のセル値 (たとえば B1) の隣の空白セルに入力し、塗りつぶしハンドルを下にドラッグして、すべてのリスト項目に数式を適用します。

="MD "&A1

ステップ 2: 数式をコピーしてメモ帳ファイルに貼り付けます。

1. イベント Ctrlキー+ C MDコマンド式でセルをコピーします。
2. Open メモ帳 を押し Ctrlキー+ V をクリックしてコマンドを新しいファイルに貼り付けます。
   

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

クリック 名前を付けて保存 File メモ帳のタブ 名前を付けて保存 ダイアログ ボックスで、複数のフォルダーを作成するディレクトリを選択し、このファイルの名前を 。バット 拡大。最後にクリックします Save ボタン。 スクリーンショットを参照してください：

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

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

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

強力な Kutools for Excelさん セルの内容からフォルダを作成する この機能により、Excel リストから簡単かつ迅速にフォルダーを作成できるようになりました。ただし、基本的なフォルダーだけではありません。 Kutoolsを使用すると、複数レベルのサブフォルダーを含む複雑な構造を一度に作成することもできます。いくつかの簡単な手順を実行するだけで、Excel のデータを整理されたフォルダー システムに変換し、生産性を大幅に向上させることができます。

インストールした後 Kutools for Excel、をクリックしてください クツールズプラス > インポート・エクスポート > セルの内容からフォルダを作成する を開く セルの内容からフォルダを作成する ダイアログボックス：

1. フォルダーを作成する際に基づいて作成するセル値を選択します。
2. 次に、 ボタンでフォルダーの保存先フォルダーを指定します。
3. 最後に、クリック OK
   

結果：

Kutoolsはシートからのリストを処理し、指定された宛先に各エントリのフォルダーを作成します。宛先フォルダーに移動して結果を確認します。スクリーンショットを参照してください:

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

Excel で VBA コードを使用すると、リストからフォルダーを作成するという面倒なタスクを、迅速な自動プロセスに変換できます。このセクションでは、VBA コードを適用してフォルダーを生成する方法を説明します。

手順 1: VBA モジュール エディターを開いてコードをコピーする

1. 押したまま Alt + F11 Excelでキーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。
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. 押したまま Alt + F11 Excelでキーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。
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 コードを実行した後、宛先ディレクトリに移動して結果を確認します。次のスクリーンショットに示すように、セルの値に応じてフォルダーとそのそれぞれのサブフォルダーが正常に作成されたことがわかります。

関連記事：