有大侠知道vba怎么调用lookup（1，0/（a*b*c,d)多条件取值吗？

pengxiangroy

H列字段为“品名”，o列字段为“日期”，K列字段为“单价”

公式为：=LOOKUP(1,0/((H:H=G5)*(O:O<=S5)),K:K)

目的为：根据品名，查找相近的日期，输出单价


VBA转换为：
R2=100

Set p1 = Range("H3:H" & R2)  
Set p2 = Range("O3:O" & R2)
Set p3 = Range("K3:K" & R2)

Application.WorksheetFunction.Lookup(1, 0 / (p1 =range("g5")) * (p2 <= range("s5")), p3)


*号改为了AND，也不行
提示错误为：类型不匹配
哪位大侠出一下手帮解决一下