[求助]如何从文本中，分别提取英文字母和其它单字节符号和数字？

jsyzhui1226

A1:文本（其中有文字，有字母，有数字，有符号）例如：中国zg2008k/300个人.....

请问如何实现：

多个单元格，每格的数值分别是    中国  

                                                    zg

                                                   2008

                                                     k

                                                     /

                                                  300

                                                   个人

                                                    .....

谢谢



用函数或程序都可以，请高手指点，谢谢

[此贴子已经被作者于2005-11-25 11:31:44编辑过]

grzhu

用mid()函数提取则可

jsyzhui1226

因为数据特别多，而且数据的格式并不是象例子一样，所以用MID没有办法的。我的意思是想在不同的字符类型之间进行分割，然后进行提取。

myth_sea

可以按ASCII码范围来分，不过这样很麻烦的

情比金坚

我的方法如下：先用一个函数把你的字符按类别分开，在中间加入分隔符，（函数如下：我用“  ”作分隔符，你也可以选择其他的符号）

然后用复制--选择性粘贴把函数转换为文本

最后再用数据--分列--按符号分列，完成！！

Function ff(s As String)
Dim s1 As String
Dim n As Integer
Dim i As Integer
Dim a1 As Integer
a1 = 0
    's = "中国zg2008k/300个人"
    n = Len(s)
    For i = 1 To n
        s1 = Mid(s, i, 1)
        If InStr("abcdefghijklmnopqrstuvwxyz", s1) > 0 Then
            a2 = 1
            If a2 = a1 Then
                s2 = s2 & s1
            Else
                s2 = s2 & " " & s1
                a1 = 1
            End If
        Else
            If InStr("1234567890", s1) > 0 Then
                a2 = 2
                If a2 = a1 Then
                    s2 = s2 & s1
                Else
                    s2 = s2 & " " & s1
                    a1 = 2
                End If
            Else
                If InStr("+-*\/!<>", s1) > 0 Then
                    a2 = 3
                    If a2 = a1 Then
                        s2 = s2 & s1
                    Else
                        s2 = s2 & " " & s1
                        a1 = 3
                    End If
                Else
                    If a1 = 0 Then
                        s2 = s2 & s1
                    Else
                        s2 = s2 & " " & s1
                        a1 = 0
                    End If
                End If
           End If
        End If
    Next
    ff = s2

End Function