string - VBA 如果单元格中的前 6 个字符不等于 01/01/then

Question

希望能帮到你。我下面有一段代码，它似乎无法正常工作

我想要代码做的是这个

如果 L 列整个长度中任何单元格的前 6 个字符不包含 01/01/，则用内部颜色 27 突出显示该单元格

目前，正如您在屏幕截图 1 中看到的，L 列中的每个单元格都用内部颜色 27 突出显示，只有单元格 L2 和 L5 应该着色。

我的代码如下，可以修改为仅突出显示不包含 01/01/作为 L 列中前 6 个字符的单元格

> PS，条件格式方法不是一个选项

一如既往，我们非常感谢任何和所有的帮助。

屏幕截图 1

我的代码

Sub Colour_If()
    RowCount = Cells(Cells.Rows.Count, "L").End(xlUp).Row
    For Each n In Range("L2:L" & RowCount)
        n = Left(n, 6)
        If n <> "01/01/" Then
        Range("L2:L" & RowCount).Interior.ColorIndex = 24

        End If
    Next n
End Sub

Answer 1

改用这个:

Sub Colour_If()

lRow = Cells(Rows.Count, 12).End(xlUp).Row

For i = 2 To lRow
If Left(Cells(i, 12), 6) <> "01/01/" Then
Cells(i, 12).Interior.ColorIndex = 24
Else
End If
Next i

End Sub