شنبه, ۲۸ فروردين ۱۳۹۵، ۱۱:۱۰ ق.ظ
Sub foryou()
Dim j As Integer
Dim i As Integer
i = 14 'Select a row
Rw = Range(Cells(i, 2), Cells(i, 2076)) 'Range beetwen 2 to 2076(column)
Min = WorksheetFunction.Min(Rw)
Max = WorksheetFunction.Max(Rw)
avg = WorksheetFunction.Average(Rw)
std = WorksheetFunction.StDev(Rw)
Cells(15 + i, 2) = Max
Cells(15 + i, 3) = Min
Cells(15 + i, 4) = avg
Cells(15 + i, 5) = std
End Sub