根据另一列中的行自动填充第二列中的数据

Question

我一直在搜索和搜索并尝试了一些想法，但还没有得到这个工作。我想我可能需要使用VB脚本来执行此操作，但到目前为止所有尝试都失败了。

基本上，我需要在第二列中使用与第2列第一行中相同的数据自动填充单元格（即在屏幕截图B2 =＆＃39; 234＆＃39;中，因此下面的所有单元格也将是＆ ＃39; 234＆＃39）。第2列filldown中的数据行应与A列中的总行数相匹配（可能会从一个作业更改为下一个作业）。我已经尝试在Stack上编辑几个离这里很近的公式，但我一直在收到错误。我附上了一个屏幕截图，希望这会让它更清晰，并且真的很感激任何洞察力。谢谢。 SCREENSHOT-根据第1列中的行数自动填充第2列

Answer 1

尝试发布答案，以便更好地格式化。

Sub ClientFill() 
' 
' 
ClientFill Macro 
' 
' 
Dim lngLastRow As Long lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row     
Range("B3:B" & lngLastRow).Value = Evaluate("B2") 
End Sub