1、上次分享了《Excel怎样批量列举文件夹名》经验，将《Excel怎样批量列举文件夹名.xlsm》文件名另存为《Excel怎样批量删除文件夹（含子文件夹和文件）.xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。
2、然后按下快捷键ALT+F11打开VBE（宏）编辑界面，然后在模块1代码框最后复制如下代码：
Sub 批量删除文件夹()
'2020-10-26 22:23:13
Dim mp As String, re, m As String
mp = Range("B1").Text & "\"
On Error Resume Next
If Range("B" & Rows.Count).End(xlUp).Row = 4 Then Exit Sub
re = MsgBox("是否删除？（删除后无法恢复！）", vbYesNo)
If re = vbYes Then
For i = 5 To Range("B" & Rows.Count).End(xlUp).Row
If Range("B" & i).Text <> "" Then
m = mp & Range("B" & i).Text
If Dir(m, vbDirectory) <> "" Then
Shell "cmd.exe /c rd " & m & "/s/q", vbHide
End If
End If
Next i
End If
MsgBox "完成"
End Sub
3、以上操作动态过程如下：
4、例：“数据”文件夹下有六个文件夹，删除每个文件夹后缀有“-2”。
5、回到工作表窗口： 首先在B1填写文件夹路径，点下【列举文件夹名】命令按钮，列出所有文件夹名。然后筛选不删除文件夹删除，取消筛选。再运行【批量删除文件夹】宏，提示"是否删除？（删除后无法恢复！）"，选“是(Y)”，“数据”文件夹下三个选出文夹名全删除，运行过程如下图。
6、如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！
