假设你上面的数据在A1:A4按下ALT+F11,菜单:插入-模块,复制下面代码.退出然后在B1输入=STR(A1),然后向下填充公式.B1:B4就是你要提取的.这个公式可以当作一般函数来通用了.只要输入=STR(你要提取的单元格),就会出来结果.Public Function STR(ByVal N As String) As StringA = Split(N, " ")For X = 0 To UBound(A)If Asc(Left(A(X), 1)) >= 65 ThenSTR = A(X)Exit FunctionEnd IfNextEnd Function