急，急，请各位大神帮帮忙~~

FDBGN

按照条件查找.zip (11.44 KB, 下载次数: 2)

2019-12-17 22:28 上传

点击文件名下载附件

想要实现的效果如下图二，表一是原始数据。需要在EXCEL表里建立一个查询只要输入LOT就能查询出对应的夕批，刻号，和数量，例如输入LOT:"E6L456"
点击查询按钮就会查出这个LOT下过哪些夕批以及每个夕批下的刻号和对应的数量，请各位大神帮帮忙写下代码，感谢，感谢~~

FDBGN

在线等，请各位大神帮忙~~

约定的童话

满意评分后上代码！

约定的童话

http://club.excelhome.net/thread-1513242-1-1.html版本不是帮你写了啊，咋又发帖啊

FDBGN

哈那是昨天发的两个,你写的挺好的感谢~不过少了一个求和。能否把代码上传下

约定的童话

FDBGN 发表于 2019-12-18 09:30
哈那是昨天发的两个,你写的挺好的感谢~不过少了一个求和。能否把代码上传下

Sub 查询()
    Dim i, n, arr, brr(1 To 100, 1 To 3), m, a
    a = InputBox("输入需要查询的LOT号", "查询")
    arr = Sheet1.[a1].CurrentRegion
    For i = 2 To UBound(arr)
        If arr(i, 1) = a Then
            m = Split(arr(i, 3), ".")
            For k = 0 To UBound(m)
                n = n + 1
                brr(n, 1) = arr(i, 2)
                brr(n, 2) = m(k)
                brr(n, 3) = Split(arr(i, 4), ".")(k)
            Next
        End If
    Next
    [a2].Resize(UBound(brr), 3) = brr
End Sub

FDBGN

显示形态不符合,我看到你测试的是OK的啊,大神再帮下忙

FDBGN

已经解决了,能不能让夕批显示在上边呀

goodgoodlean

做好了，我看到的刻号以及后面的都是用“.”隔开的，所以也是相应写的，写的比较粗糙，如果需要优化（可以1优化的地方很多，超级多），加企鹅号2429542517，

FDBGN

做的很棒，如果再把每次查询后的结果在下次查询之前删除就更完美了，感谢~~
不过你的那个密码是啥啊，刚才打开想看你写的代码呢，要求输入密码