正则实现字符串查找

michaelaa

麻烦老师 看一下,是否能用正常批量查找,并输出结果,谢谢!

dragonthree

这要什么正则，INSTR就可以了

dragonthree

用公式=SEARCH(I2,B2)也行

ykcbf1100

这个真不用正则。

ykcbf1100

参与一下。。。

1. Sub ykcbf() '//2024.5.20
   
2.     r = Cells(Rows.Count, 2).End(3).Row
   
3.     For i = 2 To r
   
4.         If Cells(i, 10) = 1 Then
   
5.             If InStr(Cells(i, 2), Cells(i, 9)) Then
   
6.                 Cells(i, 3) = "Y"
   
7.             Else
   
8.                 Cells(i, 3) = ""
   
9.             End If
   
10.         End If
    
11.     Next
    
12.     MsgBox "OK！"
    
13. End Sub
    

复制代码

Qs18

Sub texst()
Dim rng As Range, r As Range
With Sheet1
Set rng = .Range("b2:b" & .Cells(Rows.Count, 2).End(xlUp).Row)
For Each r In rng
    If r.Offset(0, 8).Value = 1 Then
    If r.Value Like "*" & r.Offset(0, 7).Value & "*" Then
        r.Offset(0, 1).Value = "Y"
    Else
        r.Offset(0, 1).Value = ""
    End If
    End If
Next
End With
End Sub