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

我一直在寻找和尝试一些想法，但还没有得到这个工作。 我想我可能需要使用VB脚本来做到这一点，但迄今为止所有的尝试都失败了。

本质上，我需要自动填充第二列中的单元格与列2中第一行中的相同数据（即在屏幕截图B2 ='234'，所以下面的所有单元格也将是'234'）。 第2列填充中的数据行应与列A中的行数相匹配（可能会从一个作业更改为下一个作业）。 我试过编辑几个公式，从这里接近堆栈，但我不断收到错误。 我附上了一个截图，希望能够使它更加清晰，并且非常感谢这方面的任何见解。 谢谢。 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