条件查找名称对应的单号，谢谢！

a18b88

详见附件： 条件查找名称对应的编号.rar (476.72 KB, 下载次数: 33)

2023-11-20 14:03 上传

点击文件名下载附件

Learner2022

=XLOOKUP(INDEX(TEXTSPLIT(B2,"*"),2),商品和服务税收分类编码表!N:N,商品和服务税收分类编码表!L:L,0,0)
三键输入

a18b88

Learner2022 发表于 2023-11-20 14:17
=XLOOKUP(INDEX(TEXTSPLIT(B2,"*"),2),商品和服务税收分类编码表!N:N,商品和服务税收分类编码表!L:L,0,0)
...

谢谢您，我要代码解决

cyq4896

参与一下..

cidanji

条件查找名称对应的编号.rar (463.79 KB, 下载次数: 20)

2023-11-20 14:42 上传

点击文件名下载附件

Learner2022

1. 
   
2. Public Sub XLOOKUP()
   
3. Dim arr(), brr
   
4. On Error Resume Next
   
5. 
   
6. Worksheets("商品和服务税收分类编码表").Activate
   
7. arr = Range("L3:N" & [L3].End(xlDown).Row)
   
8. 
   
9. Worksheets("取编码").Activate
   
10. 
    
11. For i = 2 To [b2].End(xlDown).Row
    
12.     brr = Split(Range("B" & i), "*")
    
13.     For Each k In brr
    
14.         For m = 1 To UBound(arr)
    
15.             If k = arr(m, 3) Then
    
16.                 Range("E" & i).Value = arr(m, 1)
    
17.             End If
    
18.         Next
    
19.     Next
    
20. Next
    
21. End Sub
    

复制代码

沈默00

沈默00

数据少用函数，多就用代码

太极拍天雄

练习一下。。。。。。。。。。。。

无关岁月

条件查找名称对应的编号.7z (510.83 KB, 下载次数: 5)

2023-11-20 17:05 上传

点击文件名下载附件