計算式の簡素化
よろしくお願いします。
下の構文を簡単に記述する方法をお教え願えないでしょうか。
Range("F5").Value = "=IF(LEN(V5)=4,MID(V5,1,1),IF(LEN(V5)=5,MID(V5,1,2),IF(LEN(V5)=6,MID(V5,1,3),IF(LEN(V5)=7,MID(V5,1,4),IF(LEN(V5)=8,MID(V5,1,5),"""")))))"
Range("F7").Value = "=IF(LEN(V7)=4,MID(V7,1,1),IF(LEN(V7)=5,MID(V7,1,2),IF(LEN(V7)=6,MID(V7,1,3),IF(LEN(V7)=7,MID(V7,1,4),IF(LEN(V7)=8,MID(V7,1,5),"""")))))"
~省略~
Range("F31").Value = "=IF(LEN(V31)=4,MID(V31,1,1),IF(LEN(V31)=5,MID(V31,1,2),IF(LEN(V31)=6,MID(V31,1,3),IF(LEN(V31)=7,MID(V31,1,4),IF(LEN(V31)=8,MID(V31,1,5),"""")))))"
Range("F33").Value = "=IF(LEN(V33)=4,MID(V33,1,1),IF(LEN(V33)=5,MID(V33,1,2),IF(LEN(V33)=6,MID(V33,1,3),IF(LEN(V33)=7,MID(V33,1,4),IF(LEN(V33)=8,MID(V33,1,5),"""")))))"
お礼
回答、ありがとうございます。 できました。