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

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

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

いつもお世話になっております
投稿
[[20190512201031]] 『漢字２文字と数字の間に半角スペースを入れたい』（ひー）　
について...
数字だけ削除するにはどうすればいいでしょうか

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

---

 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 Range("c1", Range("c" & Rows.Count).End(xlUp))
             If .test(r.Value) Then r.Value = .Replace(r.Value, "$1")
         Next
     End With
 End Sub
（seiya） 2019/06/12(水) 22:14

---

ありがとうございました解決しました
（ひー） 2019/06/12(水) 22:48

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.