尝试使用VBA从excel创建文件夹和子文件夹

Question

我在excel中有两列数据，我正试图将它们转换为文件夹和子文件夹的列表。A列将是主文件夹的第一个列表，B列的每个条目将是A列相应文件夹中的一个子文件夹。最终结果将是20个文件夹，每个文件夹中都有一个文件夹。我以前用过这个代码-

Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub

-从一列数据创建单个文件夹的列表。我想知道如何修改代码，使第一列中的文件夹列表，并使第二列中的每个条目都是a列中相应文件夹中的子文件夹。Excel电子表格如下所示：

Column A        Column B
1   Folder 1    Subfolder in Folder 1
2   Folder 2    Subfolder in Folder 2
3   Folder 3    Subfolder in Folder 3
4   Folder 4    Subfolder in Folder 4
5   Folder 5    Subfolder in Folder 5
6   Folder 6    Subfolder in Folder 6
7   Folder 7    Subfolder in Folder 7
8   Folder 8    Subfolder in Folder 8
9   Folder 9    Subfolder in Folder 9
10  Folder 10   Subfolder in Folder 10

由于我对VBA的了解非常有限，任何帮助都将不胜感激！

Answer 1

未测试：

Sub MakeFolders()
Dim Rng As Range, rw As Range, c As Range
Dim p As String, v As String
Set Rng = Selection
'process each selected row
For Each rw In Rng.Rows
p = ActiveWorkbook.Path & "" 'set initial root path for this row
'process each cell in this row
For Each c In rw.Cells
v = Trim(c.Value) 'what's in the cell?
If Len(v) > 0 Then
If Len(Dir(p & v, vbDirectory)) = 0 Then MkDir (p & v) 'create if not already there
p = p & v & "" 'append to path (regardless of whether it needed to be created)
End If
Next c
Next rw
End Sub