エクセル2000 セルの中身訂正

こんばんは。毎度お世話になっております。
「エクセル2000　セルの中身の訂正」方法で質問です。

あるセルに「ドラえもん11」という具合に名前+数字があります。そのセルの隣に「ドラえもん」という具合に名前だけ表示、もしくは記入するにはどうすればよいでしょうか。

ドラえもん11　→　ドラえもん（隣のセルに）

200個ほど、名前+数字がA列に記載されているのですが、それを名前だけに修正したくて質問しました。　200個なので手入力でもいいのですが、今後のことも考えて関数などを知りたいと思った次第です。

　それから、おすすめURLもあれば御願いします。

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

No.5 回答者： kbonb 回答日時： 2001/08/18 23:11

こんにちは

=LEFT(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&1234567890))-1)

でいかがでしょうか？

＞数字は1桁から3桁です。

　上記式では、数字は何桁でもOKです。

参考URL：http://www2.odn.ne.jp/excel/

No.4 回答者： nishi6 回答日時： 2001/08/17 15:48

＞数字は1桁から3桁です。

ということなので、その条件下で下の式を作りました。
１～３桁の数字部分は半角、全角、半角全角交じりのどれでもかまいません。
A1に名前+数字があるとしています。下式をどこかのセルにセットしてください。

=LEFT(A1,LEN(A1)-IF(ISERROR(RIGHT(A1,2)*1),1,IF(ISERROR(RIGHT(A1,3)*1),2,3)))

No.3 回答者： comv 回答日時： 2001/08/15 19:58

みなさん　こんにちは

＞数字は1桁から3桁です。
であれば　セルＡ１データがあるとして

数字が全角の時
=LEFT(A1,LEN(A1)-IF(CODE(RIGHT(A1,3))<9018,3,IF(CODE(RIGHT(A1,2))<9018,2,IF(CODE(RIGHT(A1,1))<9018,1,0))))

必要な行まで複写

半角の時でも可能ですが式中の９０１８３箇所を５７にすれば全角を無視してくれます。

こんな感じでどうですようか！

No.2 回答者： KojiS 回答日時： 2001/08/15 19:26

VBAで関数を作ると言うのも手かもしれませんが、どのような結果が欲しいのでしょうか？

値として結果が欲しいのか、表示として結果が欲しいのか。
表示としての結果ならいろいろ方法はあると思いますが、値としての結果の場合は、VBAに頼らなければいけないかもしれません。

この回答への補足

ありがとうございます。

名前だけ表示できれば良いと考えてます。あとはそれをコピーして「形式を選択して貼り付け」にて「値」として貼り付ければ名前だけの値になると思います。（この考え合ってますか。）

　関数でありそうな気がするんですが、なかなかみつからなくて。　名前はだいたいは4文字なんですが、それ以外もありますし。数字は1桁から3桁です。

補足日時：2001/08/15 19:33

No.1 回答者： miya_777 回答日時： 2001/08/15 18:46

もし数値が2文字なら

=LEFT(A1,LEN(A1)-2)
でＯＫです。
うーん。これじゃきっと不充分ですよね。

この回答へのお礼

回答ありがとうございます。

私が求めているものは、関数ではなくVBAじゃないとできないのでしょうか。

お礼日時：2001/08/15 19:41