作者：乔山办公网日期：
返回目录：excel表格制作
sql还是不要去处理excel好，用access代替你的excel，速度会快上千倍万倍
sub ds()
for i = worksheets.count to 1 step -1
if worksheets(i).name like "sh*" then '( 这里的sh区分大小写)
worksheets(i).delete
end if
next
end sub
Public Sub 清除制本工百作表度()
Worksheets("sheet1").UsedRange.ClearContents
End Sub
Public Sub 清除所有表()
Dim WS As Worksheet
For Each WS In Worksheets
WS.UsedRange.ClearContents
Next
End Sub
Sub 删除2到10工作zhidao表()
For i = 10 To 2 Step -1
Application.DisplayAlerts = False
Sheets(i).Delete
Application.DisplayAlerts = True
Next
End Sub
如果不确定有几专张表就用下面的属
Sub 删除除1表外的工作表()
l = Sheets.Count
For i = l To 2 Step -1
Application.DisplayAlerts = False
Sheets(i).Delete
Application.DisplayAlerts = True
Next
End Sub