بزرگترین و کوچکترین عنصر هر سطر در اکسل

این تکه کد دو ستون به انتهای هر سط اضافه می کند. که ستون اول مقدار بزرگترین عنصر سطر است. و ستوم دوم مقدار کوچکترین عنصر سطر

Sub normal()
Dim max As Double
Dim min As Double

For i = 1 To 20
 max = Cells(i, 1)
 min = Cells(i, 1)
 For j = 2 To 20
 
 If Cells(i, j) > max Then
 max = Cells(i, j)
  ElseIf Cells(i, j) < min Then
  min = Cells(i, j)
 End If
 
 Next j
 Cells(i, 21) = max
 Cells(i, 22) = min
Next i
End Sub