中文加英文，如何只取英文

糊涂涂

例如  阿的江dsffs，是否fs。我只想取出英文。请问各位大侠

sunego

不规则的用VBA吧~比较方便

gaoshuichang1

=MID(A1,LENB(A1)-LEN(A1)+1,LEN(A1))

hjj0451

没有规律不好办。

sunego

自定义函数
Public Function 英文(aa)
Dim i As Integer
For i = 1 To Len(aa)
If Mid(aa, i, 1) Like "A-Z" Or Mid(aa, i, 1) Like "a-z" Then
英文 = 英文 & Mid(aa, i, 1)
End If
Next i
End Function

wshcw

Function zldccmx(Rng As Range, Ms As Integer)
    Dim ys(1 To 12): Dim RegEx
    ys(1) = "[^A-Za-z0-9]"    '只保留字母和数字
    ys(2) = "[^!-~]"  '去除中文
    ys(3) = "[!-~]" '"\w"    '留中文
    ys(4) = "\d"    '  去掉数字
    ys(5) = "[^\d]"   ' 留数字
    ys(6) = "\D"    '去除非数字(留数字)
    ys(7) = "[a-zA_Z]"    '去除英文大小写字符
    ys(8) = "3*a*"    '去除所有指定字符，这里指去除3和1
    ys(9) = "36*"    '去除所有指定字符，这里指去除"36"
    ys(10) = "[^3]"    '去除所有非特定字符，这里指去除不是3的字符
    ys(11) = "[^0-9.]"    '只保留数字和小数点
    ys(12) = "[^0-9/.+-^\*^]"    '保留数字和运算符号+-*/^
    Set RegEx = CreateObject("VBSCRIPT.REGEXP")    'RegEx为建立正则表达式
    RegEx.Global = True    '设置全局可用
    RegEx.Pattern = ys(Ms)    '样式
    zldccmx = Replace(RegEx.Replace(Rng, Chr(9)), Chr(9), "")
    Set RegEx = Nothing
'参数：1表示只保留字母和数字；
'参数：2表示去除中文；
'参数：3表示只留中文；
'参数：4表示去掉数字；
'参数：5表示留数字；
'参数：6表示去除非数字(留数字)；
'参数：7表示去除英文大小写字符；
'参数：8表示去除所有指定字符，这里指去除3和a；
'参数：9表示去除所有指定字符，这里指去除"36"；
'参数：10表示去除所有非特定字符，这里指去除不是3的字符；
'参数：11表示只保留数字和小数点；
'参数：12表示保留数字和运算符号+-*/^
End Function

朝明

wshcw 发表于 2011-12-9 08:57
Function zldccmx(Rng As Range, Ms As Integer)
    Dim ys(1 To 12): Dim RegEx
    ys(1) = "[^A-Za-z ...

太好了，太强大了。谢谢

CheryBTL

这样不知道行不行呀？
数组公式
=MID(A1,MIN(IF(MID(A1,ROW(A1:A100),1)<"吖",ROW(A1:A100),999)),100)

LangQueS

建议楼主上传问题附件说明这样操作的缘由，使大家了解问题全貌，以便灵活解决问题。

叫我史栋

如果是单纯的中文+英文的话：中文提取=LEFT(A1,LENB(A1)-LEN(A1))，英文提取=RIGHT(A1,2*LEN(A1)-LENB(A1))，不知道都想那么复杂干嘛，符合他举得例子都行了