二个表格查找相同数据填充数据怎样实现这功能

ykcbf1100

Harry= 发表于 2024-8-19 14:07
跑错了 如果有二个单号一起的 是否能改进一下

怎么改进？你也没说有二个单号一起如何处理啊

Harry=

ykcbf1100 发表于 2024-8-19 15:59
怎么改进？你也没说有二个单号一起如何处理啊

单号错了  4838 4837 跑成了4736了 4736是上面的单号不是这二个单号一起的 如果有二个单号一起处理出这样效果更好了

ykcbf1100

Harry= 发表于 2024-8-19 16:10
单号错了  4838 4837 跑成了4736了 4736是上面的单号不是这二个单号一起的 如果有二个单号一起处理出这样 ...

怎么个一起处理法？

朝露孤烟

参考一下。全函数方法。

Harry=

ykcbf1100 发表于 2024-8-19 16:11
怎么个一起处理法？

我意思如果有二个单号也能处理成单个单号的一样效果 那就更好了 这样可以省我在去查一次

Harry=

朝露孤烟 发表于 2024-8-19 17:16
参考一下。全函数方法。

没达我想的结果 草爷的基本是没问题了  就是有二个单号的一起会运行错误。如果有二个单号也能运行那效果就完美了。

ykcbf1100

Harry= 发表于 2024-8-19 16:10
单号错了  4838 4837 跑成了4736了 4736是上面的单号不是这二个单号一起的 如果有二个单号一起处理出这样 ...

改一下吧，应该没问题了。

ykcbf1100

改一下吧。。。

1. Sub ykcbf()   '//2024.8.19
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("Sheet1")
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         arr = .[a1].Resize(r, 12)
   
6.     End With
   
7.     For i = 2 To UBound(arr)
   
8.         st = Split(arr(i, 4), "-")
   
9.         s = st(UBound(st))
   
10.         d(s) = arr(i, 4) & arr(i, 6)
    
11.     Next
    
12.     With Sheets("总表")
    
13.         r = .Cells(Rows.Count, 1).End(3).Row
    
14.         arr = .[a1].Resize(r, 3)
    
15.         For i = 2 To UBound(arr)
    
16.             If arr(i - 1, 1) = "仓库" Then
    
17.                 st = CStr(Trim(arr(i, 1)))
    
18.                 st = Replace(st, ",", " ")
    
19.                 If Len(st) = 4 Then
    
20.                     If d.exists(st) Then .Cells(i - 1, 2) = d(st)
    
21.                 Else
    
22.                     st = Split(CStr(st))
    
23.                     For x = 0 To UBound(st)
    
24.                         s = st(x)
    
25.                         If d.exists(s) Then .Cells(i - 1, 2) = d(s)
    
26.                     Next
    
27.                 End If
    
28.             End If
    
29.         Next
    
30.     End With
    
31.     MsgBox "OK！"
    
32. End Sub
    
33. 
    

复制代码

80大叔

哪位大神 帮忙看看 最后一个函数怎么写比较好 谢谢

ykcbf1100

80大叔 发表于 2024-8-19 21:02
哪位大神 帮忙看看 最后一个函数怎么写比较好 谢谢

这里是VBA版块，用函数的话，建议你去函数版块，那里大神多。