为什么查询的值不能出来？

蓝星魂

为什么PO1/PO2结果不能出来？

参照表


查询表

1. Sub 查询()
   
2. Dim d As New Dictionary
   
3. Dim i%, arr, brr, targetarr
   
4. 
   
5. arr = Sheets("参照表").Range("a2:b9")
   
6. For i = 1 To UBound(arr)
   
7. d(arr(i, 1)) = arr(i, 2)
   
8. Next i
   
9. 
   
10. brr = Sheets("查询").Range("a2:b6")
    
11. For i = 1 To UBound(brr)
    
12. If InStr(brr(i, 1), "/") > 0 Then
    
13. brr(i, 2) = d(Split(brr(i, 1), "")(0))
    
14. Else: brr(i, 2) = d(brr(i, 1))
    
15. End If
    
16. Next i
    
17. 
    
18. Sheets("查询").Range("a2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
19. 
    
20. End Sub
    

复制代码

蓝星魂

因为主题编辑不了，现添加附件

魂断蓝桥

brr(i, 2) = d(Split(brr(i, 1), "/")(0))

不知道为什么

蓝星魂 发表于 2018-9-6 10:21
因为主题编辑不了，现添加附件

你附件的代码此处修改下就可以了

iwangyi

Sub CC()
arr = Sheets("参照表").Range("a2:b9")
N = [A1].End(4).Row
For i = 2 To N
For J = 1 To UBound(arr)
If InStr(Cells(i, 1), arr(J, 1)) > 0 Then Cells(i, 2) = arr(J, 2)
Next
Next
End Sub

iwangyi

附件，请参考