☰

VBA；填充数组的最后一行以匹配相邻列的长度

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba macros
VBA；填充数组的最后一行以匹配相邻列的长度

因此，为了尽早尝试 VBA，我正在编写一个宏：

  1. 我粘贴的是一组每月行数增加的数据；数据组织良好，没有空白值/列
  2. 我在 AL 列中有公式，而我的数据则被放入 L 列及以后的列中
  3. 我想更新 AL 中的公式/列以向下填充以匹配 M 列中的最后一个值

很纠结，所以如果您能帮忙解释一下，我将不胜感激。我知道这涉及到选择 A:L 中的最后一行 - 我已经知道了，但我不知道如何干净地向下填充以匹配每次长度不同的 M 列。

Sub Macro6()
'
' Macro6 Macro
'

'
    Range("M1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveCell.Offset(0, -1).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Selection.FillDown
End Sub

答案1

当然，您可以使用顶部代码片段（lrow）来获取底部行，然后在其他方法中使用它

Sub test()
Dim lrow As Integer
lrow = Cells(Rows.Count, "M").End(xlUp).row
 Range("A1:A" & lrow).FillDown
 Range("B1:B" & lrow).FillDown
End Sub

相关内容