[已解决]如何批量删除工作表

edc963

请教高手如何删除所有表名中含“#”的工作表。若表名中不含"#"，请不要删除！谢谢

最佳答案

月排行榜 / 总排行榜

glhfgtd

2012-4-25 04:09

是这个意思不？
     Sub ShtDelete
     Dim m%
            For m = ActiveWorkbook.Sheets.Count To 1 Step -1
                Debug.Print Sheets(m).Name
                If Sheets(m).Name Like "*#*" Then
                    Sheets(m).Delete
                End If
            Next m
     End Sub

跳转到最佳答案楼层

glhfgtd

是这个意思不？
     Sub ShtDelete
     Dim m%
            For m = ActiveWorkbook.Sheets.Count To 1 Step -1
                Debug.Print Sheets(m).Name
                If Sheets(m).Name Like "*#*" Then
                    Sheets(m).Delete
                End If
            Next m
     End Sub

edc963

谢谢

幽月儿

glhfgtd 发表于 2012-4-25 04:09
是这个意思不？
     Sub ShtDelete
     Dim m%

Like "*#*"  的意思是不是把工作表名称中含有数字的工作表删除呢？

桀骜孤星

LIKE的意思就是里面含有这个

qhdsun

想飞的鸟

这个代码会删除表名中含有数字及#符号的可视表，最后只剩下一张可视表

蝴蝶翅膀

谢谢，学习了                  

Iweb

学习了，又有收获。