AVERAGEX(FILTER(AMD;AMD[Сегмент]=[Сегмент]);[EBITDA маржа'20:22])

.CreateFolder dirName

Sub SaveOutlookAttachmentsLateBinding()

Dim ol As Object    'Outlook.Application
    Dim ns As Object    'Outlook.Namespace
    Dim fol As Object   'Outlook.Folder
    Dim i As Object
    Dim mi As Object    'Outlook.MailItem
    Dim at As Object    'Outlook.Attachment
    Dim fso As Object   'Scripting.FileSystemObject
    Dim dir As Object   'Scripting.Folder
    Dim dirName As String
    
    Set fso = CreateObject(Class:="Scripting.FileSystemObject")
    
    Set ol = CreateObject(Class:="Outlook.Application")
    Set ns = ol.GetNamespace("MAPI")
    Set fol = ns.Folders(1).Folders("Входящие")
    
    For Each i In fol.Items
    
        If i.Class = 43 Then
        
            Set mi = i
            
            If mi.Attachments.Count > 0 Then
                'Debug.Print mi.SenderName, mi.ReceivedTime, mi.Attachments.Count, mi.SenderEmailAddress
                
                dirName = _
                    "C:\Extract\" & mi.SenderEmailAddress

                
                If fso.FolderExists(dirName) Then
                    Set dir = fso.GetFolder(dirName)
                Else
                    Set dir = fso.CreateFolder(dirName)
                End If
                
                For Each at In mi.Attachments
                
                    'Debug.Print vbTab, at.DisplayName, at.Size
                    at.SaveAsFile dir.Path & "\" & at.Filename
                    
                Next at
                
            End If
            
        End If
    
    Next i
    
End Sub

ПРЕДСКАЗ(X; Известные_значения_Y; Известные_значения_X)