如何分离数字和汉字

gbkword

提取数字将提取文字公式 B=RIGHT(A4,LENB(A4)-LEN(A4))改为

B=MID(A6,1,LEN(A6)-(LENB(A6)-LEN(A6)))即可。

B=MID（A6，1，2*LEN（A6）—LENB（A6））

[此贴子已经被作者于2007-6-24 17:09:01编辑过]

zlxtl

用八楼的例子 第4行公式 [单元格内容"临时工工资701457890"在A4]

方法一：公式=RIGHTB(A4,(LENB(A4)-LEN(A4))*2)

方法二：利用SUBSTITUTE或REPLACE函数将八楼取出的内容替换掉

vfd

能将汉字和其他字符分离

zhangjimfu

Function GetNumber(rng As Range, Pos As Integer) As Single
    Dim i           As Integer
    Dim x           As Integer
    Dim t           As Integer
    Dim ilen        As Integer
    Dim StartPos    As Integer
    Dim EndPos      As Integer
    Dim sStr        As String
    Dim myStr       As String
    Dim numArray()  As String
   
    Application.Volatile
    x = 0
    t = 0
    myStr = "0123456789."
    sStr = Trim(rng.Value)
    ilen = Len(sStr)
   
    For i = 1 To ilen
        Do
            x = x + 1
            While InStr(1, myStr, Mid(sStr, x, 1)) < 1 And x <= ilen
                x = x + 1
            Wend
            StartPos = x
            While InStr(1, myStr, Mid(sStr, x, 1)) > 0 And x <= ilen
                x = x + 1
            Wend
            EndPos = x - 1
            If StartPos <= EndPos And IsNumeric(Mid(sStr, StartPos, EndPos - StartPos + 1)) Then
                t = t + 1
                ReDim Preserve numArray(1 To t)
                numArray(t) = Mid(sStr, StartPos, EndPos - StartPos + 1)
            End If
        Loop Until x >= ilen
    Next
    On Error GoTo exitfun
    sStr = numArray(1)
    On Error GoTo 0
    If Pos > UBound(numArray) Then
        GetNumber = 0
        Else
        GetNumber = numArray(Pos)
    End If
    Exit Function
exitfun:
    GetNumber = 0
End Function

stephen1707

理解清楚思路，依葫芦画瓢就可以了！

qgl2008

zlt518 发表于 2007-6-21 17:51
&nbsp;

老师您好；文件怎么都下载不了？

huipu20220102

是下不了了，不过论坛上逛逛，有很多帖子的

huipu20220102

这个可以看看
https://club.excelhome.net/threa ... tml?_dsign=29c07576

龙晓慕青

Crtl+E快捷键搞定