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

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

希望这有意义吗?目前,我正在手动突出显示(但是有12000行,所以这不是一个聪明的主意).我对VBA的了解还不是很好,并且仍在尝试学习更多.

因此,基本上,此宏将检查列A的单元格x中的值是否与同一列中的单元格x 1相同;如果是,则它们将突出显示为白色.现在,如果单元格x 2与x的值不同,但是单元格x 2和x 3是相同的值,它们将以蓝色突出显示.我需要颜色才能穿过整个行

这是一个视觉效果(将整个行想象成彩色的):

最佳答案
这将突出显示列中的第二个单元格.颜色现在可能是您想要的精确颜色.

EDIT2:添加了testcell1,first,Second和Added Report的定义作为工作表代码

编辑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

转载注明原文:Excel中的脚本编写—突出显示类似的值 - 代码日志