vba方法的对象错误范围

Question

我正在尝试突出显示L列中字体颜色为红色的重复邮政编码。我在网上进行了一些研究并相应地修改了代码，但它们无法正常工作。

我使用 F8 并停在第y =工作表行...我试图在WorksheetFunction前添加应用程序。这个词，但是它给了我同样的错误。

Sub test()
    Dim x, y, LR22 As Long
    Dim zip As Worksheet

    Set zip = Worksheets("Zip")
    LR22 = zip.Cells(Rows.Count, "L").End(xlUp).Row


    For x = 2 To LR22
        If zip.Cells(x, 12) <> "" Then
            y = WorksheetFunction.Match(zip.Cells(x, 12), zip.Range("L2:L" & L22), 0)
            If x <> y Then
                zip.Cells(x, 12).Font.Color = vbRed
            End If
        End If
    Next x
End Sub

Answer 1

您无需代码即可完成此操作。对列L进行排序，然后添加条件格式公式A1 = A2。这将突出显示连续单元格中的重复条目。