判断2个单元格内容是否相同，标示不同的字符。

一掷乾坤

想通过vba实现：判断A1和B1两个单元格每个对应位置的字符是否相同，不同的标成红色，代码要怎么写？

ykcbf1100

你既然要求助，就认真一点，总要有个附件吧。

半百

cjc209

半百 发表于 2023-3-23 15:39

思路正确               

一掷乾坤

ykcbf1100 发表于 2023-3-23 15:28
你既然要求助，就认真一点，总要有个附件吧。

因为我觉得描述一看就懂了啊。

天行道爷7

您试一下以下代码

Sub CompareCells()
    Dim cellA As Range, cellB As Range
    Dim i As Long
   
    ' 获取A1和B1单元格的引用
    Set cellA = Range("A1")
    Set cellB = Range("B1")
   
    ' 比较每个字符是否相同
    For i = 1 To Len(cellA.Value)
        If Mid(cellA.Value, i, 1) <> Mid(cellB.Value, i, 1) Then
            ' 不同的字符标成红色
            cellA.Characters(i, 1).Font.Color = RGB(255, 0, 0)
            cellB.Characters(i, 1).Font.Color = RGB(255, 0, 0)
        End If
    Next i
End Sub

一掷乾坤

半百 发表于 2023-3-23 15:39

大佬，如果是A1单元格的每个字符，检索在B1单元格不存在时，这个字符才标红，循环要怎么写？我嵌套了一个for好像不行，是不是要用do loop？

半百

一掷乾坤 发表于 2023-3-24 14:13
大佬，如果是A1单元格的每个字符，检索在B1单元格不存在时，这个字符才标红，循环要怎么写？我嵌套了一个 ...

一掷乾坤

半百 发表于 2023-3-23 15:39

试了一下，发现有个问题，数字好像没法比对，要怎么修改？

小乔℡

这个代码可以实现您所描述的功能，希望对您有所帮助