Question

EXCEL宏查找函数问题！

请问：下面这个宏，我想将要查找的三个字符（科顺捷），改为要查找两个或一个字符的（如：沸腾，博 等）应该如何修改了？谢谢！

Dim cel As Range
For i = 2 To 500 '从第二行开始,表头排除.先定个500行,不够可以自己加,多了循环时间加长
For ii = 5 To 20 '从第五列开始,排除E列.如5到20列不能覆盖有"科顺捷"的范围,可以自己加.
If Mid(ActiveSheet.Cells(i, ii).Value, 1, 3) = "科顺捷" Then
Cells(i, 4).Value = ActiveSheet.Cells(i, ii).Value
ActiveSheet.Cells(i, ii).Value = ""
End If
Next
Next

Answer 1

Mid(ActiveSheet.Cells(i, ii).Value, 1, 3) = "科顺捷"

改成

instr(1,ActiveSheet.Cells(i, ii).Value, "科顺捷")

'其中 科顺捷 三个字 你可以随便改 几个字都可以

追问

我在表格里的不是这个名，名称后面还有数字，如下图：

追答

上面照常改

再加下面一条
Cells(i, 4).Value = ActiveSheet.Cells(i, ii).Value
改成
Cells(i, 4).Value=""
for p=1 to len(ActiveSheet.Cells(i, ii).Value)
if (isnumeric(mid(ActiveSheet.Cells(i, ii).Value,p,1))) then exit for
Cells(i, 4).Value=Cells(i, 4).Value & mid(ActiveSheet.Cells(i, ii).Value,p,1)
next

Answer 2

FindStr="沸腾"
If ActiveSheet.Cells(i, ii).Value like "*" & FindStr & "*" Then

'更改FindStr变量的值即可.