自定义函数--提取单元格内多个被分开的数字

YZC51

XLOOKUP语法规则

该函数的语法规则如下：（黄色部分为自己修改的）

XLOOKUP(lookup _value, lookup _array,return _array, [match _mode], [search _mode])

参数	简单说明	输入数据类型
Lookup _value	要查找的值	数值、引用或文本字符串
lookup _array	要查找的区域	数据表区域
Return _array	返回值的区域	数据表区域
Match _mode	模糊匹配/精确匹配等	数值0、-1、1、2（默认为0）
Search _mode	查找模式	查找第几个或最后一个

参数说明

Lookup _value为需要在数据表区域中进行查找的数值。Lookup_value可以为数值、引用或文本字符串。当Xlookup函数第一参数省略时，表示用0查找。

Lookup _array为需要在其中查找数据的区域。使用对区域或区域名称的引用。

return _array为需要在其中返回数据的区域。使用对区域或区域名称的引用。

Match _mode为一数值，指明函数 Xlookup 查找时是精确匹配，还是近似匹配等。

0-精确匹配

-1-精确匹配或下一个较小的项

1-精确匹配或下一个较大的项

2-通配符匹配

3-增加包含匹配

Search _mode 为一数值，指明函数 XLOOKUP 查找查找第几个或最后一个等

0 -为一对多查找

-1-返回最后的匹配值

1 -返回第一个匹配值

N-返回第N个匹配值

WYS67

YZC51 发表于 2019-9-7 19:37
XLOOKUP语法规则
该函数的语法规则如下：（黄色部分为自己修改的）XLOOKUP(lookup _value, lookup _array, ...

没花了......

YZC51

程序图片，因为有网址，所以上图片。

YZC51

模拟微软最新 Xlookup 函数的附件
迎接 XLOOKUP 函数.rar (541.62 KB, 下载次数: 120)

2019-9-8 15:03 上传

点击文件名下载附件

YZC51

模拟微软最新 Xlookup 函数的附件
请老师们下载139楼的附件！谢谢！

YZC51

'具有 Split 功能的自定义函数
Function Split(ByVal rng As String, Optional ByVal yrng As String = " ", Optional ByVal num As Integer = 0) As String
    rng = rng & yrng
    If num < 0 Then Split = "": Exit Function
    Select Case num
        Case 0
            If InStr(rng, yrng) = 0 Then Split = "": Exit Function
            Split = Mid(rng, 1, InStr(rng, yrng) - 1)
        Case Else
            rng1 = Replace(rng, yrng, "", , num - 1)
            If InStr(rng1, yrng) < 1 Then Split = "": Exit Function
            Split = Mid(rng1, InStr(rng1, yrng) + Len(yrng))
    End Select
End Function

'加强型 Split 功能的自定义函数
Function Splity(rng, Optional y = " ", Optional n = 0, Optional m = 0)

'y=默认分隔符为空格
'n=从第几节开始取,n为0时全取
'm=共取几节

    rng = rng & y
    If n < 0 Then Splity = "": Exit Function
    If n = 0 Then
        Splity = rng
    Else
        rng1 = Replace(rng, y, "", , n - 1)
        Splity = Mid(rng1, InStr(rng1, y) + Len(y))
    End If
    If m > 0 Then
        rng2 = Replace(Splity, y, Chr(28), , m - 1)
        Splity = Replace(Mid(rng2, 1, InStr(rng2, y) - Len(y)), Chr(28), y)
    End If
End Function

'加强型 Split 功能的自定义函数2
Function Splitmy(rng, Optional y = " ", Optional n = 0, Optional x = " ")

'y=默认分隔符为空格
'n=从第几节开始取,n为0时全取
'x=默认分隔符为空格,提取分隔符前的字符

    rng = rng & y
    If n < 0 Then Splitmy = "": Exit Function
    If n = 0 Then
        Splitmy = rng
    Else
        rng1 = Replace(rng, y, "", , n - 1)
        Splitmy = Mid(rng1, InStr(rng1, y) + Len(y))
    End If
    If InStr(Splitmy, x) > 0 Then
        rng2 = Splitmy
       Splitmy = Mid(rng2, 1, InStr(rng2, x) - 1)
    End If
End Function

YZC51

Public Function zm(t) '转码，制作：yzc51
'//"1\u4e09\u68df\u5c4b\u8def"
If InStr(t, "\u") Then
    V = Split(t, "\u")
    For i = 1 To UBound(V)
        m = m & ChrW("&H" & Left(V(i), 4)) & Mid(V(i), 6)
    Next
    m = V(0) & m
Else
    m = t
End If
zm = m
End Function

YZC51

Function ColorSum(Ref_color As Range, Sum_range As Range, Optional n = 0) '背景颜色求和等
    Application.Volatile
    Dim iCol As Integer
    Dim rCell As Range
    iCol = Ref_color.Interior.ColorIndex
    For Each rCell In Sum_range
        rCol = rCell.Interior.ColorIndex
        If iCol = rCol And Len(rCell) And IsNumeric(rCell) And rCell > 0 Then
            m = m + 1
            ColorSum = ColorSum + rCell                         '求和
        End If
    Next rCell
    If n = 1 Then ColorSum = ColorSum & "/" & m                 '显示和与个数
    If n = 2 Then ColorSum = Evaluate(ColorSum & "/" & m)       '显示平均数
End Function

YZC51

Function SHUZI(T) '提取单元格中的数字
    Dim i, str1
    For i = 1 To Len(T.Value)
'        If IsNumeric(Application.Find(Mid(T.Value, i, 1), "0123456789.")) Then
        If InStr("0123456789.", Mid(T.Value, i, 1)) Then
            str1 = str1 & Mid(T.Value, i, 1)
        End If
    Next
    SHUZI = Val(str1)
End Function

YZC51

Sub 取消分类汇总分级显示()
On Error Resume Next
Dim wsh As Worksheet
For Each wsh In Worksheets
    wsh.Activate
    Cells.ClearOutline
    Cells.RemoveSubtotal
    sh.Range("A1").Select
Next
Sheets("Sheet1").Select
End Sub