0

教えてください。幼稚なﾏｸﾛで恥ずかしいのですが、１列データをを追加したいのですが他の複数列の条件でデータをセットしたいのです。

よろしくお願いします。 条件
C列=" " AND I列>="(0001)" AND I列<"(0100)" →AT列 = "試験"
C列=" " AND I列>="(0100)" AND I列<"(1000)" →AT列 = "輸出"
C列="T" OR C列="S" OR C列="F" →AT列 = "陸送"
C列="B" OR C列="N" →AT列 = "陸送"
以外 →AT列 = "????"

上記条件でAT列の設定を下記、With～End Withの中に書くことは可能でしょうか？

With Sheets("uhwaB05")
.Range("AC2").Formula = "=VLOOKUP(RC[-21]&RC[-19],TP標結!ExternalData_1,2,FALSE)"
.Range("AD2").Formula = "=VLOOKUP(RC[-22]&RC[-20],TP標結!ExternalData_1,3,FALSE)"
.Range("AE2").Formula = "=IF(OR(RC[-13]=""90"",RC[-10]<6),""仕掛"",IF(RC[-10]>15,""ﾘﾌﾏｸﾞ"",""ﾗｯｸ""))"
.Range("AF2").Formula = "=IF(AND(RC[-1]=""ﾗｯｸ"",RC[-11]<=9),INT(RC[-18]/RC[-2]),)"
.Range("AG2").Formula = "=IF(AND(RC[-2]=""ﾗｯｸ"",RC[-12]<=9),MOD(RC[-19]/RC[-3],1)*RC[-3],)"
.Range("AH2").Formula = "=RC[-2]+RC[-1]"
.Range("AI2").Formula = "=IF(AND(RC[-4]=""ﾗｯｸ"",RC[-14]>9,RC[-14]<=12),INT(RC[-21]/RC[-5]),)"
.Range("AJ2").Formula = "=IF(AND(RC[-5]=""ﾗｯｸ"",RC[-15]>9,RC[-15]<=12),MOD(RC[-22]/RC[-6],1)*RC[-6],)"
.Range("AK2").Formula = "=RC[-2]+RC[-1]"
.Range("AL2").Formula = "=IF(AND(RC[-7]=""ﾗｯｸ"",RC[-17]>12),INT(RC[-24]/RC[-8]),)"
.Range("AM2").Formula = "=IF(AND(RC[-8]=""ﾗｯｸ"",RC[-18]>12),MOD(RC[-25]/RC[-9],1)*RC[-9],)"
.Range("AN2").Formula = "=RC[-2]+RC[-1]"
.Range("AO2").Formula = "=RC[-7]+RC[-4]+RC[-1]"
.Range("AP2").Formula = "=INT(RC[-28]/RC[-12])"
.Range("AQ2").Formula = "=MOD(RC[-29]/RC[-13],1)*RC[-13]"
.Range("AR2").Formula = "=RC[-2]+RC[-1]"
.Range("AS2").Formula = "=LEFT(M2,LEN(M2)-LEN(TRIM(RIGHT(SUBSTITUTE(M2,""X"",REPT("" "",6)),6)))-1)"

ここに

.Range("AC2:AＴ2").AutoFill .Range("AC2:AT" & .Range("U2").End(xlDown).Row)
' .Range("AC2").Select
End With

質問者が選んだベストソリューション

Yahoo!知恵袋 4946日前