エクセルの文字列中の指定した位置の文字列の置き換え（ＲＥＰＬＡＣＥ）。

質問

エクセルの文字列中の指定した位置の文字列の置き換え（ＲＥＰＬＡＣＥ）。

エクセルのセルＡ１に
「Ａ１２３Ｂ１２３４Ｘ９８７６Ｃ１２３ＤＤ」と入力されています。
これを
「Ａ１２３－Ｂ１２３Ｘ９８７６－Ｃ１２３－ＤＤ」としたいです。
現在
・Ｂ１のセルに=REPLACE(A1,5,0,"-")
・Ｃ１のセルに=REPLACE(B1,15,0,"-")
・Ｄ１のセルに=REPLACE(C1,20,0,"-")
と入れて、Ｄ１にできた値の
「Ａ１２３-Ｂ１２３Ｘ９８７６-Ｃ１２３-ＤＤ」
をコピーして
Ｅ１のセルに「形式を選択して貼り付け」「値」で貼り付けして
Ｂ１～Ｄ１を削除して
・Ａ１のセルには元の「Ａ１２３Ｂ１２３Ｘ９８７６Ｃ１２３ＤＤ」
・Ｂ１のセルには編集後の「Ａ１２３-Ｂ１２３Ｘ９８７６-Ｃ１２３-ＤＤ」
が表示されるようにしています。
このＡ列が１００行もあるとうんざりです。
式をオートフィルでコピーしていくのですが
　・Ｂ１に式を入れてオートフィルでＢ１００までコピー
　・Ｃ１に式を入れてオートフィルでＣ１００までコピー
　・Ｄ１に式を入れてオートフィルでＤ１００までコピー
　・Ｄ１～Ｄ１００をコピーしてＥ１～Ｅ１００に「形式を選択して貼り付け」「値」で貼り付け
　・Ｂ，Ｃ，Ｄ列を列削除　
３回は式を入れないといけないです。一発で編集する方法はありますでしょうか？

回答No.4

xls88 · ベストアンサー

REPLACE関数を入れ子に出来ます。
B1に
=REPLACE(REPLACE(REPLACE(A1,5,0,"-"),16,0,"-"),21,0,"-")
B1セルを選択＞選択枠右下角の■（フィルハンドル）をダブルクリック
オートフィル入力範囲が選択状態のまま
Ctrl＋C とキー操作でコピー
その場で「形式を選択して貼り付け」の「値」で貼り付け
キー操作は
Alt＋E、S、V、Enter

更に簡単な操作はマクロになります。
ただ、知識が無いと作るのに時間がかかります。

Dim c As Range
For Each c In Range("A1:A100")
With WorksheetFunction
c.Offset(, 1).Value = .Replace(.Replace(.Replace(c.Value, 5, 0, "-"), 16, 0, "-"), 21, 0, "-")
End With
Next c

お礼

実際にはＡ列には不規則なデータがはいっていて、
それにより－の位置もかわります。
よってこの
REPLACE関数を入れ子
が一番うまく出来ました。
ありがとうございました。

回答No.3

tom04

こんばんは！
外していたらごめんなさい。

文字数の規則性があるという前提で・・・
B1セルに
=LEFT(A4,4)&"-"&RIGHT(LEFT(A4,13),9)&"-"&LEFT(RIGHT(A4,6),4)&"-"&RIGHT(A4,2)

という数式を入れ、フィルハンドルの（＋）マークでダブルクリックではダメでしょうか？

以上、お役に立てば良いのですが
的外れなら読み流してくださいね。m(__)m

回答No.2

qyukip

この様にしてみてはいかがでしょうか？
LEFT(A1,4)&"-"&MID(A1,5,9)&"-"&MID(A1,14,4)&"-"&RIGHT(A1,2)

回答No.1

aokii

ルールがあるのなら、文字の置き換えで全てを一気に置き換えては。