在动态多维数组中搜索、排序、匹配- VBA

Function SearchValue(arr() As Variant, target As Variant) As Variant
    Dim i As Long, j As Long
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            If arr(i, j) = target Then
                SearchValue = "找到目标值，位置为：" & i & "-" & j
                Exit Function
            End If
        Next j
    Next i
    SearchValue = "未找到目标值"
End Function

Sub SortArray(arr() As Variant)
    Dim i As Long
    ' 按第一列升序排序
    Call Application.Sort(arr, Key1:=1, Order1:=xlAscending, Header:=xlNo)
    ' 按第二列降序排序
    ' Call Application.Sort(arr, Key1:=2, Order1:=xlDescending, Header:=xlNo)
    ' 其他列排序类似
End Sub

Function MatchValue(arr() As Variant, target As Variant) As Variant
    Dim i As Long, j As Long
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            If arr(i, j) Like target Then
                MatchValue = "找到匹配值，位置为：" & i & "-" & j
                Exit Function
            End If
        Next j
    Next i
    MatchValue = "未找到匹配值"
End Function