|
Sub Macro1()
'
' Macro1 Macro
'
'
Range("Z2").Select
Selection.FormulaArray = _
"=IFERROR(INDEX(OFFSET(R3C31,,MATCH(R2C23,R3C31:R3C96,)+2,COUNTA(R3C32:R56C32),8),MATCH(R2C24,LEFT(R3C32:R56C32,FIND(""<"",R3C32:R56C32)-1)+1%%)-9+MATCH(RC2,{0.4;0.5;0.6;0.7;0.8;1;1.3;1.65;2.45}),2*MATCH(RC27,{0,1.3,1.5,1.75,2}+1%%)+COLUMN(R[-1]C[-25])-2),"""")"
Selection.AutoFill Destination:=Range("Z2:Z11"), Type:=xlFillDefault
Range("Z2:Z11").Select
End Sub
|
|