Найдите последнюю пустую ячейку (столбец) и последнюю непустую строку для ввода формулы NOW ()

Question

Я действительно новичок в VBA и буду очень признателен за ваши советы и рекомендации по этой проблеме.

Я хотел бы иметь возможность ввести формулу NOW () программным способом в ПОСЛЕДНЮЮ ПУСТОЙ КЛЕТОК (столбец) рядом с ПОСЛЕДНЕЙ НЕБЛИЧНОЙ КЛЕТКОЙ - желтая ячейка в прикрепленном изображении таблицы. надеюсь, изображение поможет, если мой вопрос сбивает с толку.

Answer 1

Попробуйте это.

Sub Now_formula()

Dim lastR, lastC As Integer
lastR = Cells(Rows.Count, 1).End(xlUp).row
lastC = Cells(1, Columns.Count).End(xlToLeft).Column

Cells(lastR, lastC + 1).Formula = "=NOW()"
Cells(lastR, lastC + 1).Interior.Color = vbYellow

End Sub