按范围取引用值

42921783

按4个条件匹配：当左表的条件一、二、三与右边的条件一、二、三分别相等时，再看左表条件四，落在右表条件四.1、条件四.2的哪个范围。

gufengaoyue

J1 和 K1 的小数字去掉，改成 条件四1和条件四2就好。
试试
Sub aa()
Dim Cnn
Set Cnn = CreateObject("adodb.connection")
Cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;hdr=yes;imex=0';data source=" & ActiveWorkbook.FullName
Sql = "select 引用值 from [按范围取值$G:L] "
For a = 2 To Cells(Rows.Count, 1).End(3).Row
    t = "where " & [a1] & "='" & Cells(a, 1) & "' and " & [b1] & "='" & Cells(a, 2) & "' and " & [c1] & "='" & Cells(a, 3) & "' and " & [j1] & "<=" & Cells(a, 4) & " and " & [k1] & " >=" & Cells(a, 4)
    Cells(a, 5).Value = Cnn.Execute(Sql & t).Fields(0)
Next
End Sub

gufengaoyue

供参考
按范围取引用值.rar (19.06 KB, 下载次数: 2)

2018-12-17 14:32 上传

点击文件名下载附件

42921783

gufengaoyue 发表于 2018-12-17 14:32
供参考

如果是跨表呢，表名和字段名分别要怎么写，我自己写的时候，会提示操作符丢失，所以烦请再帮忙。

42921783

gufengaoyue 发表于 2018-12-17 14:32
供参考

另外这个问题能用字典或者其他办法解决吗。