Excel如何使用<em>VBA</em>删除指定文件夹下所有工作表的指定列？-VBA exce

Sub delSheet()
    Application.DisplayAlerts = False
    If Worksheets.Count >= 3 Then
        For i = Worksheets.Count To 3 Step -1
            Worksheets(i).Delete
        Next
    End If
    Application.DisplayAlerts = True
End Sub

代码及注释复如下：
Sub shanchu()
Application.DisplayAlerts = False'关闭提示制，否则每删除一百个非空工作表，都会出现提示
For i = 2 To [g65536].End(3).Row'i从2到G列最后度一个非空行数循环
Sheets(Cells(i, 7).Delete'将工作表名为G列对应问的工答作表删除
Next
Application.DisplayAlerts = True'开启提示
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 qgrmdtj()
For Each im In ActiveSheet.Shapes
im.Delete
Next
end sub
－－制－－－－－－－－－－－－－－
我还真百的不知道怎么度改进了，看问看有没有高人可答以。