Требуется найти и изменить числа в определённом диапазоне.

[bvitaly]

Никак немогу нарисовать макрос который бы находил и изменял определённый диапазон чисел в Excel.
Например диапазон с 20 до 40 изменить на число 45, а диапазон от 50 до100 умножить на 2. Числа приведены с точностью до сотых.
Помогите плз.

[corgi]

а в чем проблема-то
if activesheet.cells(1,"a").value>20 and activesheet.cells(1,"a").value<40 then
activesheet.cells(1,"a").value=45
elseif activesheet.cells(1,"a").value>50 and activesheet.cells(1,"a").value<100 then
activesheet.cells(1,"a").value=activesheet.cells(1,"a").value*2
end if
ну и типа все

[alibek]

Я бы только использовал не If...EndIf, а Select Case

Код: Выделить всё

Select Case ActiveCell.Value
  Case 20 To 40
    ActiveCell.Value = 45
  Case 50 To 100
    ActiveCell.Value = ActiveCell.Value * 2
End Select