excel里怎么只取数字不要单位

要在Excel中只提取数字而不包括单位，你可以使用多种方法，包括使用公式、VBA宏和Power Query。常用的方法包括使用Excel公式、VBA宏、TEXT函数、LEFT和RIGHT函数等。其中，最简单和常用的是利用Excel的公式功能。以下是详细介绍其中一种方法。

使用Excel公式提取数字：一种常用的方法是结合LEFT、RIGHT、MID、FIND等函数使用。你可以使用这些函数来提取包含在文本字符串中的数字。

一、使用Excel公式提取数字

1、使用TEXT函数

TEXT函数可以将数字格式化为文本字符串。虽然它不能直接从一个字符串中提取数字，但可以与其他函数结合使用来实现这个目的。

例如，如果你的数据在A列中，你可以使用以下公式来提取数字：

=TEXT(LEFT(A1,FIND(" ",A1)-1),"0")

这个公式假设数字和单位之间有一个空格。FIND(" ",A1)找到空格的位置，然后LEFT(A1,FIND(" ",A1)-1)提取出空格前的所有字符。最后，TEXT函数将这些字符格式化为数字。

2、使用LEFT和RIGHT函数

如果数字和单位的分隔符是已知的，可以使用LEFT和RIGHT函数来提取数字。例如，如果数字总是在单位前面，并且单位总是由固定数量的字符表示，可以使用以下公式：

=LEFT(A1,LEN(A1)-3)

这个公式假设单位总是由3个字符表示（例如，“kg”或“cm”）。LEN(A1)-3计算出数字部分的长度，然后LEFT(A1,LEN(A1)-3)提取出数字部分。

3、使用MID和FIND函数

如果数字和单位之间存在分隔符，可以使用MID和FIND函数来提取数字。例如，如果数字和单位之间有一个空格或其他分隔符，可以使用以下公式：

=MID(A1,1,FIND(" ",A1)-1)

这个公式假设数字和单位之间有一个空格。FIND(" ",A1)找到空格的位置，然后MID(A1,1,FIND(" ",A1)-1)提取出空格前的所有字符。

二、使用VBA宏提取数字

除了使用Excel公式，还可以使用VBA宏来提取数字。VBA（Visual Basic for Applications）是Excel的编程语言，可以用来编写复杂的宏来自动化任务。

1、编写VBA宏

以下是一个简单的VBA宏，用于从单元格中提取数字：

Function ExtractNumbers(cell As Range) As Double
    Dim str As String
    Dim i As Integer
    Dim result As String
    str = cell.Value
    result = ""
    For i = 1 To Len(str)
        If IsNumeric(Mid(str, i, 1)) Or Mid(str, i, 1) = "." Then
            result = result & Mid(str, i, 1)
        End If
    Next i
    ExtractNumbers = Val(result)
End Function

将上述代码复制到VBA编辑器中，并为要提取数字的单元格应用此函数。例如，如果要从A1单元格中提取数字，可以在B1单元格中输入以下公式：

=ExtractNumbers(A1)

2、运行VBA宏

要运行VBA宏，首先需要打开VBA编辑器。可以通过按Alt + F11打开VBA编辑器。然后，在模块中粘贴上述代码并关闭VBA编辑器。返回Excel工作表，输入公式=ExtractNumbers(A1)即可。

三、使用Power Query提取数字

Power Query是Excel的一个强大工具，用于数据导入和转换。可以使用Power Query来提取数字。

1、导入数据到Power Query

首先，选择包含数据的单元格范围，然后点击“数据”选项卡中的“从表格/范围”按钮。这样会打开Power Query编辑器。

2、使用Power Query提取数字

在Power Query编辑器中，可以使用“替换值”功能来删除非数字字符。以下是具体步骤：

选择包含数据的列。
点击“转换”选项卡中的“替换值”按钮。
在“替换值”对话框中，输入要删除的非数字字符（如字母、空格等），将其替换为空字符串。
重复此步骤，直到所有非数字字符都被删除。

3、加载数据到Excel

完成数据转换后，点击“关闭并加载”按钮，将转换后的数据加载回Excel工作表。

四、使用正则表达式提取数字

正则表达式是一种强大的文本匹配工具，可以用来提取数字。虽然Excel本身不支持正则表达式，但可以通过VBA宏来使用正则表达式。

1、编写正则表达式VBA宏

以下是一个使用正则表达式的VBA宏，用于从单元格中提取数字：

Function ExtractNumbersRegex(cell As Range) As Double
    Dim regex As Object
    Dim matches As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "d+(.d+)?"
    regex.Global = True
    Set matches = regex.Execute(cell.Value)
    If matches.Count > 0 Then
        ExtractNumbersRegex = CDbl(matches(0).Value)
    Else
        ExtractNumbersRegex = 0
    End If
End Function