摘要：
①问题提出:如何判断指定工作表为空? 解决方案:利用Excel函数CountA统计指定工作表中的非空单元格,若为0,即为空工作表. 代码: Sub 判断指定工作表是否为空() If Application.WorksheetFunction.CountA(Worksheets(1).UsedRange.Cells) = 0 Then MsgBox "空工作表!" & "是否删除?" Workshe... 阅读全文
摘要：
问题提出:如何批量删除不需要的工作表? 解决方案:首先需要选定不能删除的工作表,统计出个数,将其移至工作簿所有工作表的最前边,利用统计的个数设置循环操作,逐一删除未选定的工作表. 代码: Sub 批量删除工作表() Dim n As Integer, i As Integer n = ActiveWindow.SelectedSheets.Count '统计当前窗口选择的工作表数量 ActiveW... 阅读全文