Question

一个列中有数字有汉字,怎么筛选出数字来

Answer 1

是提取出来?

假设数据在A列 在B1输入

=LOOKUP(9E+307,--MID(A1,MIN(FIND({1,2,3,4,5,6,7,8,9,0},A1&5^19)),ROW($1:$99)))

公式下拉提取出数字

方法2

方法2：按ALT+F11,插入-模块,复制下列语句

Function SplitNumEng(str As String, sty As Byte)

Dim StrA As String

Dim StrB As String

Dim StrC As String

Dim i As Integer

Dim SigS As String

For i = 1 To Len(str)

SigS = Mid(str, i, 1)

If SigS Like "[a-zA-Z]" Then

StrA = StrA & SigS

ElseIf SigS Like "#" Then

StrB = StrB & SigS

Else

StrC = StrC & SigS

End If

Next i

Select Case sty

Case 1

SplitNumEng = StrA

Case 2

SplitNumEng = StrB

Case Else

SplitNumEng = StrC

End Select

End Function

比如你的数据在A1

BI输入 =SplitNumEng(A1,2) 表示提取数字

=SplitNumEng(A1,3)表示提取中文