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

ykcbf1100

Harry= 发表于 2024-8-20 08:35
这个脚本是不是二个单号的运行不了 只能运行一个单号的

可以二个单号

Harry=

ykcbf1100 发表于 2024-8-20 08:47
可以二个单号

二个单号运行不了 中间带空格的

ykcbf1100

Harry= 发表于 2024-8-20 09:07
二个单号运行不了 中间带空格的

上传附件吧。你二个单号的格式有很多吗？有空格，还有","的，这个也不统计一下啊

Harry=

ykcbf1100 发表于 2024-8-20 09:09
上传附件吧。你二个单号的格式有很多吗？有空格，还有","的，这个也不统计一下啊

因为这有几个人在做然后我合并一个表格生成报表。你们用不符号 是不是这里加上需要分开的符号就可以了

Harry=

Harry= 发表于 2024-8-20 10:23
因为这有几个人在做然后我合并一个表格生成报表。你们用不符号 是不是这里加上需要分开的符号就可以了

还有一个问题就是 二个单号的运行了也要加一起才对 运行了只保留一个单号

Harry=

这是昨天的的数据  要做的 现在就是二个单号运行了得合并一起 不是单显示一个单号

ykcbf1100

Harry= 发表于 2024-8-20 10:41
这是昨天的的数据  要做的 现在就是二个单号运行了得合并一起 不是单显示一个单号

二个单号的，现在没问题了。

以后会不会还有3个以上的单号啊。如果有3个以上单号，代码还需要修改的。

ykcbf1100

改一下。。。

1. Sub ykcbf()   '//2024.8.20
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("Sheet1")
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         arr = .[a1].Resize(r, 8)
   
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(arr(i, 1))
    
18.                 If Len(st) = 4 Then
    
19.                     If d.exists(st) Then .Cells(i - 1, 2) = d(st)
    
20.                 Else
    
21.                     tt = ""
    
22.                     s = Left(st, 4)
    
23.                     If d.exists(s) Then tt = d(s)
    
24.                     s = Mid(st, 6, 4)
    
25.                     If d.exists(s) Then tt = tt & Chr(10) & d(s)
    
26.                     .Cells(i - 1, 2) = IIf(Left(tt, 1) = Chr(10), Mid(tt, 2), tt)
    
27.                 End If
    
28.             End If
    
29.         Next
    
30.         
    
31.     End With
    
32.     MsgBox "OK！"
    
33. End Sub
    

复制代码

Harry=

ykcbf1100 发表于 2024-8-20 15:26
二个单号的，现在没问题了。

以后会不会还有3个以上的单号啊。如果有3个以上单号，代码还需要修改的。 ...

谢谢了 三个单号的很少 手动修改一下就好了

80大叔

ykcbf1100 发表于 2024-8-19 21:14
这里是VBA版块，用函数的话，建议你去函数版块，那里大神多。

VBA 也有帮忙看看