excel中怎么提取数字跟汉字

在Excel中提取数字和汉字是一个常见的需求，尤其是在处理包含混合数据的文本时。使用Excel公式、利用VBA编程、借助第三方工具可以有效地解决这个问题。本文将详细介绍如何通过这三种方法实现数字和汉字的提取，并具体展开如何使用Excel公式来完成这一任务。

一、使用Excel公式提取数字

Excel公式可以快速、便捷地从混合字符串中提取数字。以下是一些常用的公式和技巧。

1. 利用MID函数和SUMPRODUCT函数提取数字

可以通过结合MID函数和SUMPRODUCT函数来提取字符串中的数字。

=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)*10^(ROW(INDIRECT("1:"&LEN(A1)))-1))

这段公式通过MID函数逐个字符检查字符串中的每一个字符是否为数字，ISNUMBER函数返回布尔值，SUMPRODUCT函数进行累加得到最终的数字。

2. 使用TEXTJOIN和IF函数提取数字

新版本的Excel（Excel 2016及更高版本）中可以使用TEXTJOIN和IF函数结合数组公式来提取数字。

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

该公式会检查每个字符，如果是数字就将其连接起来，最终得到一个完整的数字字符串。

二、使用Excel公式提取汉字

提取汉字相对复杂一些，因为Excel没有直接的函数来识别汉字。可以通过结合一些函数来实现。

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

可以使用MID函数和UNICODE函数来检查每个字符是否为汉字。

=TEXTJOIN("", TRUE, IF(UNICODE(MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1)) > 19968, MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1), ""))

这段公式会逐个字符检查其Unicode码，如果在汉字的Unicode范围内（大于19968），则将其提取出来。

三、利用VBA编程提取数字和汉字

VBA（Visual Basic for Applications）是一种强大的编程语言，可以用于Excel中更复杂的数据处理任务。通过编写VBA代码，可以精确地提取数字和汉字。

1. VBA代码提取数字

以下是一个简单的VBA代码示例，用于提取字符串中的数字：

Function ExtractNumbers(str As String) As String
    Dim i As Integer
    Dim result As String
    result = ""
    For i = 1 To Len(str)
        If IsNumeric(Mid(str, i, 1)) Then
            result = result & Mid(str, i, 1)
        End If
    Next i
    ExtractNumbers = result
End Function

将这段代码粘贴到VBA编辑器中，然后可以在Excel中通过公式=ExtractNumbers(A1)来调用该函数。

2. VBA代码提取汉字

以下是一个用于提取汉字的VBA代码示例：

Function ExtractChineseCharacters(str As String) As String
    Dim i As Integer
    Dim charCode As Long
    Dim result As String
    result = ""
    For i = 1 To Len(str)
        charCode = AscW(Mid(str, i, 1))
        If charCode >= 19968 And charCode <= 40959 Then
            result = result & Mid(str, i, 1)
        End If
    Next i
    ExtractChineseCharacters = result
End Function

同样地，将这段代码粘贴到VBA编辑器中，然后可以通过公式=ExtractChineseCharacters(A1)来调用该函数。

四、借助第三方工具提取数字和汉字

在一些情况下，使用Excel内置功能或VBA可能不够高效或灵活。此时，可以考虑借助一些第三方工具。

1. Power Query

Power Query是Excel的一个强大插件，可以进行数据清洗和转换。使用Power Query，可以非常方便地提取数字和汉字。

2. 其他第三方插件

市场上有许多专门用于数据处理的第三方插件，如Kutools for Excel。这些插件通常提供了更为便捷的功能，可以直接提取混合字符串中的数字和汉字。

五、综合应用实例

为了更好地理解上述方法，下面通过一个综合实例来展示如何在实际工作中应用这些技术。

实例背景

假设我们有一列数据，包含混合的汉字和数字，例如：

A1: "订单1234号" A2: "客户5678名" A3: "产品91011件"

1. 使用Excel公式提取数字

在B列中输入以下公式：

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

结果：

B1: 1234 B2: 5678 B3: 91011

2. 使用Excel公式提取汉字

在C列中输入以下公式：

=TEXTJOIN("", TRUE, IF(UNICODE(MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1)) > 19968, MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1), ""))

结果：

C1: 订单号 C2: 客户名 C3: 产品件

结论

使用Excel公式、利用VBA编程、借助第三方工具是提取数字和汉字的三种有效方法。通过具体实例的展示，可以更好地理解和应用这些方法。无论是日常办公还是数据分析，这些技巧都能大大提高工作效率。