excel vba判断单元格之间内容是否相同，相同内容的单元格填充单元格为红色

Question

1。用vba（同行判断）
2。相同内容的单元格填充单元格为红色（只B列右边的：含B列）看下例
例：A8=R
B8=A D8=C F8=QW H8=R J8=C L8=D N8=R
填充单元格H8=R N8=R为红色
内容为文本格式

Answer 1

D8、J8变红吗？追问

H8 N8变红,因为它与A8相同（A8作为条件，不填充其单元，右边B列开始）

追答

单判第8行，还是表中有多行？
每行只判到N列？

追问

单判第8行

追答

Sub Macro1()
Dim i As Integer
For i = 2 To 14
    If Cells(8, 1) = Cells(8, i) Then
        Cells(8, i).Interior.Color = RGB(255, 0, 0)
    End If
Next
End Sub

本回答被提问者采纳