用于使用公式链接单元格填充汇总表的Excel VBA代码

Sub FillSummaryTable()
    Dim summarySheet As Worksheet
    Dim dataSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置汇总表和数据表的工作表对象
    Set summarySheet = ThisWorkbook.Worksheets("汇总表")
    Set dataSheet = ThisWorkbook.Worksheets("数据表")
    
    ' 获取数据表中最后一行的行号
    lastRow = dataSheet.Cells(dataSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 清空汇总表中的数据（可选）
    summarySheet.Range("A2:D" & summarySheet.Cells(summarySheet.Rows.Count, "A").End(xlUp).Row).ClearContents
    
    ' 填充汇总表
    For i = 2 To lastRow
        summarySheet.Cells(i, 1).Value = dataSheet.Cells(i, 1).Value
        summarySheet.Cells(i, 2).Formula = "=SUM(" & dataSheet.Cells(i, 2).Address & ":" & dataSheet.Cells(i, 4).Address & ")"
        summarySheet.Cells(i, 3).Formula = "=AVERAGE(" & dataSheet.Cells(i, 2).Address & ":" & dataSheet.Cells(i, 4).Address & ")"
        summarySheet.Cells(i, 4).Formula = "=MAX(" & dataSheet.Cells(i, 2).Address & ":" & dataSheet.Cells(i, 4).Address & ")"
    Next i
End Sub