1 2 3 4 5 6 7 8
| Sub Macro4()
Range("X2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-11]<59,7998;5,99;IF(AND(RC[-11]>59,7999;RC[-11]<119,5998);6,99;IF(AND(RC[-11]>119,5999;RC[-11]<179,3998);7,99;IF(AND(RC[-11]>179,3999;RC[-11]<239,1998);8,99;IF(AND(RC[-11]>239,1999;RC[-11]<298,998);10,99;IF(AND(RC[-11]>298,999;RC[-11]<478,3998);11,99;IF(AND(RC[-11]>479,3999;RC[-11]<597,998);12,99;IF(RC[-11]>597,999;13,99;0))))))))"
Range("X2").Select
Selection.AutoFill Destination:=Range("X2:X2371"), Type:=xlFillDefault
Range("X2:X2371").Select
End Sub |
Partager