[已解决]D列值包括某一字符就在E列填入标识

su77

各位大神：
     附表中需在D列值包括某一字符就在E列填入标识，具体的判断条件为1.D列材料系统里只要包含J的就是，对应E列就填入HJ，2.D列材料系统里只要包含B的就是，对应E列就填入WXB，3.D列材料系统里有中文字符的，对应E列就填入MB，4.其它的E列就填入WX。我试着写了两段，可是运行的结果是错误的，麻烦有经验的各位帮我指下错误在哪里？当然帮我写下正确的代码应该如何！谢谢

最佳答案

月排行榜 / 总排行榜

哥儿-

2022-12-9 16:25

1. Sub test1()
   
2.     Dim vArr, i&
   
3.     vArr = Sheet1.Range("A2").CurrentRegion
   
4.     For i = 2 To UBound(vArr)
   
5.         If InStr(vArr(i, 4), "J") Then
   
6.             vArr(i, 5) = "HJ"
   
7.         ElseIf InStr(vArr(i, 4), "B") Then
   
8.             vArr(i, 5) = "WB"
   
9.         ElseIf vArr(i, 4) Like "*[一-龢]*" Then
   
10.             vArr(i, 5) = "MB"
    
11.         Else
    
12.             vArr(i, 5) = "WX"
    
13.         End If
    
14.     Next i
    
15.     Columns("A:B").NumberFormatLocal = "@"
    
16.     Sheet1.Range("A2").CurrentRegion = vArr
    
17. End Sub
    

复制代码

跳转到最佳答案楼层

哥儿-

1. Sub test1()
   
2.     Dim vArr, i&
   
3.     vArr = Sheet1.Range("A2").CurrentRegion
   
4.     For i = 2 To UBound(vArr)
   
5.         If InStr(vArr(i, 4), "J") Then
   
6.             vArr(i, 5) = "HJ"
   
7.         ElseIf InStr(vArr(i, 4), "B") Then
   
8.             vArr(i, 5) = "WB"
   
9.         ElseIf vArr(i, 4) Like "*[一-龢]*" Then
   
10.             vArr(i, 5) = "MB"
    
11.         Else
    
12.             vArr(i, 5) = "WX"
    
13.         End If
    
14.     Next i
    
15.     Columns("A:B").NumberFormatLocal = "@"
    
16.     Sheet1.Range("A2").CurrentRegion = vArr
    
17. End Sub
    

复制代码

su77

哥儿- 发表于 2022-12-9 19:33

明白了，非常感谢！