エクセルで文字の置き換え（自動）

質問

エクセルでリストを作成しています。
リストは常に追加をしている状態です。
そこで、Ａのシートを入力用とし、Ｂのシートを印刷用としたいです。
そこでやりたいことですが
Ａのシートに入力された文字列をＢのシートの文字列で自動的に変換させたいです。ルールは以下の通り
Ｒ→右
Ｌ→左
Ｓ→直
Ｄ→割１
Ｅ→割２
Ｆ→割３
これが数字と文字の組み合わせでＡシートのＡ列に入力されます
例１Ｒ１Ｌ２Ｓ３→１右１左２直３のようにしたいです
置き換えをしてもいいと思いますが、リストが随時追加されますので、出来れば自動でできればと思います。
まだ、自分ではＶＢＡやマクロは組めません。関数などでできる方法があれば教えてください

回答No.3

imogasi · ベストアンサー

SUBSTITUTEなどで置き換えることは出来ますが、
R,L,S・・が日々増えるらしいので式を素の都度増やさないといけないので面倒。
例データ　A2:B7
Ｒ 右
Ｌ 左
Ｓ 直
Ｄ 割１
Ｅ 割２
Ｆ 割３
A10にＲＳ
=VLOOKUP(MID(A10,1,1),$A$2:$B$10,2,0)&VLOOKUP(MID(A10,2,1),$A$2:$B$10,2,0)
で
結果
右直
しかし文字列の長さが不定だと式が長くなる。
ーーー
結局　VBAを使わないと難しいのでは。
意味はわからないが鵜呑みで使うか、拒否反応を示すか。
ユーザー関数（一種のVBA利用）を定義する
シートのメニューで
ツールーマクローVBE　を選択
その出てきた画面で　挿入ー標準モジュール　を指定
白紙の画面部分に
下記コードをコピペ。

Function rep1(a)
Application.Volatile True
d = Range("A100").End(xlUp).Row
s = ""
For i = 1 To Len(a)
x = Mid(a, i, 1)
r = Range("A2:A" & d).Find(what:=x).Row
s = s & Range("B" & r)
Next i
rep1 = s
End Function
ーーーーー
A2:B７のは上例VLOOKUPで説明箇所のデータがあるとします（Ｒなど全角英字の例）
シートで
C列C2以下に
C列　　　D列（関数を入れた結果）
ＲＳＤ 右直割１
ＬＤＥ 左割１割２
ＲＦ 右割３
ＳＥＦ 直割２割３
D2には　=rep1(C2)　と式を入れて下方向に式を複写。
結果は上記D列。
ＲＬ・・・は増えても第１００行目までなら、上記コードでOK。
もし使うなら、自分の場合、上記コードをどう変えたらよいか（列指定関係が多いと思う、それ以外は触らなくて良いだろう）を良く考えること。

回答No.2

DIooggooID

Ｒ→右
Ｌ→左
Ｓ→直
Ｄ→割１
Ｅ→割２
Ｆ→割３

上記の対応表を作成し、vlookup関数の【検索する表の範囲】として設定すれば、良いと思います。

http://allabout.co.jp/computer/msexcel/closeup/CU20060805A/index.htm

お礼

ありがとうございます
この方法だと一つのセルの中に複数の組み合わせがあってもできるのでしょうか？
試してみます

回答No.1

mu2011

一例です。
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"Ｒ","右"),"Ｌ","左"),"Ｓ","直"),"Ｄ","割１"),"Ｅ","割２"),"Ｆ","割３")

お礼

早速ありがとうございます
この方法だと出来そうですね
参考にさせて頂きます