文字列内の記号、スペースなどを削除する方法

エクセル2000 OS:WinXPpro
本人の技量レベル：ＶＢＡはコピペして実行しても、修正が出来ないので、なるべく関数で処理したい。

半角カタカナ英数だけの文字列を作りたいのです。
元のデータには()などの記号、句読点、スペース等が含まれています。
一応TRIM関数で余分なスペースは削除しましたが文字列中の半角スペースが残っています。
これを半角カタカナ英数だけを残してベタの文字列にしたいのです。

No.1 回答者： noname#5584 回答日時： 2003/12/20 11:11

(1) ワークシート関数のSUBSTITUTE関数

(2) VBAのReplace関数

のどちらか。

この回答へのお礼

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

でも、ごめんなさい、使い方がよく解りません。
たとえば、セルＡ１に“()ヲサクジョ”と入力したら、Ｂ１に“ヲサクジョ”と表示させたいのです。

入力は一度だけで、自動的に変換して欲しいので、
「置き換え」とはちょっと違うかな、と思うのですが。

お礼日時：2003/12/20 11:31

No.2 回答者： noname#5584 回答日時： 2003/12/20 12:02

ヘルプは読みましたか？

この回答への補足

読みました。が、置換え文字列・置換え対象に当たるものが無いのです。説明不足で作業イメージが違うようなので、補足します。煩雑ですが、ご容赦ください。

作業の例を書きますと、１.フリガナを設定したＡ列に日本語「図08-1 参照」を入力する。２．Ｂ列に=PHONETIC、で「ズ08-1 サンショウ」を表示する。
３．Ｃ列に=ASC、で半角表示「ズ08-1 サンショウ」。（この欄は半角カナが表示されないので、全角カナになりますが）
ここまではできました。

次に、スペース・記号・句読点等を削除して、半角英数カナだけの文字列にしたいのです。
４．Ｄ列に「ズ081サンショウ」と表示する。

Ａ列に入力すると、順次Ｄ列に「半角英数カナのベタ文字列」が表示されるようにしたいのです。

入力データは最初のＡ列だけなので、SUBSTITUTE関数で要求される「置換える文字列」とか「置換対象」がないと、思ったのですが、なんとかなるでしょうか？

補足日時：2003/12/20 13:59

No.3 回答者： imogasi 回答日時： 2003/12/20 12:13

編集－置換－（検索する文字列）半角１スペース（場合によっては全角１スペース）－（置換後の文字列）なにも入れない、で全て置換をクリックで半・全角スペースやその他の文字が削除できるはずです。

この回答へのお礼

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

#4さんの関数式で解決できました。

お礼日時：2003/12/21 14:05

No.4 ベストアンサー 回答者： noname#5584 回答日時： 2003/12/20 20:38

=SUBSTITUTE(SUBSTITUTE(C1,"-","")," ","")

この回答へのお礼

たびたびありがとうございます。

試してみました。=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(C1,"-","")," ",""),"。","")・・・と、削除対象をそれぞれブランクに置換えていけばよいのですね。
削除対象は10個以上はありそうなので、かなり長い関数になりますが、作業は相当に省力化できます。
どうもありがとうございました。

お礼日時：2003/12/21 14:03

No.5 回答者： sakenomo 回答日時： 2003/12/21 18:48

削除対照が沢山あるということなら、手間はかかりますが、

セルＡ２に文字列を入れ、Ｂ１、Ｃ１、Ｄ１・・・に削除したい記号や句読点を、１つずつ入力します。

Ｂ２に、=SUBSTITUTE(A2,B$1,"")　　を入れて、右へオートフィルでいかがでしょうか。長い関数を書くよりもラクな気がしますが。

この回答へのお礼

9個繋ぐと数式エラーがでます。理由は不明です。
二つの方法を併用するとカバーできそうです。
どうもありがとうございました。

お礼日時：2003/12/22 21:27

No.6 回答者： sakenomo 回答日時： 2003/12/22 22:00

＃５です。

>9個繋ぐと数式エラーがでます。理由は不明です。

こちらのテストでは、最終列まで数式を入れてもエラーになりませんが…。(?_?)
いろいろ試してみましたが、エラーを再現できませんでした。

エクセル（２００３）の仕様によると関数のネストは７つまでとのことで、要求される処理を１つの数式でこなすことには無理がありそうです。

あと、

>削除対照が沢山あるということなら、

削除"対象"、でした。

この回答へのお礼

ごめんなさい、言葉が足りませんでした。
エラーが出るのは、SUBSTITUTE関数のことです。ネストの個数オーバーなのですね、すみません、知りませんでした。お手数かけてしまって、ほんとにごめんなさい。

半数カナに自動的に変換する作業はほぼ完全できるようになり、手修正はほとんど不要になりました。
ありがとうございました。

お礼日時：2003/12/24 12:51