我也开个贴,代做VBA

有需要的可以回贴留言,有空就尽量回复.如果有急用的可以加我Q 55444524

回复16楼
Sub abc()
On Error Resume Next
For Each sht In ThisWorkbook.Sheets
sht.Rows("2:2").Find("手机号").EntireColumn.Delete
Next sht
End Sub

在FSO递归法取子文件夹的代码基础上修改,增加了一个字典,key为全路径文件名,item为不带扩展名的文件名,方便调用以下四个变量
'全路径文件名
'文件名无路径,无扩展
'文件路径
'文件扩展名

回复19楼~~~~~~~~