excel用自定义函数提取单元格内字符串中的数字

office教程网 2023-05-07 01:17:49

默认

后台-系统设置-扩展变量-手机广告位-内容正文顶部

摘要： 如果Excel单元格中包含一个混合文本和数字的字符串，要提取其中的数字，通常可以用下面的公式，例如字符串“隆平高科000998”在A1单元格中，在B1中输入数组公式： ...

如果Excel单元格中包含一个混合文本和数字的字符串，要提取其中的数字，通常可以用下面的公式，例如字符串“隆平高科000998”在A1单元格中，在B1中输入数组公式：

=MID(A1,MATCH(1,–ISNUMBER(–MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)),0),COUNT(–MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)))

公式输入完毕按Ctrl Shift Enter结束，公式返回文本形式的数值“000998”。下面的公式也可以提取字符串中的数值，并返回数值形式：

=LOOKUP(9E 307,–MID(A1,MIN(FIND({0;1;2;3;4;5;6;7;8;9},A1&1234567890)),ROW(INDIRECT("1:"&LEN(A1)))))

公式返回“998”。

上述两个公式适合于字符串中包含连续数字的情况。但有时字符串中可能包含多个被文本分隔的数字，如“世纪家园31栋3单元901室”中就包含了3个数值，用上面的第二个公式只能返回第一个数值“31”，而第一个公式不能得到正确的结果。要分别提取字符串中的各个数值，可以用下面的自定义函数。

在Excel中按Alt F11，打开VBA编辑器。单击菜单“插入→模块”，在代码窗口中输入下列代码：

Function GetNums(rCell As Range, num As Integer) As String
Dim Arr1() As String, Arr2() As String
Dim chr As String, Str As String
Dim i As Integer, j As Integer
On Error GoTo line1

Str = rCell.Text
For i = 1 To Len(Str)
chr = Mid(Str, i, 1)
If (Asc(chr) < 48 Or Asc(chr) > 57) Then
Str = Replace(Str, chr, " ")
End If
Next

excel利用数组公式获取一列中最接近0的数
要获取某列数值中最接近0的数（绝对值最小但不等于0的数），在Excel中可以用下面的数组公式。假如数值在A1:A15区域,，其中包含正数、负数、0和空单元格，如图所示。在C3单元格中输入数组公式： =INDEX(A1:A15,MATCH(MIN(IF(A1:A15,ABS(A1:A15))),ABS(A1:A15)

Arr1 = Split(Trim(Str))
ReDim Arr2(UBound(Arr1))
For i = 0 To UBound(Arr1)
If Arr1(i) <> "" Then
Arr2(j) = Arr1(i)
j = j 1
End If
Next

GetNums = IIf(num <= j, Arr2(num – 1), "")
line1:
End Function

该自定义函数定义了两个参数，第一个参数指定字符串所在的单元格，第二个参数指定提取字符串中的第几个数值。如果字符串中仅包含2个数值，而第二个参数大于2，则函数会返回空。

返回Excel工作表界面。假如上述字符串在A2单元格中，在B2中输入：

=Getnums(A2,1)

公式将以文本形式返回字符串中的第一个数值。要得到字符串中的第N个数值，将公式中的第二个参数“1”替换为N即可，如下图D2中的公式：

=Getnums(A2,3)

返回“901”。

说明：该自定义函数在处理小数形式的数值时，将小数点“.”也视为字符，因而对于小数可分别提取小数的整数部分和小数部分