String 检查Excel工作表中单元格中的多个字符串中是否存在长度为的字符串

我想看看在某个单元格中是否存在长度为25的字符串。问题是，我要检查的单元格包含几个由空格分隔的字符串。在这些字符串中，我想知道是否有长度为25的字符串

---

例如，如果我使用LEN函数，我会得到单元格中字符串的总长度，同时我想看看在该单元格中的所有字符串之间是否确实存在长度为25的字符串。

您需要将字符串拆分为单独的字符串以使用

LEN

，因此使用

拆分
并循环字符串数组。这是单单元格检查的代码：

Dim WrdArray() As String
Dim TestLen As Integer

' Get the cell and split it into separate strings in an array
WrdArray() = Split(Range("A1"))

' Loop the strings array to find any that equal 25 characters long
For i = LBound(WrdArray) To UBound(WrdArray)
    TestLen = Len(WrdArray(i))
    If (TestLen = 25) Then
        MsgBox "found one"
    End If
Next i

我使用了这段代码，它确实可以用于一次检查。如何使用此代码在给定范围内的每一行上执行它，并在已检查范围内的行旁边的单元格中打印“Find one”或“nothing found”？我会将其封装到一个函数中，作为参数通过单元格进行检查。函数可以返回长度是否匹配。然后可以循环要检查的单元格，并为每个单元格调用此函数。使用返回到它旁边的单元格的内容，无论是否找到。