求教 EXCEL中LIKE 模糊查询问题

EXCEL_1977

Dim i As Integer

Dim b As String

b = Sheets("Sheet1").Range("a1").Value

IF Sheets("Sheet1").CELLS(i,2).Value like  "*b*" then Sheets("Sheet1").Range("a1") = Sheets("Sheet1").CELLS(i,2)

上面这段代码错在哪里啊??LIKE要怎么用??  

比如:

Sheets("Sheet1").Range("a1"). Value= "上海"

Sheets("Sheet1").CELLS(i,2) .Value="中国上海虹口"

谢谢了,各位

cola

Dim i As Integer
Dim b As String
i = 1'
b = Sheets("Sheet1").Range("a1").Value

If Sheets("Sheet1").Cells(i, 2).Value Like "*" & b & "*" Then Sheets("Sheet1").Range("a1") = Sheets("Sheet1").Cells(i, 2)

方漠

用InStr()代替，如果单元格中包含“b”字样，执行程序。