VBA初心者なので、詳しい方よろしければ教えてください。Excelに「〇〇県〇〇市１丁目２番３号」のように漢字と全角数字で入力されている住所を、「〇〇県〇〇市1‐2‐3」のように半角ハイフンと半角数字に直すコードを入力しました。ですが、「〇〇県〇〇市1丁目2番3号 〇〇ビル」のようにビル名等が入ってしまうと、番地の間に半角のハイフンが入ってしまいます。例．〇〇県〇〇市1-2-3-〇〇ビル調べてはみたのですがいまいちうまく動きませんでした。また、電話番号も同じように全角から半角数字とハイフンで入力したいです。もし良ろしければVBAのコード、書き方を教えていただければ幸いです。よろしくお願いいたします。