Как заполнить динамическую последнюю строку в одном столбце до последней строки в соседнем столбце?

Question

Я уже некоторое время пытаюсь решить следующую проблему: первый код (здесь не указан) сбрасывает данные в листе EDD в столбце B (точнее, в B45), затем каждая ячейка в столбце A заполняется номером 1 (изA45 внизу столбца B) - как показано в приведенном ниже коде.

Теперь проблема в том, что я буду добавлять другой набор данных в столбец B (в конец того, что уже было добавлено), но на этот раз эти новые данные будут иметь номер 2 в каждой ячейке столбца A(ps. я не могу перезаписать числа 1, которые я уже ввел) - проблема в том, что данные являются динамическими.Я не знаю, как определить последнюю строку в столбце A (заполнила ее значением = 2 и заполнила ее до конца этих новых данных в столбце B).

Dim EDDx As Worksheet
Dim lastrow As Long
Set EDDx = Sheets("EDD")
lastrow = EDDx.Cells(Rows.Count, "C").End(xlUp).Row
With EDDx
.Range("B45:B" & lastrow).Value = 1
End With
End Sub

Спасибо

Answer 1

Попробуйте:

Option Explicit

Sub Test()

Dim LastrowC As Long
Dim LastrowB As Long

With wsTest

    LastrowB = .Range("B" & Rows.Count).End(xlUp).Row
    LastrowC = .Range("C" & Rows.Count).End(xlUp).Row

    .Range("B" & Lastrow + 1 & ":C" & LastrowC).Value = "2"

End With


End Sub

Answer 2

Попробуй,

with workSheets("EDD")
    .range(.cells(.rows.count, "B").end(xlup), _
           .cells(.rows.count, "C").end(xlup).offset(0, -1)).filldown
end with