1

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

希望这有意义吗？此时我正在手动进行突出显示（但有 12000 多行，所以这不是一个聪明的主意）。我对 VBA 还不是很好，我仍在努力学习更多。

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

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

视觉的

4

1 回答 1

0

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

EDIT2：添加了 testcell1、first、Second 和 Add 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
于 2013-06-06T13:45:44.437 回答