Вывести среднее значение после экспорта

'::: Sh - лист; Сol - буква столбка; Row - первая строка
'::: усреднится весь столбец до первой пустой строки.
'::: результат -> ":mm:ss"
 
Function avg_time(Sh as WorkSheet, Col as string, Row as long) As String
   ZZ#=0
   NN#=0
   iii&=Row
   Do
       Tmp$=Sh.range(Col & Cstr(iii&)).Value
       If Trim$(Tmp$)="" then Exit Do
       Tmp$=mid$(Tmp$,2)
       mm%=Val(Tmp$)
       Tmp$=mid$(Tmp$,5)
       ss%=Val(Tmp$)
       ZZ#=ZZ#+mm%+ss%*60
       NN#=NN#+1
       iii&=iii&+1
   Loop
   ZZ#=ZZ#/NN#
   mm%=ZZ#/60
   ss%=ZZ#-mm%*60
   avg_time=":" & Format$(mm%,"00" & ":" & Format$(ss%,"00")   
End Function

ZZ#=ZZ#+mm%*60+ss%

'Ïîëüçîâàòåëüñêàÿ ôóíêöèÿ.
'Àðãóìåíòû: äèàïàçîí ñ ýêñïîðòèðîâàííûìè äàííûìè.
'Ðåçóëüòàò: óñðåäíåííîå âðåìÿ â ôîðìàòå :ìì:ññ.
Function AvgTime(ByVal rng As Range) As String
    Dim c As Range, t As Date, n As Long
    With CreateObject("VBScript.RegExp")
        .Pattern = ":(\d\d):(\d\d)"
        For Each c In rng
            If .Test(c) Then
                With .Execute(c)(0)
                    t = t + TimeSerial(0, .SubMatches(0), .SubMatches(1))
                    n = n + 1
                End With
            End If
        Next c
    End With
    AvgTime = Format(t / n, ":nn:ss")
End Function

Function avg_time(Sh As Worksheet, Col As String, Row As Long) As String
   ZZ# = 0
   NN# = 0
   iii& = Row
   Do
       Tmp$ = Sh.Range(Col & CStr(iii&)).Value
       If Trim$(Tmp$) = "" Then Exit Do
       Tmp$ = Mid$(Tmp$, 2)
       mm% = Val(Tmp$)
       Tmp$ = Mid$(Tmp$, 5)
       ss% = Val(Tmp$)
       ZZ# = ZZ# + ss% + mm% * 60
       NN# = NN# + 1
       iii& = iii& + 1
   Loop
   ZZ# = ZZ# / NN#
   mm% = ZZ# / 60
   ss% = ZZ# - mm% * 60
   avg_time = ":" & Format$(mm%, "00") & ":" & Format$(ss%, "00")
End Function
 
Sub Test()
    Debug.Print avg_time(Sheets(1), "C", 3)
End Sub

Private Sub CommandButton1_Click()
 
Dim s As String
Dim i As Integer
For i = 1 To 200
' добавляем к каждому значению в ячейке 00 пока в ячейках хоть что то написано
If ThisWorkbook.Worksheets(1).Cells(i, 1).Value = "" Then ' если в ячейке пусто заканчивается цикл
Exit For
End If
s = ThisWorkbook.Worksheets(1).Cells(i, 1).Value
ThisWorkbook.Worksheets(1).Cells(i, 1).Value = "00" & s
Next i
i = i - 1 ' так как цикл заканчивается на пустой уже ячейке то мы отнимаем 1 и получаем актуальное кол-во перезаписаных ячеек
 
s = "=СРЗНАЧ(A1:A" & i & ")" ' формула которую мы вставим
ThisWorkbook.Worksheets(1).Range("C1").FormulaLocal = s ' вставляем формулу
ThisWorkbook.Worksheets(1).Range("C1").Activate ' выделяем ячейку
ThisWorkbook.Worksheets(1).Range("C1").Calculate ' пересчитываем в ней значения, иначе глючит временами)
 
 
End Sub

Function avg_time(Sh As Worksheet, Col As String, Row As Long) As String
   ZZ# = 0
   nn# = 0
   iii& = Row
   Do
       Tmp$ = Sh.Range(Col & CStr(iii&)).Value
       If Trim$(Tmp$) = "" Then Exit Do
       Tmp$ = Mid$(Tmp$, 2)
       mm% = Val(Tmp$)
       Tmp$ = Mid$(Tmp$, 4)
       ss% = Val(Tmp$)
       ZZ# = ZZ# + ss% + mm% * 60
       nn# = nn# + 1
       iii& = iii& + 1
   Loop
   ZZ# = ZZ# / nn#
   mm% = Fix(ZZ# / 60)
   ss% = ZZ# - mm% * 60
   avg_time = ":" & Format$(mm%, "00") & ":" & Format$(ss%, "00")
End Function