作者：乔山办公网日期：
返回目录：excel表格制作
Sub iii()
For i = 1 To 65536
For k = 1 To 256
If i <> 1 Or k <> 1 Then Cells(i, k) = ""
Next
Next
End Sub
软件版本：复Office2007
方法如下：
1.下面单元格中存在填充底色、文字颜色、边制框以及条件格式等等诸多格式：
2.Alt+F11，在当前工作表中输入代百码如下：
3.F5执行代码，返回Excel，就看到所有格度式都没有了：
Sheet1.Columns.Clear
或
Sheet1.Rows.Clear
ActiveSheet.range("A1:A2").clear '清除内容和格式;
ActiveSheet.range("A1:A2").clearContents '只清除内容;