标记Excel中两个单元格之间的字母不同

Question

[给出两个单元格，每个单元格包含一个长度为n（即11）的字符串，我想将底部单元格中的所有字母都用粗体，红色标记，而不是顶部的单元格。

这里是一个玩具示例：

为什么这有用？我需要相互比较许多氨基酸序列，这对于在生物学家中用Excel可视化结果是一个很好的方法。

Answer 1

类似这样的名称，例如comparetwostrings range("i1"),range("i2")

Sub comparetwostrings(rngWord1 As Excel.Range, rngWord2 As Excel.Range)
    Dim l As Long

    If rngWord1.Value <> rngWord2.Value Then

        For l = 1 To Len(rngWord1.Value)   

            If Mid(rngWord1.Value, l, 1) <> Mid(rngWord2.Value, l, 1) Then
                rngWord2.Characters(l, 1).Font.Color = vbRed
                rngWord2.Characters(l, 1).Font.Bold = True    
            Else 
                rngWord2.Characters(l, 1).Font.Color = vbBlack   
            End If

        Next l

    End If
End Sub