セル内文章から、英数字のみ取り出す関数を教えてください

添付図のＡ列には、英数字と文字が入っています。（Ｂ列もですがＡ列のみで大丈夫です）

例：Ａ3　Ｈ　良い　　　　　→　　Ｈ
　　Ａ4　Ｌ　普通です　　　→　　Ｌ

このように、英数字のみ取り出す関数は何かありますでしょうか？
マクロなど例はあったのですが、関数でわかりやすくできると良いな、と思います。

宜しくお願いいたします。

No.2 回答者： tom04 回答日時： 2015/07/13 20:01

こんばんは！

関数での方法をご希望のようですが結構厄介だと思います。
お望みの方法ではないVBAになりますが、
今回の質問専用の関数（ユーザー定義関数）を作ってみてはどうでしょうか？

Alt＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り（VBE画面を閉じて）
通常の関数のような使い方を行います。

Function Mystr(myRng As Range) 'この行から//
Dim k As Long, str As String, buf As String
For k = 1 To Len(myRng)
str = Mid(myRng, k, 1)
If StrConv(str, vbNarrow) Like "[0-9A-Za-z]" Then
buf = buf & str
End If
Next k
Mystr = buf
End Function 'この行まで

※　使い方　※　
①　表示したいセルを選択
②　数式バーの左側にある「fx」のアイコンをクリック
③　「関数の分類」の右側▼で「ユーザー定義」を選択
④　「Mystr」が選択されている状態でOK
⑤　入力窓で検索対象セルを選択しOK

これで英数文字のみが表示されます。

※　保存時は「マクロ有効ブック」として保存します。m(_ _)m

No.1 回答者： esupuresso 回答日時： 2015/07/13 19:45

＞英数字のみ取り出す関数は何かありますでしょうか？

A列のスペース部分が全角のスペースだとして・・・

抽出したいセルに　=IFERROR(SUBSTITUTE(A1,RIGHT(A1,LEN(A1)-FIND("　",A1)),""),"")　とか
抽出したいセルに　=IFERROR(REPLACE(A1,FIND("　",A1),LEN(A1),""),"")　などの数式で。

添付画像のB列の式は　=IFERROR(SUBSTITUTE(A1,RIGHT(A1,LEN(A1)-FIND("　",A1)),""),"")
C列の式は　=IFERROR(REPLACE(A1,FIND("　",A1),LEN(A1),""),"")
下方向へ式をオートフィルコピーします。

B列に関しては、区切り部分が何もないので・・・　(*￣∧￣*;)ｳｰﾝ
英数文字が必ず右側の2文字だけというのでしたら単に　=RIGHT(D1,2)　の式で充分なのですが、そうでもなさそうな気が・・・　（;￣ー￣A ｱｾｱｾ･･･