文字をアルファベット順に３つずつずらす方法

質問

エクセルで、
文字をアルファベット順に３つずつずらす方法を教えてください。

A1セルに"ABC"と入力したら、
B1セルに"DEF"と表示されるようにしたいのですが...

よろしくお願いします。

回答No.2

mshr1962 · ベストアンサー

単純にずらすだけなら
=IF(LEN(A1)<3,"",MID("ABCDEFGHIJKLMNOPQRSTUVWXYZABC",FIND(A1,"XYZABCDEFGHIJKLMNOPQRSTUVWXYZ"),3))

ABCの順番が違う場合（ACB,BAC等にも対応）
=IF(LEN(A1)<3,"",CHAR(MOD(CODE(LEFT(A1,1))-61,26)+64)&CHAR(MOD(CODE(MID(A1,2,1))-61,26)+64)&CHAR(MOD(CODE(RIGHT(A1,1))-61,26)+64))

英字の大文字のみの対応です。

お礼

ありがとうございました。
２番目の方法でやってみたいと思います。

回答No.1

2531kbps

1文字ずつアルファベット個数回置換すれば出来ます。
今回だけでなく、その作業が今後も続くなら、VBAで作るのが効率的です。

お礼

ありがとうございました。