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

Question

I would like to see if there exists a string of length 25 in a certain cell. The problem is that the cell I want to check, contains several strings seperated by a space. Of these strings, I want to know if there is a string of length 25.

If I use for example the LEN-function, I get the total length of the strings in the cell, while I want to see if there indeed exists a string of length 25 between all the strings in that cell.

Answer 1

You need to split the string into separate strings to use Len so use Split and loop through the array of strings. This is the code for a single cell check:

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