自动填充不会在指定范围内停止

Question

我有个问题。 什么时候

我运行了下面的代码以自动填充到一个范围（工作表将具有不同的行长度）。 在我的示例中，我要填充的长度仅为 6，并且只有第一列（U 列）正确填充。 其余的在 10000 处到达工作表的底部。

Sub MacroFill () 
Dim LastRow As Long LastRow = Range("T4").CurrentRegion.Rows.Count + 1 
Range("U4:U" & LastRow).FillDown 
Range("V4:U" & LastRow).FillDown 
...
Range("AZ4:AZ" & LastRow).FillDown
End Sub()

我试图自动填充的列来自 U:AZ。 有没有一种更有效的方法可以根据指定列中有多少行数据（在我的例子中是 T4:T 列）自动填充它们？

谢谢

我尝试创建多个 LastRow 变量并为每一行标记它们，但效率不高。 我试图在行的长度范围内进行组合。

Answer 1

我认为这是因为您两次引用了 Col U。
要么是那个，要么是你的最后一排参考。
试试这个：

Sub MacroFill()
    Dim LastRow As Long
    LastRow = Range("T" & Rows.Count).End(xlUp).Row
    Range("U4:V" & LastRow).FillDown
    '...
    Range("AZ4:AZ" & LastRow).FillDown
End Sub