根据单元格药品名称查找药品入库明细中全部发票号与数量

3822

业务员 发表于 2023-7-12 16:19
这么简单啊，我试试哈。谢啦，感觉还不错，我自己吧i从2到100，100不够智能，用vba改成了最后一行

嗯 ，加上这个就行，我偷懒了。cells（rows.count,1).end(xlup).row

3822

我偷懒了 下。cells(rows.count,1).end(xlup).row

sdytsxd991122

参与一下

业务员

感谢各位老师，用不同的方法解决问题，拓宽思路又解决了实际问题

cyq4896

参与一下....

yynrzwh

1. Sub 矩形圆角2_Click()
   
2. 
   
3. arr = Sheets("合同量内表").UsedRange
   
4. brr = Sheets("入库信息").UsedRange
   
5. Set d = CreateObject("scripting.dictionary")
   
6. 
   
7.     For i = 2 To UBound(arr)
   
8.         d(arr(i, 2)) = ""
   
9.     Next i
   
10.    
    
11.     For i = 2 To UBound(brr)
    
12.         If d.exists(brr(i, 4)) Then
    
13.             d(brr(i, 4)) = d(brr(i, 4)) & "|" & brr(i, 3) & "|" & brr(i, 6)
    
14.         End If
    
15.     Next i
    
16.    
    
17. With Sheets("合同量内表")
    
18.     For i = 2 To UBound(arr)
    
19.         a = d(arr(i, 2))
    
20.         a = Right(a, Len(a) - 1)
    
21.         sp = Split(a, "|")
    
22.         .Range("R" & i).Resize(, UBound(sp) + 1) = sp
    
23.     Next i
    
24. End With
    
25. 
    
26. Set d = Nothing
    
27. End Sub
    

复制代码

业务员

limonet 发表于 2023-7-12 16:25
Sub limonet()
    Dim Cn As Object, StrSQL$, i%, Arr As Variant
    Set Cn = CreateObject("adodb.c ...

很简洁呢，但是sql还没接触过，要好好学习一下

xiaoshai0401

limonet 发表于 2023-7-12 16:20
用到SQL、getrows，split、join

麻烦问下gif用什么软件录制的呀，清晰度怪高呢

limonet

xiaoshai0401 发表于 2023-7-13 09:23
麻烦问下gif用什么软件录制的呀，清晰度怪高呢

gifcam，一直在用