突出显示以相同的＆n;＆＃39; n开头的单元格值。字符

Question

我需要突出显示（在一列中）以相同的＆＃39; n＆＃39;开头的所有单元格值。字符。因此，我发现了一个突出显示重复的内容＆＃39;代码和我在activecell上插入左侧函数：

    For Each CL In Rng
    If WorksheetFunction.CountIf(Rng, Left(CL.Value, 4)) > 1 Then
    CL.Interior.ColorIndex = 6
    End If
    Next CL   

但由于left和countif不兼容而无法正常工作。一种解决方案是插入一个计算前n个字符的新列，然后在其上应用原始循环 但我想知道是否存在更优雅的想法:)谢谢。

Answer 1

这样做你想要的吗？ *是一张外卡。

If WorksheetFunction.CountIf(Rng, Left(CL.Value, 4) & "*") > 1 Then