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

Posted 2023-02-24

【中文标题】根据另一列中的行自动填充第二列中的数据

【英文标题】：Autofill data in 2nd column based on rows in another column

【发布时间】：2016-12-15 17:15:14

【问题描述】：

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

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

【问题讨论】：

你试过录制宏吗？

是的，但是宏只能让它自动填充特定时间的行数。当我在列中添加另外几行时

令人沮丧，因为我是新手，它不允许我编辑上面的评论。这是完成的版本：是的，但宏只能让它自动填充特定时间的行数。当我在第 1 列中添加另外几行并尝试再次运行宏时，它只会将第 2 列填充到与以前相同的位置（即，将最后两行留空）。

您需要发布您当前的代码，以便我们帮助“调试”它。你需要的是一个变量“LastRow”。

好的，这是我让它工作的唯一方法： 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

【参考方案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 

【讨论】：

感谢您编辑圣诞节 007。我发现我对“代码缩进”做错了什么。