如何从一列中的动态最后一行填充到相邻列的最后一行?

Question

我已经尝试了一段时间，遇到了以下问题：第一个代码(此处未列出(将数据放在 B 列(准确地说是 B45(的工作表 EDD 中，然后 col A 中的每个单元格都填充数字 1(从 A45 到 B 列的底部( - 如下面的代码所示。

现在的问题是我将在 B 列中添加另一组数据(在已添加的列底部(，但这次这个新数据将在 A 列的每个单元格中都有数字 2(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

尝试，

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

Answer 2

尝试：

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