上一行和下一行具有相同值时交替背景色的 Excel VBA 示例

Sub test()
    '行循环变量的声明
    Dim i As Long
    '上一行中数字变量的声明
    Dim NumPre As String
    '为 RGB 值声明变量
    Dim R As Integer
    Dim G As Integer
    Dim B As Integer

    '用“”代替上一行的数字。
    NumPre = ""

    '将 RGB 设置为黄色。
    R = 255
    G = 255
    B = 0

    With ActiveSheet
        '从第二行到最后一行重复。
        For i = 2 To 25
            '当上一行中的数字与当前行中的数字相同时
            If NumPre = .Cells(i, 2).Value Then
                '更改第一行和第二行的背景颜色
                .Range(.Cells(i - 1, 1), .Cells(i, 2)).Interior.Color = RGB(R, G, B)

                '如果上一行的数字与现在下一行的数字不同，则更改颜色。
                If NumPre <> .Cells(i + 1, 2).Value Then
                    '当 R 为 255（黄色）时为蓝色，否则为黄色
                    If R = 255 Then
                        R = 189
                        G = 215
                        B = 238
                    Else
                        R = 255
                        G = 255
                        B = 0
                    End If
                End If
            End If

            '将当前行的编号赋值给上一行编号的变量
            NumPre = .Cells(i, 2).Value
        Next i
    End With

    '结束信息
    MsgBox "最后"
End Sub