بیشینه، کمینه، میانگین و انحراف معیار هر سطر در اکسل

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