文字列から英数字のみを抽出する関数

解決済

質問者：golf90
質問日時：2013/03/19 00:32
回答数：4件

文字列から英数字のみを抽出する関数を教えていただきたいです。

セルの文字列にはひらがな、カタカナ、数字、アルファベット、記号等を含みます。

色々調べてはみたのですが、数字のみを抽出する関数の説明はたくさんありますが、
アルファベットも含むとなると見つかりませんでした。

数字0～9とアルファベット27個の計37個の文字なので、どうにか関数でできると思うのですが。

具体的には下記のようにしたいのです。

●A列
今日iPhone5をauで購入
最新のNEWSを15時～PCで見る　
Moonshotを生み出す「Google X」

●B列にこう表示したいのです。
iPhone5au
NEWS15PC
MoonshotGoogleX

スペースは残ったままでも結構です。

詳しい方、どうかよろしくお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： keithin
回答日時：2013/03/19 01:45

＞数字のみを抽出する関数の説明はたくさんありますが

文字列の中に数字が「一塊だけ」ある場合の説明は多分沢山ありますが、（今回のご質問のように）「文字数字文字数字文字数字」と不定数入り混じってる場合の数式は、全く見つからなかったと思いますよ。

たとえば「英数字が最大限３カタマリまで」といった制約を付けて無理矢理関数をくっつける事は出来なくはありませんが、正直不細工ですし、そもそもあんまり現実的じゃありません。

手順：
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

public function myf(a) as string
　dim i as long
　for i = 1 to len(a)
　if mid(a,i,1) like "[0-9a-zA-Z ]" then
　　myf = myf & mid(a,i,1)
　end if
　next i
end function

ファイルメニューから終了してエクセルに戻る

任意のセルに元の言葉を記入し、
=myf(A1)
のように計算する。

- 17
- 件

通報する

この回答へのお礼

やはり、関数では厳しいようですね。
教えていただいたマクロであっさりと思うようにできました。
心から感謝いたします。
ありがとうございました。

通報する

お礼日時：2013/03/19 10:17

No.4

回答者： CoalTar
回答日時：2013/03/19 11:35

行数分-3文字までなら対応可能です。

C列は空白セル
D1セルに
=IF(ISNUMBER(SEARCH(MID($A1,COLUMN(A1),1),"abcdefghijklmnopqrstuvwxyz0123456789")),C1&MID($A1,COLUMN(A1),1),C1&"")
右へオートフィル (80文字までとしてCE1セルまで)
そのまま下へオートフィル

B1セルに =CE1
フィルハンドルダブルクリック

- 2
- 件

通報する

No.3

回答者： mike_g
回答日時：2013/03/19 09:16

添付図参照

１．セル C1 に次式を入力して、此れを右方に(Ａ列の最多文字数分だけの列数だけ。此処ではＺ列までとした)ズズーッとドラッグ＆ペースト（Fig-2）
　　=IF(COLUMN(A1)>LEN($A1),"",IF(OR(AND(CODE(MID($A1,COLUMN(A1),1))>47,CODE(MID($A1,COLUMN(A1),1))<58),AND(CODE(MID($A1,COLUMN(A1),1))>64,CODE(MID($A1,COLUMN(A1),1))<91),AND(CODE(MID($A1,COLUMN(A1),1))>96,CODE(MID($A1,COLUMN(A1),1))<123)),MID($A1,COLUMN(A1),1),""))
２．セル B1 に次式を入力
　　=C1&D1&E1&F1&G1&H1&I1&J1&K1&L1&M1&N1&O1&P1&Q1&R1&S1&T1&U1&V1&W1&X1&Y1&Z1
３．範囲 B1:Z1 を下方にズズーッとドラッグ＆ペースト