利用表格批量创建文件夹

Sub BatchCreatFolders()

Dim rCel As Range

For Each rCel In ThisWorkbook.Worksheets("抽取座位").UsedRange.Columns(3).Cells '3为C列

    On Error Resume Next

    MkDir Range("G2").Text & "\" & rCel.Text 'G2为创建文件夹目标路径所在单元格

Next

End Sub