当嵌套的数量巨大的时候if函数很麻烦，尝试用数组，好像不能用，求助其他办法

ltf7107

用if函数大量的嵌套的时候如何处理比较方便，需求：将A列的关键词进行分类，条件在e列，需求结果在f列，最终结果写在B列下，以前都是用if大量嵌套，非常麻烦，容易弄错，用vlookup一直不成功，求指导


具体案例如附件

jiangxiaoyun

abcde，有ab，有abc，有bc
那么返回啥？
逗不逗.......

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     arr = [e1].CurrentRegion
   
4.     BRR = [a1].CurrentRegion
   
5.     For j = 2 To UBound(BRR)
   
6.         For i = 2 To UBound(arr)
   
7.             If Len(BRR(j, 1)) > 0 Then
   
8.                 If Left(BRR(j, 1), 1) = "b" And Len(BRR(j, 1)) = 10 Then
   
9.                     BRR(j, 2) = arr(i, 2)
   
10.                     GoTo l1
    
11.                 Else
    
12.                     If InStr(BRR(j, 1), arr(i, 2)) > 0 Then
    
13.                         BRR(j, 2) = arr(i, 2)
    
14.                         GoTo l1
    
15.                     End If
    
16.                 End If
    
17.             End If
    
18.         Next i
    
19.         BRR(j, 2) = "其他"
    
20. l1:
    
21.     Next j
    
22.     [a1].CurrentRegion = BRR
    
23.     Application.ScreenUpdating = True
    
24. End Sub
    

复制代码

liulang0808

附件内容供参考，楼主的字符串书序给调整了

蓝桥玄霜

"ab"、"abc"、"bc"之间哪一个条件在前？
请见代码。

LMY123

数组实现多重IF

ltf7107

jiangxiaoyun 发表于 2017-12-17 08:41
abcde，有ab，有abc，有bc
那么返回啥？
逗不逗.......

我故意写的，实际情况确实会出现这个情况，可设置，后者优先，或者前者前者优先

ltf7107

LMY123 发表于 2017-12-17 09:01
数组实现多重IF

能详细说一下么，我尝试过没成功，谢谢了

ltf7107

蓝桥玄霜 发表于 2017-12-17 08:52
"ab"、"abc"、"bc"之间哪一个条件在前？
请见代码。

谢谢了，这个只用函数能实现么

ltf7107

liulang0808 发表于 2017-12-17 08:50
附件内容供参考，楼主的字符串书序给调整了

非常感谢，本来只是想问一个能够实现的函数，麻烦了，谢谢