如何在VBA宏中为MAX函数列实现动态行数自动填充？

嗨！完全理解作为VBA新手的困扰——当数据行数变化时，固定行数的代码实在太麻烦了。咱们来调整你的宏，让它自动把MAX公式填充到数据的最后一行，再也不用手动改行数啦。

问题分析 #

你原来的代码里Range("AC2:AC285")固定了填充到第285行，灵活性很差。我们需要先动态识别数据的最后一行，再自动设置填充范围，同时还要避免用Select（VBA里用Select不仅效率低，还容易因为选中区域变化而出错）。

改进后的代码 #

Sub AutoFillMAXColumn()
    Dim lastRow As Long
    
    ' 定位数据的最后一行：以AB列的最后一个非空单元格为准（可换成你实际有数据的列）
    lastRow = Cells(Rows.Count, "AB").End(xlUp).Row
    
    ' 直接给AC列第2行到最后一行批量设置公式，无需选中单元格
    Range("AC2:AC" & lastRow).FormulaR1C1 = "=MAX(RC[-2],RC[-1])"
End Sub

逐行解释 #

• lastRow = Cells(Rows.Count, "AB").End(xlUp).Row：从AB列的最底部（Excel支持的最大行数）往上查找，找到第一个非空单元格的行号，这样就能精准获取数据的最后一行。如果你的数据基准列不是AB，换成你实际有连续数据的列就行（比如A列就写"A"）。
• Range("AC2:AC" & lastRow).FormulaR1C1 = ...：一步到位给整个目标区域设置MAX公式，省去了Select和AutoFill的冗余步骤，代码更简洁可靠。

小提示 #

• 如果你的数据中间有空白行，或者想更宽泛地定位已使用区域，可以尝试lastRow = ActiveSheet.UsedRange.Rows.Count，但注意UsedRange可能会包含之前用过的空白单元格，所以优先用上面的列定位法更稳妥。
• 测试时可以手动增减数据行数，运行宏后看看AC列是不是自动填充到了正确的位置。

内容的提问来源于stack exchange，提问作者E.Weave.