本文的示例,讲述的是如何使用公式函数,返回单元格里面的混合中英文中的英文字母。
先看下表吧。
要实现的功能就是这样,A列是混合列,B列返回的是中文;C列返回的是英文。下面我们开始吧!
一、返回中文
由于B列所使用的公式比较长,本文就不再贴出图片了,直接给出函数公式了,选中B2单元格,在FX函数输入框中,输入如下公式代码。
=MID(A2,MATCH(2,LENB(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)),0),LENB(A2)-LEN(A2))
注意,输入函数公式之后,必须同时按下Ctrl+Shift+Enter组合键方能生效,因为这是数组公式,不是普通公式。
二、返回英文
由于已经使用数组公式返回中文了,接下来,要返回中文就比较容易了,直接使用普通函数就行了。
选中B2单元格,在FX函数输入框中输入如下公式代码:
=TRIM(SUBSTITUTE(A2,B2,""))
按下回车键即可生效。
C3单元格的公式如下图,都是类似的。
一切都弄好了,其它的单元格,就不用输入了,直接使用填充工具往下来,结果就出来了,如此如此。
三、使用自定义函数返回中英文
Function SplitStringChs(TheString)
Dim n, Chs
For n = 1 To Len(TheString)
If Asc(Mid(TheString, n, 1)) < 0 Then
Chs = Chs & Mid(TheString, n, 1)
End If
Next
SplitStringChs = Chs
End Function
Function SplitStringEng(TheString)
Dim n, Eng
For n = 1 To Len(TheString)
If Asc(Mid(TheString, n, 1)) >= 0 Then
Eng = Eng & Mid(TheString, n, 1)
End If
Next
SplitStringEng = Trim(Eng)
End Function
返回中文的用法,函数公式如下:
=SplitStringChs(A2)
返回英文的用法,函数公式如下:
=SplitStringeng(A2)