使用Excel VBA对单元格背景色进行条件设置

1、在开发工具选项中，拉入一个插件，按钮。右键选择查看代码。

输入以下代码：

For i = 2 To 11

        For j = 2 To 4

            For k = 7 To 14

                If Cells(i, k).Value = Cells(i, j) Then

                Cells(i, k).Interior.Color = RGB(255, 0, 0)

                End If

            Next

        Next

    Next

2、原始数据如下：

3、点击按钮后，设置单元格背景色为红色，判断条件为旧单与新单之间的重复值。