excel中 一个单元格中有文字 字母 字符 和 数字 如何能把数字单独提取出来?
如A1中A本月电费收入(美兰供电所)(对帐标志:2010.01.07)想在B中表示为20100107最好能教一个方法十分感谢...
如A1中 A本月电费收入(美兰供电所)(对帐标志:2010.01.07)
想在B中表示为 20100107
最好能教一个 方法 十分感谢 展开
想在B中表示为 20100107
最好能教一个 方法 十分感谢 展开
展开全部
在EXECL理,按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,1) 表示提取字母
=SplitNumEng(A1,2) 表示提取数字
=SplitNumEng(A1,3)表示提取中文
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,1) 表示提取字母
=SplitNumEng(A1,2) 表示提取数字
=SplitNumEng(A1,3)表示提取中文
追问
这个方法网上看过几次,但是个人水平也有限 还是不太会用 能否详细解释下 和 给出 操作过程
追答
打开你的EXECL,按ALT+F11,点上面菜单里的 插入-模块,复制下列语句后,关闭模块,返回到你的EXECL里,比如你的数据在A1
在BI输入 =SplitNumEng(A1,1) 回车 表示提取字母
=SplitNumEng(A1,2) 表示提取数字
=SplitNumEng(A1,3) 表示提取中文
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询