1 2 3 4 5 6 7
| Range("AA2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-24]=1,""AOI1"",IF(RC[-23]=1,""AOI2"",IF(RC[-22]=1,""AOI3"",IF(RC[-21]=1,""AOI4"",IF(RC[-20]=1,""AOI5"",IF(RC[-19]=1,""AOI6"",IF(RC[-18]=1,""AOI7"",IF(RC[-17]=1,""AOI8"",IF(RC[-16]=1,""AOI9"",IF(RC[-15]=1,""AOI10"",IF(RC[-14]=1,""AOI11"",IF(RC[-13]=1,""AOI12"",IF(RC[-12]=1,""AOI13"",IF(RC[-11]=1,""AOI14"",IF(RC[-10]=1,""AOI15"",IF(RC[-9]=1,""AOI16"",IF(RC[-8]" & _
"17"",IF(RC[-7]=1,""AOI18"",IF(RC[-6]=1,""AOi19"",IF(RC[-5]=1,""AOI20"",IF(RC[-4]=1,""AOI21"",IF(RC[-3]=1,""AOI22"",IF(RC[-2]=1,""AOI23"",IF(RC[-1]=1,""AOI24"",""""))))))))))))))))))))))))"
Range("AA2").Select
Selection.AutoFill Destination:=Range("AA2:AA300438")
Range("AA2:AA300438").Select |
Partager