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

还在为Excel中不同格式的数字比较烦恼吗？教你用VBA宏，将指定列（如G、H列）的值智能转换为数字，并进行精准对比。

一旦发现数值不符，立即自动标黄，让你轻松识别数据异常，告别繁琐手动校对，大幅提高数据处理效率与准确性。

在Excel中，有时需要比较两列的值，并根据比较结果对单元格进行标记。

特别是在处理可能包含文本或数字的单元格时，直接比较可能会导致不准确的结果。如何使用VBA宏将指定列的值转换为数字，然后进行比较，并在不相等时将单元格背景色标黄。

实现思路

1. 遍历指定列：遍历Sheet1的G列和H列。
2. 转换为数字：使用CDbl函数将单元格的值转换为数字。
3. 比较值：比较转换后的值。
4. 标记单元格：如果值不相等，则将单元格的背景色设置为黄色。

代码实现

以下是一个完整的VBA宏代码示例，实现了上述功能：

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
    
    ' 遍历G列和H列，转换为数字并进行比较
    For i = 1 To lastRow
        ' 尝试将G列和H列的值转换为数字
        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

代码解释

• 设置工作表：Set ws = ThisWorkbook.Sheets("Sheet1") 指定要操作的工作表。
• 确定最后一行：lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row 找到G列的最后一个非空单元格的行号。
• 遍历列：使用For循环遍历每一行。
• 转换为数字：使用CDbl函数将单元格的值转换为数字，并忽略转换错误。
• 比较值：如果转换后的值不相等，则将单元格的背景色设置为黄色。

使用说明

1. 打开Excel，按 Alt + F11 打开VBA编辑器。
2. 在“插入”菜单中选择“模块”，将上述代码粘贴到模块中。
3. 关闭VBA编辑器，按 Alt + F8，选择 ConvertToNumberAndCompare 宏，并运行。

注意事项

• 如果单元格的值无法转换为数字（例如，包含非数字字符的文本），CDbl 函数会返回错误。为了避免宏因错误而中断，使用了 On Error Resume Next 来忽略错误，并在转换完成后使用 On Error GoTo 0 恢复正常的错误处理。
• 如果需要处理I列和J列的比较，可以类似地添加代码，遍历这两列并进行相同的转换和比较操作。

来此加密将“免费”与“自动化”做到极致。普通用户同样享有通配符、多域名证书服务，自动域名验证免去手动麻烦，证书到期前自动重申并部署，彻底告别人工运维。