Excel 2003(.xls)中非General格式单元格识别及自定义格式清除方法

方法一：手动用条件格式定位处理 #

• 点击工作表左上角行号和列标的交叉处，选中整个工作表
• 打开顶部「格式」菜单，选择「条件格式」
• 在条件1的下拉框里选「公式」，输入：=CELL("format",A1)<>"G"
• 点击「格式」按钮，给这些单元格设置一个醒目的填充色（比如黄色），确定后所有非General格式的单元格会被标黄
• 按Ctrl+G打开定位窗口，点「定位条件」，选「条件格式」再选「相同」，就能一次性选中所有标黄的单元格
• 右键选中的区域，选「设置单元格格式」，在数字选项卡选「常规」，确定后就清除了自定义格式

方法二：用VBA宏批量处理（适合大量数据） #

• 按Alt+F11打开VBA编辑器
• 在左侧右键点击你的工作簿名称，选「插入」→「模块」
• 在弹出的模块窗口里粘贴这段代码：

Sub ClearNonGeneralFormats()
    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange
        If cell.NumberFormat <> "General" Then
            cell.NumberFormat = "General"
        End If
    Next cell
End Sub

• 按F5运行宏，程序会自动遍历已用区域，把所有非General格式的单元格转为常规格式
• 提示：运行前一定要备份工作簿，防止意外

内容的提问来源于stack exchange，提问作者Durga Prasad