在Excel中编写脚本 - 突出显示类似值

Question

我正在尝试创建一个宏，它基本上会突出显示A列中相同颜色的值，并在蓝色和白色之间交替显示。因此，精确值按颜色分组。

希望这有道理吗？此刻我正在手动进行突出显示（但是有12000多行，所以这不是一个明智的想法）。我对VBA的态度并不是很好，我还在努力学习更多。

所以基本上这个宏将检查列A的单元格x中的值是否与同一列中的单元格x + 1相同;如果是，那么它们将突出显示为白色。现在，如果单元格x + 2与x的值不同，但单元格x + 2和x + 3的值相同，则它们将以蓝色突出显示。我需要颜色在整个行中传播

这是一个视觉效果（想象整个行是彩色的）：

Answer 1

这将突出显示列中的第二个单元格。现在颜色可能是您想要的颜色。

EDIT2 ：将testcell1，first，Second和Added Report的定义添加为工作表代码

编辑3 ：已更改＆lt;＆gt;到=

Sub runthis()


'Dim row As Integer

Dim TestCell As String
Dim first As String
Dim Second As String

Dim TestCell1 As String
Dim lastcell As Integer

Sheets("sheet1").Select

Dim Report As Worksheet
Set Report = Excel.Worksheets("Sheet1")


lastcell = Sheets("sheet1").Cells(Rows.Count, "A").End(xlUp).row

For row = 1 To lastcell
    TestCell = "A" & CInt(row)
    TestCell1 = "A" & (CInt(row) + 1)
    first = Range(TestCell).Value
    Second = Range(TestCell1).Value

    If first = Second Then
        Report.Cells(row, 1).Interior.ColorIndex = 3

    End If
Next row
End Sub