摘要： 在Excel中可通过内置或自定义的单元格样式直接设置单元格格式，十分方便。而在Excel 2007/2010中，在“开始”选项卡的“样式”组中，单击“单元格样式”可在样式库中直接选择，显得更加方便。
有时会遇到这种情况，工作簿中的自定义单元格样式非常多，需要将其全部删除，如果手动逐一操作显得有些繁琐，如下图所示的自定义单元格样式。
这时用下面的VBA代码可一次删除所有的自定义单元格样式，方法如下。
在选定区域中进行数量统计的VBA代码
如果在Excel中选择了一个或多个区域，用下面的VBA代码可以统计当前工作表所选区域中单元格（或行、列）的数量： 1. 统计选定区域中的单元格数量： Sub CountCellsInSelection()Dim CellsNum As IntegerCellsNum = Selection.CountMsgBox &q
1.按Alt F11打开VBA编辑器，在代码窗口中输入下列代码：
Sub DelCustomStyles()
Dim st As Style
For Each st In ActiveWorkbook.Styles
If Not st.BuiltIn Then st.Delete
Next
End Sub
2.关闭VBA编辑器，返回Excel界面。按Alt F8，打开“宏”对话框，执行“DelCustomStyles”宏即可一次删除所有自定义单元格样式，而内置的单元格样式会保留，如下图。
说明：删除全部自定义单元格样式后，对于应用过这些样式的单元格或区域，其单元格格式也会同时被清除
excel VBA调用浏览器打开指定网页的几种方法
下面的几段VBA代码都可以打开浏览器并打开指定的网页： 方法一：用API打开默认的浏览器 Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Lo
