使用excel vba在逗号分隔的列中查找字符串

Question

with Excel VBA, I have to search for a specific Partnumber in a selected column. The Column has Partnumbers separated by a comma. The data in column is something like this

Column A

ab,ca,ade,ar

ad,aw,dr...

When I do a Selection.Find on that column for "ad", it returns the first row having 'ade' cannot do a find for Whole cell as there are more than 1 part number in any cell on that column Here is code I use to do that task.

Set Cell = Selection.Find(What:=:"ad", after:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)  ' This is BUG that needs correction for xlPart

If Cell Is Nothing Then
        ….
End If

What is best and efficient way of solving this issue

Thanks for help in advance...:)

Answer 1

You can use a RegExp based function like below

Public Function blCheckString(InputRange As Range, strChkString) As Boolean
Dim objRgEx As Object
Set objRgEx = CreateObject("VBScript.RegExp")
With objRgEx
    .Pattern = "\b" & strChkString & "\b"
    If .Test(InputRange.Value) Then
        blCheckString = True
    Else
        blCheckString = False
    End If
End With
Set objRgEx = Nothing
End Function

This can then be used in the code as below.

Sub Test()
If blCheckString(Selection, "ad") Then
    MsgBox "Success"
Else
    MsgBox "No Success"
End If
End Sub