Question

我一直在尝试以下问题：第一个代码（此处未列出）将数据放入B列中的EDD表中（准确地说是B45），然后col A中的每个单元格填充了数字1（从B45底部的A45）-如下代码所示。

现在的问题是，我将在B列中添加另一组数据（到已添加内容的底部），但是这次新数据将在A列的每个单元格中具有数字2（ps。我无法覆盖已经输入的数字1）-问题是数据是动态的。我不知道如何识别A列中的最后一行（将其填充为value = 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

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

2 个答案: