Sub main()
    Dim ipath$, fname$, isum&, addr$
    Application.ScreenUpdating = False
    ipath = "Путь к файлам"
    addr = ActiveCell.Address
    fname = Dir(ipath)
    Do While fname <> ""
        If fname <> ThisWorkbook.Name Then
            With GetObject(ipath & fname).Worksheets(1)
                isum = isum + .Range(addr).Value
                .Parent.Close False
            End With
        End If
        fname = Dir
    Loop
    Application.ScreenUpdating = True
    msgbox isum
End Sub

With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Укажите рабочую папку"
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        myPath = .SelectedItems(1) & Application.PathSeparator
    End With

 myPath = "Путь к файлам"

Sub main()
    Dim arr(), dic As Object, txt$
    Dim lrow&, i&, ikey
     
    Set dic = CreateObject("scripting.dictionary")
    lrow = Range("a" & Rows.Count).End(xlUp).Row
    arr = Range("a2:c" & lrow).Value
    For i = 1 To UBound(arr)
        If arr(i, 1) > arr(i, 2) Then
            txt = arr(i, 1) & "|" & arr(i, 2)
        Else: txt = arr(i, 2) & "|" & arr(i, 1)
        End If
        dic.Item(txt) = dic.Item(txt) + arr(i, 3)
    Next i
    Erase arr: i = 0
    ReDim arr(dic.Count, 3)
    For Each ikey In dic.keys
        arr(i, 0) = Split(ikey, "|", 2)(0)
        arr(i, 1) = Split(ikey, "|", 2)(1)
        arr(i, 2) = dic.Item(ikey)
        i = i + 1
    Next ikey
    [a1].Resize(, 3).Copy [e1]
    [e2].Resize(dic.Count, 3).Value = arr
End Sub

Sub main()
    Dim arr(), dic As Object, txt$
    Dim lrow&, i&, ikey
    
    Set dic = CreateObject("scripting.dictionary")
    lrow = Range("a" & Rows.Count).End(xlUp).Row
    arr = Range("a2:c" & lrow).Value
    For i = 1 To UBound(arr)
        If arr(i, 1) > arr(i, 2) Then
            txt = arr(i, 1) & "|" & arr(i, 2)
        Else: txt = arr(i, 2) & "|" & arr(i, 1)
        End If
        dic.Item(txt) = arr(i, 3)
    Next i
    Erase arr: i = 0
    ReDim arr(dic.Count, 3)
    For Each ikey In dic.keys
        arr(i, 0) = Split(ikey, "|", 2)(0)
        arr(i, 1) = Split(ikey, "|", 2)(1)
        arr(i, 2) = dic.Item(ikey)
        i = i + 1
    Next ikey
    [a1].Resize(, 3).Copy [e1]
    [e2].Resize(dic.Count, 3).Value = arr
End Sub

Sub main()
    Dim Arr_Count(4)
    Dim arr$()
    Arr_Count(0) = "a"
    Arr_Count(1) = "c"
    Arr_Count(2) = "c"
    Arr_Count(3) = "c"
    Arr_Count(4) = "d"
    arr = Filter(Arr_Count, "c")
    MsgBox UBound(arr) + 1
End Sub

Sub main()
Dim arr(), coll As Object
Dim i&, j&, ikey
arr = tabl
ReDim iarr(UBound(arr, 2))
Set coll = CreateObject("scripting.dictionary")
For i = 0 To UBound(arr)
   arr(i, 1) = i
   For j = 0 To UBound(arr, 2)
      iarr(j) = arr(i, j)
   Next j
   coll.Item(CStr(i)) = iarr
Next i

For Each ikey In coll
    Debug.Print Join(coll.Item(ikey), " | ")
Next ikey
End Sub

Function tabl()
    Dim i&, j&, arr(9, 9)
    For i = 1 To 10
        For j = 1 To 10
            arr(i - 1, j - 1) = i * j
    Next j, i
    tabl = arr
End Function

Sub main()
    Dim lrow&, i&, ikey, sarr$(), j&
    Dim arr(), txt$, objDic As Object
    Set objDic = CreateObject("scripting.dictionary")
    lrow = Range("b" & Rows.Count).End(xlUp).Row
    arr = Range("a1:b" & lrow).Value
    For i = 2 To UBound(arr)
        If Not IsEmpty(arr(i, 1)) Then
            j = j + 1
            txt = j & "|" & arr(i, 1)
        End If
        objDic.Item(txt) = objDic.Item(txt) & arr(i, 2) & "|"
    Next i
    i = 1
    For Each ikey In objDic.keys
        i = i + 1
        sarr = Split(objDic(ikey), "|")
        Range("c" & i).Value = Split(ikey, "|")(1)
        Range("d" & i).Resize(, UBound(sarr)).Value = sarr
    Next ikey
    Cells.WrapText = False
End Sub

cells(i,j).value = generalpath