Следующая непустая ячейка в excel / visualBasic

Question

Я пытаюсь написать базовый набор нажатий клавиш в Excel, где я устанавливаю ячейку для ссылки на ячейку, которая на 2 справа, а затем на следующую непустую ячейку вниз. Очень простой набор нажатий клавиш:

= правый правый Ctrl-Down Enter

Но когда я использую макрос-рекордер для этого, он хочет заменить ctrl-down относительной ссылкой; т.е.

ActiveCell.FormulaR1C1 = "=R[6]C[3]"

Конечно, есть легкая замена, чтобы делать то, что я хочу?

Answer 1

dim Rng as range<br> set Rng=Activecell.offset(0,2).end(xldown)

является эквивалентом ваших нажатий клавиш, но это не следующая непустая ячейка, это последняя непрерывная непустая ячейка

Answer 2

Стоит отметить, что ответ Чарльза приведет вас к последней ячейке с чем-то перед пустой ячейкой. Там может быть больше деталей ниже пустой ячейки. Когда я ищу последнюю ячейку подряд, я начинаю снизу и иду вверх.

Работая из активной ячейки, это выглядело бы так:

Dim col As Double
Dim rw As Double
col = ActiveCell.Column + 2
rw = 65000
Cells(rw, col).End(xlUp).Select

Answer 3

Стоит отметить, что ответ Чарльза приведет вас к последней ячейке с чем-то перед пустой ячейкой. Там может быть больше деталей ниже пустой ячейки. Когда я ищу последнюю ячейку подряд, я начинаю снизу и иду вверх.

Работая из активной ячейки, это выглядело бы так:

Dim col As Double
Dim rw As Double
col = ActiveCell.Column + 2
rw = 65000
Debug.Print col & "-" & rw
Cells(rw, col).End(xlUp).Select