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

質問

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

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

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

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

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

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

回答No.5

kbonb

こんにちは

=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

＞数字は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

みなさん　こんにちは

＞数字は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

VBAで関数を作ると言うのも手かもしれませんが、どのような結果が欲しいのでしょうか？
値として結果が欲しいのか、表示として結果が欲しいのか。
表示としての結果ならいろいろ方法はあると思いますが、値としての結果の場合は、VBAに頼らなければいけないかもしれません。

補足

ありがとうございます。

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

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

回答No.1

miya_777

もし数値が2文字なら
=LEFT(A1,LEN(A1)-2)
でＯＫです。
うーん。これじゃきっと不充分ですよね。

お礼

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

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