做一个当前表格数据对应源数据表内容查询求助

seusbc

我需要根据当前工作表的件号，查询数据源工作薄"常用件价格表"内的对应这个件号的价格一栏数据，填入当前工作表参考价格一栏当运行的结果总是空的，我看下了下R值始终是空的，直接跳过了，
请老师们指导下，我是刚刚才接触这个的新手，万分感谢


Sub 查常用件价格表()
    Dim k As Integer, j As Integer
    Dim wb As Workbook, w As Worksheet, r As Worksheet

    Set r = ActiveSheet

    Application.DisplayAlerts = False

    Set wb = Workbooks.Open("G:\VB\常用件价格表.xlsx")

    k = 3
    Do While r.Cells(k, 2) <> ""

        For Each w In wb.Worksheets

            j = 2

            Do While w.Cells(j, 3) <> ""
                If LCase(Trim(w.Cells(j, 4))) = LCase(Trim(r.Cells(k, 3))) Then
                    r.Cells(k, 13) = w.Cells(j, 7)
                End If
                j = j + 1

            Loop

        Next

        k = k + 1
    Loop

    wb.Close

    Application.DisplayAlerts = True

End Sub

seusbc

朱荣兴 发表于 2018-9-28 08:25
1、这种代码效率太低，没有修改的价值
2、你的说明中是要根据件号来查找，但是，看你的代码有事根据名称来 ...

版主能否具体指导下， 刚学会的只有这么多了，
用名称判断，是应为有的零件在表格里 只有名称没有件号，用件号判断就表格没循环完就终止了

seusbc

十分感谢版主，我消化下

seusbc

朱荣兴 发表于 2018-9-28 08:53
仅供参考
Sub 查常用件价格表()
    Dim k As Integer, j As Integer

这个查询不全，漏了很多没结果，版主如果有时间帮我看看呢，谢啦

我用原来的语句修改了下 Set r= ThisWorkbook.Activesheet 后可以用了

seusbc

朱荣兴 发表于 2018-9-28 08:53
仅供参考
Sub 查常用件价格表()
    Dim k As Integer, j As Integer

老师，遇到你说的问题了，我的虽然功能实现了，但源数据表数据较多，程序处理速度太慢了。。