【関数】不規則な文章から●●-●●●●-●●●●-●形式の数字を抜きだしたい

解決済

質問者：aoyama-reiko
質問日時：2025/04/07 08:21
回答数：5件

不規則な文章（１行）から以下のハイフン付き数値を抜き出す関数を教えて下さい
ご存じの方、アドバイスor関数を教えて下さい

●●-●●●●-●●●●-●　形式の数値を抜き出したいです

例
あいうえお10-1234-2508-1あい　⇒ 10-1234-2508-1

あいう90-1234-2508-2あいうえお⇒ 10-1234-2508-2

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.5ベストアンサー

回答者： tatsumaru77
回答日時：2025/04/08 11:44

>本コードは主にどんなステートメントを使っているのでしょうか？

>いつも見るコードからは想像が出来ないです

正規表現を使用しています。

詳細は「VBA 正規表現」で検索してください。

https://www.sejuku.net/blog/33541

https://codezine.jp/article/detail/1655

https://qiita.com/kisa/items/74085046abc6c0ac2607

正規表現は言語毎に多少の違いがありますが、
基本的な考え方は一緒なので、正規表現を覚えておいてください。

提示したスクリプトを解説すると
Public Function Get_Number(ByVal tel_str As String) As String
Dim reg As Object
Dim matches As Variant
Get_Number = ""・・・①
Set reg = CreateObject("VBScript.RegExp")・・・②
reg.Pattern = "(^|\D+)(\d{2}-\d{4}-\d{4}-\d)(\D+|$)"・・・③
Set matches = reg.Execute(tel_str)・・・④
If matches.count = 0 Then Exit Function・・・⑤
Get_Number = matches(0).submatches(1)・・・⑥
End Function

①戻り値を空白（""）に設定
②正規表現用オブジェクトの作成
③正規表現のマッチパターンを設定（ここがポイントです）
④マッチの実行を行い、結果をmatchesに格納
⑤マッチしないなら終了
⑥マッチした部分の
●●-●●●●-●●●●-●
の部分を取り出し、戻り値に設定する

- 1
- 件

通報する

この回答へのお礼

丁寧な解説ありがとうございます
大変、難しい論点だと思いましたが

難しいとやる気もでますね
ご指南、きっかけありがとうございます

通報する

お礼日時：2025/04/08 23:48

No.4

回答者： tatsumaru77
回答日時：2025/04/07 21:44

ユーザー定義関数になります。

以下のマクロを標準モジュールに登録してください。
この関数に文字列を渡すと、ハイフン付き数字が返ってきます。
添付図は、この関数の使用例です。
A列に文字列があるとき、B列にハイフン付き数字を抜き出す例です。
B1へ
=Get_Number(A1)
と入力し、オートフィルで下の行へコピーします。
該当数字がない場合は、空白("")が返ります。

Public Function Get_Number(ByVal tel_str As String) As String
Dim reg As Object
Dim matches As Variant
Get_Number = ""
Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "(^|\D+)(\d{2}-\d{4}-\d{4}-\d)(\D+|$)"
Set matches = reg.Execute(tel_str)
If matches.count = 0 Then Exit Function
Get_Number = matches(0).submatches(1)
End Function