vba:Excelセル内から文字列をスクレイピング
KERATL 解決済
最終更新日:2022-01-19 06:50
返信リスト(回答:2)
2 #
HansVMV 1
これはどうですか(正規表現を使用します)?
関数Extract9(s As String)As String
Dim re As Object
Set re= CreateObject(Class:= "VBScript.RegExp")
re.Pattern= "\b\d {9}
\b "
エラー時に次を再開
Extract9= re.Execute(s)(0)
終了機能
次のように使用します:
= Extract9(A2)
√