VBA透镜函数

我在VBA中有以下代码：

For x = 4 To 3918
    If InStr(Cells(x, 2), "LW") Then
        numToFind = Cells(x, 1)
        For y = 4 To 3918
            If Cells(y, 1) = numToFind Then
                Cells(y, 1).EntireRow.Interior.ColorIndex = 4
            End If
        Next y
    End If
Next x

但是，我正在尝试将第2行中的条件从“if cell x，2包含字符串“LW”更改为“if cell x，2包含5个字符…”。我在正确使用len（）函数时遇到问题。有人能帮忙吗

---

谢谢大家!

这里：

如果len（trim（cell（x，2.value））=5，那么….

这里：

如果len（trim（cell（x，2.value））=5，那么….

如果len（cell（x，2.value）=5，那么最好将其作为一个答案：）

如果len（cell（x，2.value）=5，那么最好将其作为一个答案：）
你现在如何使用不当？看到你的尝试可以帮助其他人诊断你的问题。如果len（cells（x，2）.value）=5，那么诚实的问题是：为什么这不只是一种条件格式<代码>=FIND（“lw”，B1）

用于原始逻辑，或

=LEN（B1）>4

或用于长度逻辑？？您现在如何不正确地使用它？看到你的尝试可以帮助其他人诊断你的问题。如果len（cells（x，2）.value）=5，那么诚实的问题是：为什么这不只是一种条件格式<代码>=FIND（“lw”，B1）用于原始逻辑，或

=LEN（B1）>4

或用于您的长度逻辑？？我们知道是否需要5个字符吗？或者至少5个字符？我读到的“包含5个字符”与“包含LW”相同。。换句话说，它可能有其他文本，只要它包含您要查找的内容。。（即5个字符）。因此字符串“asdfasdfasdf”包含5个字符。（它正好包含12个字符，但也包含5个、6个和3个……）（我们知道我们是否需要5个字符吗？或者至少5个字符？我读到的“包含5个字符”与“包含LW”相同。。换句话说，它可能有其他文本，只要它包含您要查找的内容。。（即5个字符）。因此字符串“asdfasdfasdf”包含5个字符。（它正好包含12个，但也包含5、6和3…））谢谢！成功了。我刚刚犯了一个错误，必须将这两个函数合并，所以我说如果Len（Cells（x，2）.Value）=5和InStr（Cells（x，2），“LW”），那么它工作得很好：）谢谢！非常感谢。成功了。我刚刚犯了一个错误，必须将这两个函数合并，所以我说如果Len（Cells（x，2）.Value）=5和InStr（Cells（x，2），“LW”），那么它工作得很好：）谢谢！

If Len(Cells(x, 2).value) = 5 Then