Vba Формулы с неявным диапазоном

Question

Добрый вечер, знатоки и гуру! Подскажите , пожалуйста, как в формуле в vba R1C1 сделать диапазон округлениях минимального до последней заполненной строки? Пробую:

ILastrow = Cells(Rows.Count,3).End(xlUp).Row
Cells(ILastrow+3,3).Formula=“=Mround(Min( Range(“D2:D” & ILastrow)),500)”

или

Cells(ILastrow+3,3).Formula=“=Mround(Min( R[-(ILastrow+3)]C[1]:R[-3]C[1]),500)”

Ещё так пробовал:

ILastrow = Cells(Rows.Count,3).End(xlUp).Row
Range(“D2:D” & ILastrow).Select
Cells(ILastrow+3,3).Formula=“=Mround(Min( ActiveCells. Selection ),500)”

Answer 1

В динамическом диапазоне находим минимальное число и округляем его до 500:

Sub Test_()
    Dim ILastrow As Long
    ILastrow = Cells(Rows.Count, 3).End(xlUp).Row
    Cells(ILastrow + 3, 3).Value = Int(Application.Min(Range("D2:D" & ILastrow)) / 500) * 500
End Sub

БЛОГ НА HUSL

Vba Формулы с неявным диапазоном

Ответы (1 шт):