代码效果如图：
代码：
Sub asdf()
'第一名：数组公式，即EXCEL的数组公司，多条件VLOOKUP公式，只是VBA中要用RC的方式表示；J2单元格的数组公式等于后面一串；
'第二名：J2：J4都填充公式，就相当于EXCEL中的下拉；
Range("J2").FormulaArray = "=VLOOKUP(RC[-2]&""|""&RC[-1],IF({1,0},R2C1:R9C1&""|""&R2C2:R9C2,R2C3:R9C3),2,0)"
Range("J2:J4").FillDown
End Sub
