当一个工作簿中存在多张多余的空白工作簿时,怎样快速删除这些多余的空白工作表呢?使用VBA是一种较为简单的解决方法。
只要借助For Each循环语句,逐个判断工作簿中的每张工作表中已使用的单元格是否为0,就可以对已使用单元格个数为0的工作表执行删除操作。
可以使用下面的过程来解决这一问题:
因为一个工作簿中至少应保留一张工作表,所以当工作簿中全部是空白工作表,或空白工作表是唯一的一张工作表时,因为不能删除必须保留的唯一一张工作表,所以执行之前的过程可能会出错。
这时可以借助IF语句来判断要删除的空白工作表是否工作簿中唯一的一张工作表,再决定是否对其执行删除操作,可以将过程更改为下面的样子:
领取专属 10元无门槛券
私享最新 技术干货