[已解决]如何从单元格中提取数字,文字和字母

虚度此生

请问,一个单元格中既有字母又有文字又有数字,怎样把它们分离开?

例如A1单元格有"一12ANJ二五44BHH……"

1，如何提取成为"1244……

2，如何提取成为：ANJBHH……

3，如何提取成为：一二五……

请各位老师指教。

最佳答案

月排行榜 / 总排行榜

lotte

2009-12-3 15:25

如何从单元格中提取数字,文字和字母

跳转到最佳答案楼层

pc520

看是否有规律。

pc520

格式固定的话用MID函数就可以了

pc520

已A1为例：

1：=MID(A1,2,2)&MID(A1,9,2)

2：=MID(A1,4,3)&MID(A1,11,3)

3：=MID(A1,1,1)&MID(A1,7,2)

[此贴子已经被作者于2009-12-3 15:19:35编辑过]

虚度此生

不行啊，就是没有规律，有没有什么“字母通配符”“数字通配符”之类的可以找出来？

pc520

发附件上来看看。

yuhe0008

如果是无规律的，还是直接用自定义函数或者VBA吧。

lotte

如何从单元格中提取数字,文字和字母

大灰狼

自定义函数
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

hGpCwJDJ.rar (6.51 KB, 下载次数: 121)

2009-12-3 15:32 上传

点击文件名下载附件

[此贴子已经被作者于2009-12-3 15:31:48编辑过]

pc520

精彩，word也上来了，学习下