怎样删除excel中的空白页
本文旨在说明VBA在批量删除空白工作表中的使用方法。
步骤/方法
- 01
打开EXCEL文件后,按下A力+F11进入VBA编辑器
- 02
在工程列表中选择:VBAProject(工作簿1)->Microsoft Excel 对象->ThisWorkbook并双击,然后如入如下代码,绿色文字(单引号及其后的文字)为注释,是为了让看的人明白在做什么,可不录入。 Sub DeleteBlankSheet() Application.DisplayAlerts = False ' 隐藏警告和消息 For Each Sheet In ActiveWorkbook.Sheets ' 遍历当前工作表 ' 获取工作表使用单元格数量,使用中的单元格数量为0,即为空工作表 If Application.CountA(Sheet.UsedRange.Cells) = 0 Then Sheet.Delete End If Next Application.DisplayAlerts = True ' 恢复显示警告和消息 End Sub
- 03
按F5执行过程或关闭VBA编辑器后选择视图(EXCEL2010)中的宏->查看宏->ThisWorkbook.DeleteBlankSheet->执行
赞 (0)