關於vba中正則表達式的問題，必須加上有效點。

VBA可以使用Excel自帶的函數，比如Application.WorsheetFunction

使用Find()查找

將TestStr標註為字符串

TestStr = " & ltstyle ABCDEFGHIJKLMN style >

DIm StaPo為整數

StaPo =應用程序。WorsheetFunction . FIND(" & lt；Style "，teststr，1)+6 '您要查找的字符長度為6位數。

Dim EndPo為整數

EndPo =應用程序。WorsheetFunction . FIND(" style & gt；，TestStr，StaPo + 1)

這就是妳想要的。

MidStr =應用。工作表函數. Mid(TestStr，StaPo，EndPo-StaPo-6)