excel2003
下記の記述を入れています。
固定長ファイルを「貼付」シートのA1に取込、「2G」シートのE1~に各桁数を指定しています。
(E301まであります。)
また1つめの「" "」は半角。2つめの「" "」は全角。半角スペースが入っている場合は「*」を。
全角スペースが入っている場合は「×」を。
Range("E1").Select
ActiveCell.FormulaR1C1 = _
"=MID(SUBSTITUTE(SUBSTITUTE(貼付!RC[-4],"" "",""*""),"" "",""×""),1,5)"
Range("E2").Select
ActiveCell.FormulaR1C1 = _
"=MID(SUBSTITUTE(SUBSTITUTE(貼付!R[-1]C[-4],"" "",""*""),"" "",""×""),6,4)"
Range("E3").Select
ActiveCell.FormulaR1C1 = _
"=MID(SUBSTITUTE(SUBSTITUTE(貼付!R[-2]C[-4],"" "",""*""),"" "",""×""),10,6)"
Range("E4").Select
ActiveCell.FormulaR1C1 = _
"=MID(SUBSTITUTE(SUBSTITUTE(貼付!R[-3]C[-4],"" "",""*""),"" "",""×""),16,12)"
Range("E5").Select
ActiveCell.FormulaR1C1 = _
"=MID(SUBSTITUTE(SUBSTITUTE(貼付!R[-4]C[-4],"" "",""*""),"" "",""×""),28,12)"
【質問内容】
固定長ファイルを「貼付」シートのA1に取込、「2G」シートのE1~E301に
各桁数を指定しているのですが、固定長ファイルの内容は1行とは限りません。
複数行(例:A1~A50)までの固定長ファイルを「2G」シートのE1-E301~BB1~BB301に
各桁数を指定する記述はありますでしょうか?
同じような事を繰り返してしまうとかなり長くなってしまい、マクロを組む意味がなくなります。
お分かりになりましたらご回答頂ければと思います。
宜しくお願い致します。
お礼
SUBSTITUTEを入れ子にするのは考えたのですが, 使い方を間違えていました。 本当に助かりました。 どうもありがとうございました。