很久以前，一个女孩说，她需要根据A列的名称建立一堆的文件夹，问我有没有什么好方法。

比如下图酱紫：

http://ww2/large/005IRek6gw1f4a2mrnzglj309p0badhd.jpg

我听了之后，一脸懵懂，假装清纯，实则内心有一万只草泥马奔跑不息……

因为我那时真不会。

※※※※※※

后来我才知道，这种事，如果用VBA代码，只用几句话几秒钟就可以搞定了。。。。。

Sub Newfolder()

    Dim i&, p$

    On Error Resume Next

    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row

        MkDir ThisWorkbook.Path & "\" & Cells(i, 1)

    Next

End Sub

.※※※※※※

下面按行，解释一下上面几行代码的意思呗：

第2行代码，定义变量

第3行代码，忽略程序运行中的错误，使程序继续运行，避免文件名存在特殊字符或者存在同名文件夹等情况时，代码因错中断运行——丫约的妞，再丑也得把饭吃完。

第4-6行代码，循环变量i，读取当前表格A列的数据，在代码所在工作簿的路径下，利用MrDir语句创建文件夹。

MrDir语法如下：

MrDir path

参数path是必须，为一个字符串表达式，用来指定要创建的文件夹的名称。可以包含驱动器，如果没有指定驱动器，则在当前驱动器的当前目录下创建文件夹。

※※※※※※

动画效果：

http://ww1/large/005IRek6gw1f4abuxtzfjg30ci0eqdly.gif