VBA正则可以做,函数不会
表达式是 "\D+" 注意大小写
Function TiQuShuZi(nStr As String) As String For i = 1 To Len(nStr) If IsNumeric(Mid(nStr, i, 1)) Then TiQuShuZi = TiQuShuZi & Mid(nStr, i, 1) NextEnd Functi
如何把表格中的数字单独提取出来呢?用复制-粘贴就能搞定。