Her Sütundaki Maksimum Değeri Bulma içeriğinde, bu işleminin hızlı bir şekilde yapılmasını sağlayan hazır makro kodları yer almaktadır.
En Yüksek Değeri Bulma
Kod:
Function Max_Each_Column(Data_Range As Range) As Variant
Dim TempArray() As Double, i As Long
If Data_Range Is Nothing Then Exit Function
With Data_Range
ReDim TempArray(1 To .Columns.Count)
For i = 1 To .Columns.Count
TempArray(i) = Application.Max(.Columns(i))
Next
End With
Max_Each_Column = TempArray
End Function