提取字符串中第一个符号前的所有内容

windimi007

我想要提取A1单元格字符串中第一个符号（比如：加号、下划线、换行符……）前的所有内容，如附件所示。
想用正则表达式完成，于是写了如下一段代码：

1. Sub aa()
   
2.     With CreateObject("vbscript.regexp")
   
3.         .Global = True
   
4.         .Pattern = "[0-9a-zA-Z\u4e00-\u9fa5]*(?=[^0-9a-zA-Z\u4e00-\u9fa5])"
   
5.         [b1] = .Execute([a1])(0)
   
6.     End With
   
7. End Sub
   

复制代码

总感觉“.PATTERN”后面的语句过于繁琐，还望大家帮忙简化，谢谢。{:3112:}
P.S.  A1单元格的字符串中至少会出现一个符号。

赵二92158

新手拜访，老师您好！