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

我正在尝试创build一个macros，它将基本突出显示列A中相同颜色的值和蓝色和白色之间的交替。 因此，确切的值按颜色分组在一起。

希望这是有道理的？ 在这一刻，我正在手动做突出显示（但有12000 +行，所以这不是一个聪明的主意）。 我还不是很了解VBA，现在还在努力学习更多。

所以基本上这个macros将检查列A的单元格x中的值与同一列中的单元格x + 1的值相同; 如果是的话，他们会被突出显示为白色。 现在，如果单元格x + 2的值与x不同，但单元格x + 2和x + 3的值相同，则会以蓝色高亮显示。 我需要颜色通过全行传播

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

Answer 1

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

编辑2 ：添加testcell1，第一，第二和添加报告的定义作为工作表代码

编辑3 ：将<>更改为=

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