Question

如何将EXCEL中在同个单元格中的汉字和数字分开

Answer 1

Function Tr(Rg As Range, x$)
    Dim reg
     Set reg = CreateObject("Vbscript.RegExp")
    If x = "S" Then
        With reg
        .Global = True
        .Pattern = "\D+"
        End With
        Tr = reg.Replace(Rg, "")
    ElseIf x = "H" Then
        With reg
        .Global = True
        .Pattern = "[^\u4e00-\u9fa5]"
        End With
        Tr = reg.Replace(Rg, "")
    ElseIf x = "Z" Then
        With reg
        .Global = True
        .Pattern = "[^A-Za-z]"
        End With
        Tr = reg.Replace(Rg, "")
    Else
        Tr = ""
    End If
End Function

具体操作：

1、打开excel

2、组合快捷键 Alt + F11

3、右键当前，创建对应模块，粘贴代码

4、在单元格进行公式编辑，键入对应公式

=tr(A2,"S")

S 是数字

H 是汉字

Z 是字母

Answer 2

1. 先来学习right函数：right函数是从一个文本字符串的最后一个字符开始返回指定个数的字符。

2. 在学习另一个函数：left，left与right刚好相反，是从一个文本字符串的第一个字符开始返回指定个数的字符。

3. 细心的人会发现这两个函数是返回指定个数的字符，那么有的是类似“自行车123”和“电脑12”这样没有固定个数的怎么办，我们还需要两个函数：一个是len，返回文本字符串中字符的个数；另一个是lenb,返回文本中所包含的的字符数。熟悉了这几个函数后就可以进行下一步了

4. 例如下图，汉字和数字在A1至A4单元格，我们想将汉字放在B1，将数字放在C1。

5. 在B1单元格输入公式：=LEFT(A1,LENB(A1)-LEN(A1))；在C1单元格输入公式：=RIGHT(A1,2*LEN(A1)-LENB(A1))，

6. 剩下的就是选中B1、C1然后复制公式，这样汉字就和数字分开了，