[[20190512201031]]　『漢字２文字と数字の間に半角スペースを入れたい』（ひー）　ページの最後に飛ぶ

『漢字２文字と数字の間に半角スペースを入れたい』（ひー）

漢字２文字と数字の間に半角スペースを入れたいのですができますか
例えば
福岡１や
広島２
を
福岡１や
広島２
みたいにできたらいいのですが
規則は漢字２文字のあとに数字の組み合わせです
できたらマクロでしたいですす
よろしくおねがいします

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 文頭より漢字2文字の後に数字(半角、全角を問わず)

 対象範囲を選択して実行

 Sub test()
     Dim r As Range
     With CreateObject("VBScript.RegExp")
        .Pattern = "^(([々〇?\u3400-\u9FFF\uF900-\uFAFF]|[\uD840-\uD87F]" & _
                    "[\uDC00-\uDFFF]){2})(?=[０-９\d])"
         For Each r In Selection
             If .test(r.Value) Then r.Value = .Replace(r.Value, "$1 ")
         Next
     End With
 End Sub

（seiya） 2019/05/12(日) 21:24

ありがとうございます範囲選択が必要なんですね
（ひー） 2019/05/12(日) 21:28

 >範囲選択が必要なんですね
 質問に特に範囲指定が無いから自分で応用/変更ができると思ったんだけど？
（seiya） 2019/05/12(日) 21:52

あっわすれてた
c列に対してでした失礼しました
書き忘れてました
（ひー） 2019/05/12(日) 22:05

 >         For Each r In Selection
 を
          For Each r In Range("c1", Range("c" & Rows.Count).End(xlUp))
 に変更。
（seiya） 2019/05/12(日) 22:19

わかりましたお手数おかけしました
ありがとうございます
（ひー） 2019/05/12(日) 22:37

コメント返信：

[ 一覧(最新更新順) ]

[[20190512201031]] 『漢字２文字と数字の間に半角スペースを入れたい』（ひー） ページの最後に飛ぶ

[[20190512201031]]　『漢字２文字と数字の間に半角スペースを入れたい』（ひー）　ページの最後に飛ぶ