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