按匹配度从高到低查找问题

山城子

根据调出与调入对应的序号，按匹配度从高到低查找，匹配度小于50%以下的不查找，查找到了把对应的调出店代码及名称写回到R列与S 列。 查找匹配度最高的.rar (14.24 KB, 下载次数: 13)

2024-3-21 23:20 上传

点击文件名下载附件

请老师帮忙指教，万分感谢！

ykcbf1100

序号1和2匹配度最高的都有2个，只提取最先出现的那一个。

ykcbf1100

参与一下。。。

1. Sub ykcbf() '//2024.3.22
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Me.Cells(Rows.Count, "u").End(3).Row
   
4.     arr = Me.[u4].Resize(r - 3, 18)
   
5.     bSort arr, 1, UBound(arr), 1, 18, 18, 2
   
6.     For i = 1 To UBound(arr)
   
7.         s = arr(i, 1)
   
8.         If arr(i, 18) >= 0.5 Then
   
9.             If Not d.exists(s) Then
   
10.                 d(s) = Array(arr(i, 2), arr(i, 3))
    
11.             End If
    
12.         End If
    
13.     Next
    
14.     r = Me.Cells(Rows.Count, "a").End(3).Row
    
15.     arr = Me.Range("a1:s" & r)
    
16.     For i = 4 To UBound(arr)
    
17.         s = arr(i, 1)
    
18.         If d.exists(s) Then
    
19.             arr(i, 18) = d(s)(0)
    
20.             arr(i, 19) = d(s)(1)
    
21.         End If
    
22.     Next
    
23.     Me.[r4:s1000] = ""
    
24.     Me.Range("a1:s" & r) = arr
    
25.     MsgBox "OK！"
    
26. End Sub

复制代码

山城子

ykcbf1100 发表于 2024-3-22 08:11
序号1和2匹配度最高的都有2个，只提取最先出现的那一个。

谢谢老师，不好意思，可能我没表达清楚，要先满足匹配最高的（如序号2），由于A027店的调给序号2了，所以A027店的不能再调给序号1，那就要继续往下找（如A007店），也就是一个店只调出一次

LIUZHU

没看明白这个序号有什么作用，又不是唯一性标识

LIUZHU

综合匹配度都不知道是什么意思，1-9又是什么意思？

笨鸟飞不高

匹配度最高的.zip (21.77 KB, 下载次数: 11)

2024-3-22 10:42 上传

点击文件名下载附件

yynrzwh

猜一下
匹配度最高的.zip (33.16 KB, 下载次数: 5)

2024-3-22 11:57 上传

点击文件名下载附件

山城子

笨鸟飞不高 发表于 2024-3-22 10:42

匹配度最高的-2.zip (20.09 KB, 下载次数: 1)

2024-3-22 12:16 上传

点击文件名下载附件

谢谢老师，当序号只一个的时候会报错，能否帮忙改一下  谢谢！

山城子

笨鸟飞不高 发表于 2024-3-22 10:42

谢谢老师，当序号只一个的时候会报错