每个人都可以，
拥有SSL证书

工作上偶尔会遇到这种情况：Sheet1 里 G 列和 H 列存了一些数值，但单元格格式是文本，或者混进了看起来像数字的文本。直接用等号去比，经常出现明明看着一样的两个数，结果却是不相等。这种时候就只能先把值转成真正的数字再比较。

我写了一个简单的宏来做这件事，遍历 G、H 两列，用 CDbl 把值强转成 Double，然后比较，不一样的单元格就标黄。

代码不长，直接放下面了：

Sub ConvertToNumberAndCompare()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row
    
    For i = 1 To lastRow
        On Error Resume Next
        ws.Cells(i, 7).Value = CDbl(ws.Cells(i, 7).Value)
        ws.Cells(i, 8).Value = CDbl(ws.Cells(i, 8).Value)
        On Error GoTo 0
        
        If ws.Cells(i, 7).Value <> ws.Cells(i, 8).Value Then
            ws.Cells(i, 7).Interior.Color = RGB(255, 255, 0)
            ws.Cells(i, 8).Interior.Color = RGB(255, 255, 0)
        End If
    Next i
End Sub

宏跑起来之后，会直接把 G 列和 H 列原有的文本数字原地转成数值，这一步是破坏性的——单元格里存的内容就变了。如果不希望改动原始数据，得先备份或者改用变体变量来比较，别直接写回 Value。

这个小细节我一开始也踩过坑，线上直接跑完才发现原格式全没了。

转换那里用 On Error Resume Next 兜了一下，因为万一某个单元格里是纯文本，CDbl 会直接报错。

不处理的话整个宏就停了。在这里忽略掉错误，转不了的就保持原样，后面再比较时，如果一个是数字一个是文本，那肯定会不相等，也会被标黄，正好能让异常数据暴露出来。注意 On Error GoTo 0 得马上恢复，不然后面出别的错都悄悄跳过了，查问题的时候能让人找半天。

如果要扩展到 I 列和 J 列，照猫画虎加一段循环就行，比如把列号 7、8 换成 9、10。也可以把列号抽成参数传进去，但如果只是一次性需求，直接改数字最快。

运行方式没什么特别的：Alt + F11 打开 VBA 编辑器，插入一个模块，把代码贴进去，然后 Alt + F8 选这个宏执行。

记得在这之前先保存一下文件，因为这种修改没办法撤销。