=СУММПРОИЗВ(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;СМЕЩ(Начальный!D$1;СТРОКА(2:19)-1;)))/СУММПРОИЗВ(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3;СМЕЩ(Начальный!D$1;СТРОКА(2:19)-1;)))

=IFERROR(SUM(SUMIFS(Начальный!$D$2:$D$19;Начальный!$C$2:$C$19;E14;Начальный!$A$2:$A$19;IFERROR(--TRIM(MID(SUBSTITUTE($D$16;", ";REPT(" ";99));ROW($1:$10)*99-98;99));"")))/SUM(COUNTIFS(Начальный!$C$2:$C$19;E14;Начальный!$A$2:$A$19;IFERROR(--TRIM(MID(SUBSTITUTE($D$16;", ";REPT(" ";99));ROW($1:$10)*99-98;99));"")));"-")

Option Base 1

Function Middle_Year(FR As Variant, Year As Variant, R1 As Range, R2 As Range, R3 As Range) As Variant
'FR - массив под фильтром
'Year - необходимый год

Dim myDictionary As Object
Dim arr()
Dim cnt, sum As Long

cnt = 0
sum = 0
'Предпологаем что R1 R2 и R3 будут указаны одинаковыми по размерности
ReDim arr(1 To 3, 1 To R3.Rows.Count)
        For j = 1 To R3.Rows.Count
            arr(1, j) = R3(j)
        Next
        
        For i = 1 To R2.Rows.Count
            arr(2, i) = R2(i)
        Next

        For u = 1 To R1.Rows.Count
            arr(3, u) = R1(u)
        Next
For Each myCell In FR
    If myCell <> 0 Then
    
        For i = 1 To R1.Rows.Count
            If arr(2, i) = Year And arr(3, i) = myCell Then
            
                  sum = sum + arr(1, i)
                  cnt = cnt + 1
                    
            End If
        Next
    End If
Next

    If cnt <> 0 Then
        Middle_Year = sum / cnt
    Else
        Middle_Year = 0
    End If
        
End Function

=Middle_Year((ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;СМЕЩ(по_годам!$B$1;СТРОКА(по_годам!$B$2:$B$19)-1;)));C$1;Начальный!$B2:$B19;Начальный!$C2:$C19;Начальный!$D2:$D19)