Excel VBA 根据数据做汇总表格,最大值,最小值

Sub sum_table()
'汇总每个sheet的结果,最大值,最小值之类的
    Dim arr, dic, colh, rowh
    Dim i%, j%, k%
    Dim rmax(), rmin(), rrange(), rmaxamongpulley(), rminamongpulley(), rmaxamongeachrun(), rminamongeachrun() As Double
    Dim coln, rown As Integer, n As Integer, m As Integer
     
    'Sheets.Add After:=Worksheets("content")
    'ActiveSheet.name = "sum"
     
    n = Worksheets.Count
    For k = 3 To n
         g = Worksheets("content").Cells(k - 2, 1).Value
         coln = Worksheets(g).UsedRange.Columns.Count
         coln = Worksheets(g).[IV1].End(xlToLeft).Column
         rown = Worksheets(g).UsedRange.Rows.Count
         
         colnsum = Worksheets("sum").[IV1].End(xlToLeft).Column + 1
         
         '取列头,并去重
         Set dic = CreateObject("scripting.dictionary")
         Worksheets(g).Activate
         arr = ActiveSheet.Range(Cells(2, 1), Cells(2, coln))
         For i = 1 To UBound(arr)
             For j = 1 To UBound(arr, 2)
                 dic(arr(i, j)) = ""
             Next j
         Next i
         rowh = Application.Transpose(dic.keys)
        
         Set dic = Nothing
         '取行头,并去重
         Set dic = CreateObject("scripting.dictionary")
         Worksheets(g).Activate
         arr = ActiveSheet.Range(Cells(3, 1), Cells(3, coln))
         For i = 1 To UBound(arr)
             For j = 1 To UBound(arr, 2)
                 dic(arr(i, j)) = ""
             Next j
         Next i
         colh = dic.keys
         
         Worksheets("sum").Activate
         Range(Cells(2, colnsum).Address).Resize(UBound(rowh), 1) = rowh
         Range(Cells(