如何批量删除一个文件夹里面所有Excel文件的空sheet

mlinux

目前文件夹里面有多个Excel文件，每个文件里面包含多张sheet（有的有数据，有的没有数据），如何批量删除文件夹里面所有Excel文件包含的空sheet，只保留有数据的sheet

3190496160

没有附件，代码没有测试，自己测试
新建一个文件，保存到同一个路径下，然后在新建文件中运行代码
Sub shanchu()
Application.ScreenUpdating = False
f = Dir(ThisWorkbook.Path & "\*.xls*")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        Set w = Workbooks.Open(ThisWorkbook.Path & "\" & f, 0)
        For Each sh In wb.Worksheets
            m = Application.CountA(sh.UsedRange)
            If m = 0 Then sh.Delete
        Next sh
        wb.Close True
    End If
f = Dir
Loop
End Sub

jiangxiaoyun

遍历所有excel文件，打开，再遍历所有工作表，用counta函数+usedrange属性应该就可以判断工作表是空白的了，然后删除就是了。

独孤酒见

3190496160 发表于 2020-6-7 10:22
没有附件，代码没有测试，自己测试
新建一个文件，保存到同一个路径下，然后在新建文件中运行代码
Sub sh ...

大神，急忙救助，我想批量删除同一文件夹内所有表格中中的空列（空行）。

意思就是文件夹下有若干excel文件，csv文件，我想批量删除一些列（或行），这些列的特征是空列。

求帮助，拜谢。

3190496160

好像跟你一楼的说法不一样吧，还一直不愿上传附件，是在考验别人的耐心？