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

Harry=

通过仓库单号查找


D列后四位定位
把D列F列相加最后复制到很有条码位置完成表格

看一下用VBA功能还是用软件实现这操作有没大神实现这功能

Yalishanda30

没看懂。。。。

杨建营

请楼主参考。

杨建营

ykcbf1100

附件供参考。。。

ykcbf1100

Yalishanda30 发表于 2024-8-19 10:01
没看懂。。。。

就是Sheet1表中，以D列最后4位数字作为关键字，得到D值&F列的值，再去总表A列匹配，在仓库这一行B列写入相应的值。

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 InStr(st, ".") = 0 Then
    
20.                     If d.exists(st) Then .Cells(i - 1, 2) = d(st)
    
21.                 Else
    
22.                     st = Split(CStr(arr(i, 1)), ".")
    
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. 
    

复制代码

Harry=

ykcbf1100 发表于 2024-8-19 10:12
附件供参考。。。

跑错了 如果有二个单号一起的 是否能改进一下

cai2532

学习学习了

ykcbf1100

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

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