正则实现字符串查找

michaelaa · 发表于 2024-5-20 18:44

本帖最后由 michaelaa 于 2024-5-20 19:14 编辑

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

dragonthree · 发表于 2024-5-20 18:48

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

dragonthree · 发表于 2024-5-20 18:56

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

ykcbf1100 · 发表于 2024-5-20 19:09

这个真不用正则。

ykcbf1100 · 发表于 2024-5-20 19:09

参与一下。。。

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

复制代码

Qs18 · 发表于 2024-5-20 19:34

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

		自动登录	找回密码
密码			免费注册

[已解决] 正则实现字符串查找

评分

评分

评分

评分