近有位小伙伴私聊我一个问题，我考虑了许久也没能想到第二个完美解决方案，问题是这样的，该小伙伴丢给我一个Excel文件，文件有两份工作表，我稍作简化处理了一下。
先进张工作表截图如下：
第二张工作表截图如下：
仔细看上面两张截图，可以发现先进张工作表中的节点信息就是由多个申告号码组成。刚收到这样的表格，我以为申告号码只会出现在一个节点信息中。所以我就想到使用Vlookup的部分匹配来获取运维严障单号，我使用的公式为=IFERROR(VLOOKUP("*"&A2&"*",IF({1,0},Sheet3!$B1:$B$1500,Sheet3!$A1:$A$1500),2,0),"")，该公式就不在介绍了，前期发表的多个图文教程都有介绍类似逆向查找的说明。
就这样，我把公式发给了私聊我的小伙伴，万万没想到的是，上面的公式是有问题的。等我发现该错误的时候，是在使用VBA完美解决申告号码会出现在多个节点信息列中。VBA代码如下：
Sub sutTest()
Dim i, iRow As Integer
Dim strNum As String
Dim sutArray
'关闭屏幕刷新
Application.ScreenUpdating = False
'获取运维号和节点信息
Worksheets("Sheet3").Select
sutArray = Range([A2], [B2].End(xlDown))
'循环处理申告号码
Worksheets("Sheet4").Select
Range([B2], [B65535]).ClearContents
Range("A2").Select
iRow = 1
strNum = ""
'循环模糊比对，能匹配到则放入运维严障单号列中
Do While ActiveCell.Value <> ""
For i = 1 To UBound(sutArray)
If sutArray(i, 2) Like "*" & ActiveCell.Value & "*" Then
strNum = strNum & sutArray(i, 1) & ","
End If
Next
If strNum <> "" Then
strNum = Left(strNum, Len(strNum) - 1)
End If
ActiveCell.Offset(0, 1).Value = strNum
strNum = ""
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub
上面的代码都加以注释了，也非常容易理解，就不在详细解释了。第二张工作表的申告号码共有一万六千多条，我刚开始使用函数来解决该问题的时候，Excel还有点卡顿。
其实第二张工作表截图中的运维严障单号列就是通过VBA代码匹配并填写的，小伙伴可以亲自试试。接下来继续讲解上面介绍的问题，我在第二张工作表D列输入上面的公式，并下拉到一万多行，得出的结果如下图所示：
不知道各位小伙伴通过上图能否看到问题的所在？就拿申告号码ADSLD2300660153为例，使用VBA能匹配得到YZ-ZH-20180110-00001，但使用Vlookup部分匹配却什么都没找到，正常来说，是不会出现这种问题的，Vlookup不能返回多个结果，但只要有符合条件的值，一定会返回的。那出现该问题的原因是什么呢？为了找到该问题，我尝试分解公式，从简单的公式开始，把公式中的Sheet3!$B1:$B$15提取出来，放到空白单元格，按下F9，详细操作请见如下动态图：
可以看到先进张工作表的B2单元格的值显示为了#VALUE!，到这里我就明白，为啥我给出去的公式是错误的了。为了搞明白该问题，我特地把先进张工作表的B2和B3单元格的值复制到新的工作表中，然后使用Len函数查看单元格值的长度，具体操作如下动态图所示：
终终于确定了，当单元格长度超过255后，在函数中都会返回#VALUE!， 为了确定是否是微软的Bug，我还特地把制作好的工作簿拷贝到安装了WPS 2016专业版的电脑上，尝试打开查看，结果惊呆了，详细如下如所示：
发现WPS没有该问题，Vlookup函数可以正确显示结果，头一次发现了WPS软件的强大之处，国产软件V587（威武霸气）。至于微软Office为什么显示错误，不要问我，因为我也不知道，有哪位小伙伴知道，请一定记得告诉我哦。
好了，今天的介绍就到这了，大家如果在学习的VBA等过程中遇到任何问题，欢迎留言
服务热线：18609840880
