システムwiki

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)

応答2# ->にスキップ
1 #
KERATL

どうもありがとう!正規表現の作成方法に頭を悩ませることはできなかったので、正規表現を避けています.検索パターンについてサポートをいただければ幸いです.