excel多数字多汉字怎么提取

在Excel中提取多数字和多汉字的方法主要有：使用函数、VBA代码、结合正则表达式。 使用这些方法，可以有效地从包含多个数字和汉字的字符串中分别提取所需内容。以下将详细介绍其中一种方法。

使用Excel函数来提取数字和汉字是一种方便且无需编程的方式，适合初学者。首先，我们可以使用函数公式来逐步分解和提取数据。

一、使用Excel函数提取数字

1. 使用MID和ISNUMBER函数提取数字

在Excel中，可以结合MID函数和ISNUMBER函数来提取数字。假设数据在A列中，我们可以在B列中输入以下公式来提取数字：

=TEXTJOIN("", TRUE, IF(ISNUMBER(MID(A1, ROW(INDIRECT("1:" & LEN(A1))), 1)+0), MID(A1, ROW(INDIRECT("1:" & LEN(A1))), 1), ""))

这个公式的原理是利用MID函数逐字符检查，如果字符为数字，则将其提取出来并连接。

2. 使用SUMPRODUCT和MID函数提取数字

另一种方法是使用SUMPRODUCT函数配合MID函数进行提取：

=SUMPRODUCT(MID(0&A1,LARGE(INDEX(ISNUMBER(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))*ROW(INDIRECT("1:"&LEN(A1))),0),ROW(INDIRECT("1:"&LEN(A1))))+1,1)*10^(ROW(INDIRECT("1:"&LEN(A1)))-1))

这个公式通过逐字符检查并将数字提取后进行重组，适用于提取连续数字。

二、使用Excel函数提取汉字

1. 使用MID和UNICODE函数提取汉字

提取汉字的方法类似，可以结合MID和UNICODE函数来实现。我们可以在C列中输入以下公式来提取汉字：

=TEXTJOIN("", TRUE, IF(ISNUMBER(FIND(MID(A1, ROW(INDIRECT("1:" & LEN(A1))), 1), "一二三四五六七八九十")), MID(A1, ROW(INDIRECT("1:" & LEN(A1))), 1), ""))

这个公式的原理是利用MID函数逐字符检查，如果字符为汉字，则将其提取出来并连接。

2. 使用自定义函数提取汉字

我们也可以通过定义一个自定义函数来提取汉字：

Function ExtractChinese(text As String) As String
    Dim i As Integer, char As String
    Dim result As String
    result = ""
    For i = 1 To Len(text)
        char = Mid(text, i, 1)
        If AscW(char) >= 19968 And AscW(char) <= 40869 Then
            result = result & char
        End If
    Next i
    ExtractChinese = result
End Function

在Excel中使用这个自定义函数提取汉字，将公式 =ExtractChinese(A1) 输入到单元格中即可。

三、使用VBA代码提取数字和汉字

1. VBA代码提取数字

我们可以编写一个VBA宏来从字符串中提取数字：

Sub ExtractNumbers()
    Dim cell As Range
    Dim i As Integer
    Dim num As String
    For Each cell In Selection
        num = ""
        For i = 1 To Len(cell.Value)
            If IsNumeric(Mid(cell.Value, i, 1)) Then
                num = num & Mid(cell.Value, i, 1)
            End If
        Next i
        cell.Offset(0, 1).Value = num
    Next cell
End Sub

选择包含数据的单元格，然后运行这个宏，提取的数字将会被放置在相邻的单元格中。

2. VBA代码提取汉字

类似地，我们可以编写一个VBA宏来提取汉字：

Sub ExtractChineseCharacters()
    Dim cell As Range
    Dim i As Integer
    Dim char As String
    Dim result As String
    For Each cell In Selection
        result = ""
        For i = 1 To Len(cell.Value)
            char = Mid(cell.Value, i, 1)
            If AscW(char) >= 19968 And AscW(char) <= 40869 Then
                result = result & char
            End If
        Next i
        cell.Offset(0, 1).Value = result
    Next cell
End Sub

选择包含数据的单元格，然后运行这个宏，提取的汉字将会被放置在相邻的单元格中。

四、结合正则表达式提取数字和汉字

1. 使用VBA结合正则表达式提取数字

正则表达式是一种强大的工具，可以用来匹配特定的模式。我们可以在VBA中使用正则表达式来提取数字：

Function ExtractNumbersRegex(text As String) As String
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "d+"
    regex.Global = True
    Dim matches As Object
    Set matches = regex.Execute(text)
    Dim result As String
    result = ""
    Dim match As Object
    For Each match In matches
        result = result & match.Value
    Next match
    ExtractNumbersRegex = result
End Function

在Excel中使用这个自定义函数 =ExtractNumbersRegex(A1) 提取数字。

2. 使用VBA结合正则表达式提取汉字

同样，我们可以使用正则表达式来提取汉字：

Function ExtractChineseRegex(text As String) As String
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "[u4e00-u9fa5]"
    regex.Global = True
    Dim matches As Object
    Set matches = regex.Execute(text)
    Dim result As String
    result = ""
    Dim match As Object
    For Each match In matches
        result = result & match.Value
    Next match
    ExtractChineseRegex = result
End Function

在Excel中使用这个自定义函数 =ExtractChineseRegex(A1) 提取汉字。

五、总结

通过以上介绍的方法，无论你是初学者还是有一定编程基础的用户，都可以找到适合自己的方法来提取Excel中的多数字和多汉字。使用函数方法方便快捷，适合简单需求；而使用VBA代码和正则表达式方法，更加灵活和强大，适合复杂的提取需求。 在实际应用中，可以根据具体需求选择合适的方法，提升工作效率。