Excel中进行VBA编程序用宏删除空工作表的操作方法
EXCEL默认的工作表一般有三个。常常会遇到需要删除掉空的不用的删工作表。这个操作除了一步步手动,还可以通过宏来快速批量处理。今天,店铺就教大家在Excel中进行VBA编程序用宏删除空工作表的操作方法。
Excel中进行VBA编程序用宏删除空工作表的操作步骤:
打开一个工作簿,本例中有三个工作表,工作表名为工资表的有数据,其它两个sheet2和sheet3为空白。
打开VBA编辑器,插入一个模块1。
在模块1中输入代码
Sub test1()Dim ws As Worksheet Application.DisplayAlerts = False For Each ws In ActiveWorkbook.Worksheets ws.Activate If ActiveWorkbook.Worksheets.Count > 1 Then If IsEmpty(ActiveSheet.UsedRange) Then '如表格为空 ws.Delete '则删除该表 End If End If Next ws Application.DisplayAlerts = TrueEnd Sub
执行该宏
vba编程技巧两个空白的表被批量删除了。
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论