<a href=http://www.toutiao.com/i6368741598498390529/>「懒惰工作」EXCEL批量新建文件夹（VBA）</a>
昨天只截图，并且代码有点多，对懒惰的你可能直接写有些麻烦，所以今天就把代码贴出来。
第一，在VBE中插入一个模块，复制以下代码：
Option Explicit
Function newfile1()
'Function:批量新建文件夹，根据固定列的内容新建文件夹
'Author:流沙莫小虫
'Date:2016/12/27
On Error Resume Next
Dim num, i
num = ActiveSheet.Range("A99999").End(xlUp).Row
For i = 2 To num
VBA.MkDir (ThisWorkbook.Path & "\" & ActiveSheet.Cells(i, 1))
Next i
MsgBox "按A列内容新建文件夹已完成！"
End Function
Function newfile2() '
'Function:批量新建文件夹，选择的单元格区域内容新建文件夹
'Author:流沙莫小虫
'Date:2016/12/27
On Error Resume Next
Dim Rng As Range
For Each Rng In Selection
VBA.MkDir (ThisWorkbook.Path & "\" & Rng.Value)
Next
MsgBox "选中区域内容新建文件夹已完成！"
End Function
第二，在工程资源管理器窗口中，双击ThisWorkbook，复制以下代码：
Private Sub Workbook_Open()
'Function:在右键上增加快捷功能
'Author:流沙莫小虫
'Date:2016/12/27
Dim cmp As CommandBarPopup
Application.CommandBars("Cell").Reset
Set cmp = Application.CommandBars("Cell").Controls.Add(Type:=msoControlPopup, before:=1, temporary:=True)
With cmp
.Caption = "新建文件夹"
With .Controls.Add(Type:=msoControlButton, before:=1)
.Caption = "按A列内容新建文件夹"
.FaceId = 39
.OnAction = "newfile1"
End With
With .Controls.Add(Type:=msoControlButton, before:=2)
.Caption = "按选中区域新建文件夹"
.FaceId = 39
.OnAction = "newfile2"
End With
End With
Set cmp = Nothing
End Sub
保存，重新打开文件即可。
Tips：
1、进入VBE界面的快捷键：Alt+F11
2、工程资源管理器的样子是这样的，上面第二条是指下图红圈内的那个东东。
如果大家有其他工作中的需求，可以下面留言交流，说不一定下期更新的主题就是解决了你的问题。
