使用InStr函数时需要注意的一个地方

边缘码农

  在VBA中，经常会用InStr函数判断一个字符串是否包含在另外一个字符串中。

  在解决“对匹配的风险物质进行汇总（涉及合并单元格）”这个帖子的问题编写的代码中使用了这个函数，楼主反馈：

  “同一个原料（多个组分对应多种风险物质）中有风险物质“苯”、“苯酚”，会将“苯”去重了，只剩下“苯酚”，请问要怎么样才可以精准去重？”

  经测试楼主提供的附件，确实如此。分析代码运行中各变量的值，最终发现是使用InStr这个函数产生的问题。

例如：

  在代码中，会进行这样的判断：

1. If InStr(ListYL, Now(X)) = 0 Then ListYL = ListYL & Now(X) & "、"

复制代码

  运行过程中，实际的判断是这样：

  InStr("农药残留、苯酚、", "苯")

  我们期望的结果是返回0，实际上返回的是6，从而造成运行结果有误。

  在实际工作中出现这样的问题是难以避免的，也是防不胜防的，需要有更稳妥的解决办法。

  经过思考，找到两个思路：

  1、用特殊字符包裹每个“风险物质名称”，如：

  "#农药残留#、#苯酚#、"

  "#苯#"

  上述判断代码可以改为：

1. If InStr(ListYL, "#" & Now(X) & "#") = 0 Then ListYL = ListYL & "#" & Now(X) & "#、"

复制代码

  最终的运行结果中会出现特殊字符“#”，需要用Replace函数替换成空字符串，同时禁止“风险物质名称”中出现该特殊字符。

  2、编制子函数模块。

  在子函数模块中，使用split函数将“风险物质名称列表字符串”分隔到数据，逐个判断“当前风险物质名称”是否出现在“风险物质名称列表字符串”中。

  函数代码如下：

1. Function StrExist(StrList As String, OneStr As String, StrSplit As String) As Boolean
   
2.     '-----------------------------------------------
   
3.     ' 判断字符OneStr是否在列表StrList中
   
4.     '
   
5.     '   参数：
   
6.     '       StrList：字符列表，如：张三、李四、王五
   
7.     '       OneStr：某个字符，如：张三
   
8.     '       StrSplit：参数StrList的分割字符，如：、
   
9.     '-----------------------------------------------
   
10. '  边缘码农 at 2024-07-11
    
11. '-----------------------------------------------
    
12. 
    
13.     Dim StrArr() As String
    
14.     Dim i As Integer
    
15.    
    
16.     StrExist = False '返回值赋初值
    
17.     If StrList <> "" Then
    
18.         ' 当字符列表StrList不为空时
    
19.         StrArr = Split(StrList, StrSplit)
    
20.         For i = 0 To UBound(StrArr)
    
21.             If OneStr = StrArr(i) Then
    
22.                 StrExist = True
    
23.                 Exit For
    
24.             End If
    
25.         Next
    
26.     End If
    
27. End Function
    

复制代码

  调用代码改为：

1. If Not StrExist(ListYL, Now(X), "、") Then
   
2. ListYL = ListYL & Now(X) & "、"
   
3. End If
   

复制代码

  经过上述调整，解决了原帖子楼主提出的问题。

边缘码农

改了好几次

ykcbf1100

确实存在这个问题。

心的启点

还真没有注意这个问题，学习了！

zhangcheng6688

最近忙着弄kylinos,先留底到时候再来学习

yjh_27

、分类 则 参数1首尾各加、 不用管原来有无
InStr("、农药残留、苯酚、、", "、苯、")

jiangxiaoyun

这算啥问题。。。。本身就不是函数的问题。。。

边缘码农

jiangxiaoyun 发表于 2024-7-11 15:17
这算啥问题。。。。本身就不是函数的问题。。。

和函数本身无关，和使用函数有关，我只是觉得在使用过程中确实要注意这个的问题。
提个醒，避免踩坑。

lizhipei78

只能说明你没有很好的理解这个函数
要不也不会有这个疑问了