文字列から数字以外を抽出する方法にはいくつか考えられます。いう3段階が必要になります。正規表現を利用すればループ処理と文字列連結処理は不要になり、文字判別処理だけで単純になります。ここではその正規表現での方法を紹介します。ちなみに正規表現が分からなくてもコピペで利用できます。ここでの数字とは全角と半角の両方を指します。以下のVBAコードは事前に正規表現の参照設定をしておく必要があります。5.5」にチェックを付けることで正規表現のRegExpクラスが利用できるようになります。正規表現を利用しているためコードがとても単純になります。工夫したコードになっています。単純に数字以外を検索する方法であれば、「0から9以外を検索し、それらを全て抽出する」というコードになります。それではコードが長くなるため、「数字を””の空文字に置き換えて数字以外だけを残す」という方法にしています。この関数は全角と半角の両方の数字を除外します。半角数字以外を抽出する場合は7行目の[0-90-9]を[0-9]に書き換えてください。全角数字以外を抽出する場合は[0-90-9]を[0-9]に書き換えてください。ブラウザでは分かりにくい場合もあるのですが、[0-90-9]の数字は左が半角、右が全角です。上のFindOtherNumberRegExp関数を利用するサンプルコードです。引数に「あいう1234567890abc1」と入力されているA1セルと抽出結果を返す変数を渡します。Excel作業をVBAで効率化シェアお問合わせTOPへ。