Пожалуйста, подскажите чайнику, как в выделенном диапазоне залить одним цветом ячейку, содержащую максимальное значение и другим цветом - минимальное?
Таких диапазонов у меня много...

Упс, не указала приложение, с которым работаю. Это старый добрый Excel

Мне помогли найти решение на другом форуме. Выкладываю для тех, кому это может понадобиться.

Sub покрасим2()
Dim R As Range 'ячейки выделенной области
Dim min As Double 'минимальное значение
Dim max As Double 'максимальное значение
Dim i_min As String 'имя строки с минимальным значением
Dim i_max As String 'имя строки с максимальным значением

min = Selection.Cells(1).Value
max = Selection.Cells(1).Value
i_min = Selection.Cells(1).Address
i_max = Selection.Cells(1).Address

For Each R In Selection
If min > R.Value Then
min = R.Value
i_min = R.Address
End If
If max < R.Value Then
max = R.Value
i_max = R.Address
End If
Next

Range(i_min).Interior.ColorIndex = 4
Range(i_max).Interior.ColorIndex = 3
End Sub



Sub покрасим()
Dim min As Double 'минимальное значение
Dim max As Double 'максимальное значение
Dim i_min As Long 'номер строки с минимальным значением
Dim i_max As Long 'номер строки с максимальным значением
Dim i As Long 'рассмативаемая строка
Dim n As Long 'число строк в столбце
Dim stolb As String 'имя столбца


stolb = "A"
n = Columns(stolb).Rows(65536).End(xlUp).Row

min = Range(stolb & 1).Value
max = Range(stolb & 1).Value
i_min = 1
i_max = 1
For i = 2 To n
If min > Range(stolb & i).Value Then
min = Range(stolb & i).Value
i_min = i
End If
If max < Range(stolb & i).Value Then
max = Range(stolb & i).Value
i_max = i
End If
Next

Range(stolb & i_min).Interior.ColorIndex = 4
Range(stolb & i_max).Interior.ColorIndex = 3
End Sub