请教如何写VBA代码查找两个条件对应的单价

qiancolin

请教如何写VBA代码查找两个条件对应的单价
多条件查找单价.rar (2.82 KB, 下载次数: 15)

2013-3-31 19:54 上传

点击文件名下载附件

qiancolin

求求各位高人帮帮我！

grf1973

Sub 查找单价()
    Set dj = Sheets("单价")
    For i = 2 To [a65536].End(3).Row
        kh = Cells(i, "D"): gxh = Cells(i, "E")
        For j = 2 To dj.[a65536].End(3).Row
            If dj.Cells(j, "A") = kh And dj.Cells(j, "B") = gxh Then Cells(i, "F") = dj.Cells(j, "C"): Exit For
        Next
    Next
End Sub

qiancolin

grf1973 发表于 2013-4-1 08:55
Sub 查找单价()
    Set dj = Sheets("单价")
    For i = 2 To [a65536].End(3).Row

谢谢这位高人！
让我的工作更方便了！

小猴爱爱

学习了~~~{:soso_e182:}