Многоступенчатые операции с excel

[Анастасия]

Здравствуйте.С таблицей необъятных размеров надо выполнить несколько операций:
1) выделить значения, меньше мин и заменить на мин
2)выделить значения , больше макс и заменить на макс.
Excel 2007

[ShAM]

меньше мин
больше макс

Звучит как-то странно.
А мин и макс задаются или тоже нужно по каким-то условиям считать?

[Анастасия]

мин и макс задаются

[kuklp]

мин и макс задаются

я так понял, в желтых и красных строках. К чему тогда вторая строка? Сделал согласно примера. В модуль листа:

Код Выделить Развернуть

Public Sub www()
    Dim a, i&, j&, mi#, ma#
    a = UsedRange.Value
    On Error Resume Next
    For i = 1 To UBound(a, 2)
        mi = a(3, i): ma = a(4, i)
        For j = 2 To UBound(a)
        If Not IsEmpty(a(j, i)) And a(j, i) > 0 Then
                If a(j, i) < mi Then a(j, i) = mi
                If a(j, i) > ma Then a(j, i) = ma
            End If
        Next j, i
    UsedRange.Value = a
End SubАнастасия, впредь не жалейте слов для описания задачи. Переделывать по несколько раз из-за плохого описания никто желанием не горит.

[Анастасия]

Спасибо)пишет, что ошибка в четвертой  строчке.Опишу более подробно: из каждого столбца нужно выделить желтым все значения,которые меньше мин,  и заменить на него.Потом выделить красным все, что больше максимума, заменить на макс

[kuklp]

Спасибо)пишет, что ошибка в четвертой  строчке....выделить желтым все значения,которые меньше мин,...выделить красным ..

Я писал: "В модуль листа". Вы куда вставляли код? И где у Вас в топике про "желтым, красным"?  Больше переделывать не буду. См. файл.