根据另一列中的行自动填充第二列中的数据
Autofill data in 2nd column based on rows in another column
我一直在搜索和搜索并尝试了几个想法,但还没有得到这个工作。我想我可能需要使用 VB 脚本来执行此操作,但到目前为止所有尝试都失败了。
基本上,我需要使用与第 2 列第一行中相同的数据自动填充第二列中的单元格(即在屏幕截图 B2 =“234”中,因此下面的所有单元格也将是“234”) .第 2 列 filldown 中的数据行应与 A 列中的总行数相匹配(这可能会从一个作业更改为下一个作业)。我尝试在 Stack 上编辑几个与此处相近的公式,但我不断收到错误。我附上了一张截图,希望这能让它更清楚,并且非常感谢对此的任何见解。谢谢。
屏幕截图-根据第 1 列中的行数自动填充第 2 列
正在尝试 post 答案以使其格式更好。
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
我一直在搜索和搜索并尝试了几个想法,但还没有得到这个工作。我想我可能需要使用 VB 脚本来执行此操作,但到目前为止所有尝试都失败了。
基本上,我需要使用与第 2 列第一行中相同的数据自动填充第二列中的单元格(即在屏幕截图 B2 =“234”中,因此下面的所有单元格也将是“234”) .第 2 列 filldown 中的数据行应与 A 列中的总行数相匹配(这可能会从一个作业更改为下一个作业)。我尝试在 Stack 上编辑几个与此处相近的公式,但我不断收到错误。我附上了一张截图,希望这能让它更清楚,并且非常感谢对此的任何见解。谢谢。 屏幕截图-根据第 1 列中的行数自动填充第 2 列
正在尝试 post 答案以使其格式更好。
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