VBA “like” yapması gerekeni yapmaz

Yaklaşık 2500 satırlık bir listem var ve ilk sütunda "intern" ve ardından ":" kelimelerinin bir döngüde görünüp görünmediğini kontrol etmek istiyorum (:: stajyerden sonra herhangi bir pozisyonda olabilir)

Kodun önemli kısmı şuna benzer:

For k = 1 To lastrowND
intern = Worksheets("new Data").Cells(k, 1).Value


If Not intern Like "*intern*:" Then

Ancak bu komut hiçbir şeyi filtrelemez. Benim hatam nerde?

Çok teşekkür ederim

Verilerinizde iki noktadan sonra herhangi bir şey varsa, *doğru testi için bir ek ihtiyacınız olacaktır . ( *intern*:*)

Regex, önde gelen ve sonunda joker karakterleri istediğinizi varsaymak için varsayılandır. Düzenli ifadeler delicesine güçlü olabilir, bu nedenle vaktiniz varsa onlarla oynamak biraz zaman alabilir.

Bunun gibi normal ifadeleri kullanmaya çalışın:

Dim strPattern As String: strPattern = "intern(.*?):"
Dim regEx As New RegExp

' ...

With regEx
     .Global = True
     .IgnoreCase = False
     .Pattern = strPattern
End With

For k = 1 To lastrowND
   intern = Worksheets("new Data").Cells(k, 1).Value

   If Not regEx.Test(intern) Then
   ' ...