質問: _ "=MID(SUBSTITUTE(SUBSTITUTE(貼付!R[-4]C[-4],"" "",""*""),"" "",""×""),28,12)" 【質問内容】 固定長ファイルを「貼付」シートのA1に取込、「2G」シートのE1~E301に 各桁数を指定しているのですが、固定長ファイルの内容は1行とは限りません。 複数行(例:A1~A50)までの固定長ファイルを「2G」シートのE1-E301~BB1~BB301に 各桁数を指定する記述はありますでしょうか? 同じような事を繰り返してしまうとかなり長くなってしまい、マクロを組む意味がなくなります。 お分かりになりましたらご回答頂ければと思います。 宜しくお願い致します。
回答: これ、Excel2003の問題ですね。 Excel2003はセルに表示できるのが1024文字なので sString = Sheets("貼付").Range("A" & i).Text で、取り出すと1024文字だけになってしまいます。 「.Text」を取って...... sString = Sheets("貼付").Range("A" & i) これなら大丈夫だと思います。