ExcelVBA由标题组和所在列数据为dic的key

Sub 多条件求和()
    Dim myR As range, brr()
    With Worksheets("VBA多条件求和")
        arr = .range("A1").CurrentRegion
        arr1 = Application.Index(arr, 1, 0)
        Set myR = .range("O1").CurrentRegion
        brr = StrToArray(arr1, myR)
        For i = 2 To UBound(arr)
        sjoin = Join(Application.Index(arr, i, brr), "")
            Debug.Print sjoin
        Next i
    End With
End Sub
Function StrToArray(inarr, rng)
    Dim rr As range, t_n%, t_m%, t_Array()
    ReDim t_Array(1 To rng.Count)
    On Error Resume Next
    t_n = 1
    For Each rr In rng
        t_m = Application.WorksheetFunction.Match(rr.Value, inarr, 0)
        If Err = 0 Then
            t_Array(t_n) = t_m
            t_n = t_n + 1
        Else
            MsgBox "有数据不对"
            StrToArray = Array(False, False)
            Exit Function
        End If
    Next
    StrToArray = t_Array
    On Error GoTo 0
End Function