我是覺得如果A-F這5個人的資料是不會再異動的話，你不如把18欄的資料(CTRL+C再到圖二要貼的欄位上，點右鍵有一個貼上值圖示有個123那個),直接貼死在圖二表統計就好了!

是這樣嗎？
填入B20公式會自動帶入{s1~s3}的資料表名稱

不合併檔案取得資料可以用INDIRECT()，
但是20個檔案要同時開啟，
電腦會吃不消。

用VBA是一個辦法，
但是要有一點基礎。
公式外部參照exceljet
VBA外部參照1藍色小舖
VBA外部參照2奇摩問答

*8/23新增
下次貼程式碼，前後加「```」。

Dim i%, sht As Worksheet

'第一張工作表表到最後一張
For Each sht In Sheets

    '當這張工作表不是彙總表才新增資料
    If sht.Name <> "彙總表" Then
    '跳到彙總表A欄下一列
    i = i + 1
    '彙總表A欄新增工作表的D36資料
    Sheets("彙總表").Range("A" & i) = _
    sht.Range("D36").Value
    End If

Next

測試程式

Public Sub text()
'測資
'初始化
    Dim sht As Worksheet
    Dim data As Integer
    data = 7 '測試資料
    
'程式執行
    '每張工作表
    For Each sht In Sheets
    
        '非彙總表才新增資料
        If (sht.Name <> "彙總表") Then
        
            '其它工作表填入資料
            sht.Range("C18", "AG18").Value = data 
            data = data + 1
        End If
    Next
    
'備註欄
    '測試日：2019/08/23
    '版本：office 365

End Sub

主程式

不過你的Excel只能有總表和分表(這樣稱呼？)，
分表資料全部會彙總到總表。

Public Sub copy()
'初始化
    Dim sht As Worksheet
    Dim row As Integer
    row = 6

'程式執行
    '每張工作表
    For Each sht In Sheets
    
        '新增非彙總表資料
        If sht.Name <> "彙總表" Then
        
            '彙總表新增其它工作表資料
            sht.Range("C18", "AG18").copy '複製範圍
            Sheets("彙總表").Range("B" & row).Select
            ActiveSheet.Paste '貼上
    
            '跳到彙總表下一列
            row = row + 1
        End If
    Next
    
'備註欄
    '測試日：2019/08/23
    '版本：office 365

End Sub