Помогитке!!!!__Необходимо сравнить вда столбца в Excel!!!!

[UliyaP]

Помогите!!!!!
Необходимо сравнить вда столбца в Excel и наибольшее значение занести в третий столбец!!!!!! Это надо сделать при помощи VBA!!!!
Очень срочно!!!!!
Зарание огромное спасибо!!!!!

[KL]

Может так:

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

Sub test()
    Application.ScreenUpdating = False
    With ActiveSheet
        Set rng = .Range(.[A1], .[A65536].End(xlUp)).Offset(, 2)
    End With
    With rng
        .FormulaR1C1 = "=MAX(RC[-2]:RC[-1])"
        .Value = .Value
    End With
End Sub

[VVitafresh]

А вы думаете для других это тоже срочно!!!!!!!!!!!!!!!
Мне кажется нет!!!!!!!!!!!
В Exel'e есть функция ЕСЛИ, а также МАКС !!!!!!!!! Ими и пользуйтесь!!!!!!!!

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

=ЕСЛИ(A1>B1;A1;B1) 'или
=МАКС(A1:B1)

Через VBA вам KL уже подсказал!!!!!

[UliyaP]

где я должна указать имя второго столбца?
Они у меня D и H.
Зарание спасибо

[UliyaP]

Мне вместо "F1:F" надо вывести наибольшее значение из двух столбцов.
Это кусок программы которой я должна поминять:

Sheets("data").Select
Range("F1:F" + CStr(lastRow)).Select
Selection.Copy
PasteData2PListInvent ("K2")
setPriceListName (getFileName())

[VVitafresh]

В данном случае второй столбец задается отступом (Offset). Если сохранять результат в столбец F, то выйдет:

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

Sub test()
    Application.ScreenUpdating = False
    With ActiveSheet
        Set rng = .Range(.[D1], .[D65536].End(xlUp)).Offset(, 2)
    End With
    With rng
        .FormulaR1C1 = "=MAX(RC[-3],RC[2])"
        .Value = .Value
    End With
End Sub

[UliyaP]

А как нибудь можно указать не до конца всего файла, а до последнийцыфры. они каждый раз разные

[KL]

А как нибудь можно указать не до конца всего файла, а до последнийцыфры. они каждый раз разные

Код расчитан именно на это. Если делает до конца, то нужно выкладывать пример.

[UliyaP]

KL
Вы не мог бы еще подсказать. Как в столбце удолить все 0, а другие цифры оставить?
Заранее спасибо.
Код работает, огромное спасибо

[KL]

KL
Вы не мог бы еще подсказать. Как в столбце удолить все 0, а другие цифры оставить?

Уже! См. другую тему.

[UliyaP]

А мне надо в коде