1、将上述
1120015
1120016
1120019
粘贴到Excel表，从A1单元格开始。
2、Alt + F11
3、插入—模块
4、双击左侧“模块1”，在右侧输入以下代码。
Sub 批量建文件夹()
Dim i As Integer
i = 1
Do While Range("A" & i).Value <> ""
MkDir "d:\" & Range("A" & i).Value
i = i + 1
Loop
End Sub
5、回到Excel表，按Alt + F8，点“批量建文件夹”—“执行”。将在D盘下生成空文件夹。
注意：运行一次后D盘下已经建了很多空文件夹，如果再次执行第5步，会因为同名文件夹已经存在而提示出错。