Как создать макрос на минимальное и максимальное значение в таблице?

Подскажите как создать макрос на максимальное и минимальное значение ?
Есть данная таблица
5a7007d0c982a077937813.jpeg
Пытался сделать сам, но выходит не совсем то. Сможет кто подсказать ?
Sub Up()
Dim R As Long
R = InputBox("Задать номер строки")
With Worksheets("Лист1").Rows(R)
  MsgBox "Max" & WorksheetFunction.Max(.Cells) & vbNewLine & _
         "Min" & WorksheetFunction.Min(.Cells)
End With
End Sub

5a7008d6522a7178083302.jpeg
Результат такой. Как мне сравнить 2 и 3 столбец. Чтобы например в ячейке или всплывающем окне было написано минимальное значение 54,8 в в 1998 году.
  • Вопрос задан
  • 34 просмотра
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через TM ID
Похожие вопросы