假设数据在A1格，用下面代码可以搞定，数字会显示在B1格
Sub 提取()a = Range("a1")For i = 1 To Len(a) If IsNumeric(Mid(a, i, 1)) Then b = Mid(a, i, 1) Range("b1") = b Exit For End IfNextEnd Sub
