Найти максимальное значение для каждого столбца в диапазоне
Следующая функция вернет максимальное значение в каждом столбце диапазона:
Функция Max_Each_Column (Data_Range As Range) как вариант Dim TempArray () As Double, i до тех пор, если Data_Range - ничего, выйти из функции с Data_Range ReDim TempArray (1 To .Columns.Count) For i = 1 To .Columns.Count TempArray (i ) = Application.Max (.Columns (i)) Следующий конец с Max_Each_Column = Функция конца TempArray
Мы можем использовать подпрограмму, подобную следующей, для отображения результатов:
Private Sub CommandButton1_Click () Dim Answer As Variant Dim No_of_Cols As Integer Dim i As Integer No_of_Cols = Range ("B5: G27"). Columns.Count ReDim Answer (No_of_Cols) Answer = Max_Each_Column (Sheets ("Sheet1"). Range ("Sheet1"). Range ("Sheet1"). B5: g27 ")) For i = 1 To No_of_Cols MsgBox Answer (i) Next i End Sub
Так:
Вернет 990 907, 992, 976, 988 и 873 для каждого из вышеуказанных столбцов.
[ОТДЕЛЬНОЕ СПАСИБО МАЙКУ РИКСОНУ ЗА РАЗРЕШЕНИЕ ФИНЕРИИ МАССИВОВ В UDF’S]
