作者：乔山办公网日期：
返回目录：excel表格制作
Sub test()
Dim cel As Range
For Each cel In Range("G5:R5")
If cel.Value = 0 Then
cel.EntireColumn.Delete
End If
Next
End Sub
Vba代码，若百你的工作表名称没有规律可以就稍微度费事点，若是有规律可以用 For each ...in...next..
sub Delete_All()
with sheets("Sheet1")
.range("A2:C5").clearContents'编辑你指定的范围，这是清除专内容，删除单元格要用Delete
end with
'把这三行代属码复制粘贴，然后修改Sheet名字
end sub
这个要看到文件才行，光这么说很难想象的
用range("A2:B4").clearcontents就可以了。这是指定区域的。
也可以删除全部sheet1.cells.clearcontents