直接FOR循环一下好了
For I = 1 To 3
If InStrRev(Range("A" & I), Mid(Range("A3"), 1, 4)) > 0 Then
n = n + 1
End If
Next
方法一，用instr语句
http://club.excelhome.net/thread-374080-1-1.html
方法二，用find和findnext语句
http://club.excelhome.net/thread-1157231-1-1.html
千万不要用mid，把问题搞复杂了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024