如何将 B1 复制到数据集中的最后几列

Question

我正在尝试将列从B1向下拖动到数据集的最后一行。B1将始终填充值，我需要将其复制并粘贴到第B列下方的"x"次，具体取决于工作表上的行数。

Sub Button1test_Click()
Set src = Sheets("Sheet1")
Dim Lastrow As Long
Lastrow = Range("B" & Rows.Count).End(xlUp).Row
src.Range("B1:B" & Lastrow).Value = "B1"
End Sub

列B应填充"Lucord"x 次数。

Answer 1

"B1"是文本"B1"，而不是对范围B1的引用。

此外，对于With...End With块来说，这是一个很好的用例来限定Range调用 - 否则Lastrow是由活动工作表确定的，这可能不一定是src的。

改变

Lastrow = Range("B" & Rows.Count).End(xlUp).Row
src.Range("B1:B" & Lastrow).Value = "B1"

自

With src
Lastrow = .Range("B" & .Rows.Count).End(xlUp).Row
.Range("B1:B" & Lastrow).Value = .Range("B1").Value
End With

编辑：如果只填充B1，则Lastrow=1。根据填充的列确定Lastrow，例如 A 列：

Lastrow = .Range("A" & .Rows.Count).End(xlUp).Row