Как в Excel, VBA указать формулу от . до последеней заполненой ячейки

@undefined7 · Регистрация: 22.01.2013

Как в Excel, VBA указать формулу:

Visual Basic

1	Range("C1").FormulaR1C1 = "=MODE("c6:c" & "ActiveSheet.UsedRange.Rows.Count")"

т.е. до последеней заполненой ячейки?

и 2 вопрос:
что работает быстрее, запись:

Visual Basic

1	Range("A1").FormulaR1C1 = "=MODE(R6C3:R6500C4)"

или

Visual Basic

1	Cells(1, 1).FormulaR1C1 = "=MODE(R6C3:R6500C4)"

@Watcher_1 · 25.02.2013, 14:18

Visual Basic

1	Range("C1").Formula = "=MODE(C6:C" & Range("C6").End(xlDown).Row & ")"

@undefined7 · 25.02.2013, 20:49 **[ТС]**

Сообщение от Watcher_1

Visual Basic

1	Range("C1").Formula = "=MODE(C6:C" & Range("C6").End(xlDown).Row & ")"

формула работает, но только до первой пустой ячейки, а нужно до последней заполненной ячейки.

@Watcher_1 · 25.02.2013, 20:56

Visual Basic

1	Range("C1").Formula = "=MODE(C6:C" & Range("C" & ActiveSheet.Rows.Count).End(xlUp).Row & ")"

@undefined7 · 25.02.2013, 21:52 **[ТС]**

Всё равно не получается, берёт, но не весь нужный диапазон, прикрепил уже файл.

toiai · 25.02.2013, 22:58

Попробуй так:

Visual Basic

1	Range("C1").Formula = "=MODE(C6:C" & UsedRange.rows.count & ")"

@undefined7 · 26.02.2013, 14:24 **[ТС]**

Вот как будет работать:

Visual Basic

1	Range("C1").Formula = "=MODE(C6:C" & ActiveSheet.UsedRange.rows.Count & ")"

	26.02.2013, 14:24