Excel VBA实现单元格内容逐字符对比并高亮差异的代码问题排查

原代码存在几个核心问题，导致运行异常：

• 变量声明不规范：VBA中Dim a, b As Integer仅b为整数类型，其余为变体类型，易引发数据类型混乱
• 字符串拆分逻辑错误：Array(cell1)是把整个单元格内容作为数组单个元素，而非拆分每个字符，直接索引会导致越界
• Characters方法索引错误：VBA里该方法的起始索引是1，而非0，用0会选中整个单元格
• 循环范围不合理：循环到字符串长度时会超出索引边界，且未处理两个字符串长度不一致的情况
• 不必要的工作表激活：频繁激活工作表既低效又容易触发意外问题

修正后的代码：

Sub CompareAndMarkDifferences()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long, maxRow As Long
    Dim rowNum As Long, charPos As Long
    Dim str1 As String, str2 As String
    Dim maxLen As Long
    
    ' 直接引用工作表，避免频繁激活
    Set ws1 = ThisWorkbook.Worksheets(1)
    Set ws2 = ThisWorkbook.Worksheets(2)
    
    ' 获取有效行数，用Long避免整数溢出
    lastRow1 = ws1.UsedRange.Rows.Count
    lastRow2 = ws2.UsedRange.Rows.Count
    maxRow = IIf(lastRow1 > lastRow2, lastRow1, lastRow2)
    
    For rowNum = 1 To maxRow
        ' 转为字符串，空单元格视为空字符串
        str1 = CStr(ws1.Cells(rowNum, 1).Value)
        str2 = CStr(ws2.Cells(rowNum, 1).Value)
        
        ' 重置字体颜色为默认，避免残留标记
        ws1.Cells(rowNum, 1).Font.ColorIndex = xlAutomatic
        ws2.Cells(rowNum, 1).Font.ColorIndex = xlAutomatic
        
        ' 仅内容不同时执行标记逻辑
        If str1 <> str2 Then
            maxLen = IIf(Len(str1) > Len(str2), Len(str1), Len(str2))
            
            For charPos = 1 To maxLen
                ' 提取对应位置字符，超出长度则视为空
                Dim char1 As String, char2 As String
                char1 = IIf(charPos <= Len(str1), Mid(str1, charPos, 1), "")
                char2 = IIf(charPos <= Len(str2), Mid(str2, charPos, 1), "")
                
                ' 字符不同则标红
                If char1 <> char2 Then
                    ws1.Cells(rowNum, 1).Characters(charPos, 1).Font.ColorIndex = 3
                    ws2.Cells(rowNum, 1).Characters(charPos, 1).Font.ColorIndex = 3
                End If
            Next charPos
        End If
    Next rowNum
End Sub

关键优化点：

• 规范变量类型，用Long存储行数避免整数溢出
• 直接引用工作表，无需激活，提升运行效率与稳定性
• 用Mid函数直接提取单个字符，省去冗余的数组转换步骤
• 处理字符串长度不一致的场景，超出长度的位置视为空字符并标红
• 每次处理前重置单元格字体颜色，清除历史标记残留
• 正确使用Characters方法的起始索引（从1开始），并指定长度为1，确保仅标记单个差异字符

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