Excel VBA在混合数据时检查单元格是否包含字符串

Question

I have some data that contains both numeric and string values

Name Code 

Bob   1

Alice 2

Bob   33AL

Dan   AFAL

Alert  AL99

Bob    ALP

I want to select names where the "Code" column contains "AL" somewhere.

If I do

 If InStr(0, Cells(j, Code_column).Value, "AL", vbTextCompare) <> 0 Then

then my loop doesn't run because of the numeric values at some points in the column.

I have tried

 If InStr(0, CStr(Cells(j, Code_column).Value), "AL", vbTextCompare) <> 0 Then

but I am getting the same error. What should I try? A pre-loop checking if it is numeric?

Answer 1

In code something like this for data in Columns A:B of the active sheet

You can do the same thing manually without code

Then in both cases work with the output (plus then reverse the logic for your second criteria)

Sub CookHooker()
Dim rng As Range
ActiveSheet.AutoFilterMode = False
Set rng1 = Range([a1], Cells(Rows.Count, "B").End(xlUp))
rng1.AutoFilter Field:=2, Criteria1:="=*AL*", Operator:=xlAnd
End Sub