Sub Del_Dable()

    Dim c As Worksheet

    For Each c In Worksheets

         If Right(c.Name, 6) = "有限责任公司" Or Right(c.Name, 4) = "有限公司" Then

         ‘判断表名右边几个字符是不是和上面的相等，相等就删除表

          Application.DisplayAlerts = False

          c.Delete

        End If

    Next c

End Sub

本文出自 “旅游人生” 博客，谢绝转载！