Question

我需要一个程序来检查一列中是否有重复项，如果有，我希望它检查其右边的单元格颜色。如果颜色是橙色，我想将其更改为红色，如果颜色是绿色，则要忽略它。

    Dim lastRow As Integer, num As Integer, i As Integer

    lastRow = Range("A65000").End(xlUp).Row
    For i = 2 To lastRow
        If Not IsEmpty(Cells(i, 1)) Then
            num = WorksheetFunction.Match(Cells(i, 1), Range("A1:A" & lastRow), 0)
        End If
        If i = num Then
            If Cells(i, 2).Interior.ColorIndex = 44 Then
                Cells(i, 2).Interior.ColorIndex = 3
            End If
        End If
    Next

这是我目前的尝试，但是此代码仅在第一次出现重复项时进行检查，而忽略其余部分。以下Picture将分别向您展示我所拥有的，代码所要做的和我所想要的。我希望我对这个问题很清楚，对不起，如果我看起来很无知，非常感谢您的提前帮助。

Answer 1

编辑：稍微复杂一点，因为您可能需要“返回”并为上一行着色...

var searchQuery = context.Movies.Include(m => m.Actors).Where(m => m.Name == "Jaws");

检查一列中是否有重复项，如果有，请检查重复项右侧的单元格颜色

1 个答案: