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

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

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

よろしくお願いします。

No.2 ベストアンサー 回答者： mshr1962 回答日時： 2005/10/06 16:13

単純にずらすだけなら

=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))

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

この回答へのお礼

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

お礼日時：2005/10/06 16:52

No.1 回答者： 2531kbps 回答日時： 2005/10/06 16:13

1文字ずつアルファベット個数回置換すれば出来ます。

今回だけでなく、その作業が今後も続くなら、VBAで作るのが効率的です。

この回答へのお礼

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

お礼日時：2005/10/06 16:52