如何用VBA判斷單元格中是否包含形如"B數字H數字T數字"。代碼如何寫？

Dim?oRegExp?As?Object

Dim?sText?As?String

sText?=?Range("A1").Text

Set?oRegExp?=?CreateObject("vbscript.regexp")

With?oRegExp

'設置是否區分大小寫，True表示不區分大小寫,?False表示區分大小寫

.IgnoreCase?=?True

'設置要查找的字符模式

.Pattern?=?"B\d+H\d+\T\d+"

'判斷是否可以找到匹配的字符，若可以則返回True

MsgBox?.Test(sText)

End?With

Set?oRegExp?=?Nothing

End?Sub