Excel宏自动填充需求：填充至空单元格而非固定单元格

要解决每月数据行数变化导致的填充异常，核心是动态获取实际数据的最后一行，仅填充至有数据的行，避免生成多余的空白公式。

方法1：优化AutoFill逻辑（适配动态行数） #

先基于公式依赖的F列，获取实际数据的最后一行行号，再动态设置填充范围：

Dim lastRow As Long
' 获取F列最后一行数据的行号
lastRow = Cells(Rows.Count, "F").End(xlUp).Row

' 给G2写入公式
Range("G2").Formula = "=IF(F2<>"""",F2/E2,"""")"
' 自动填充到G列对应最后一行
Range("G2").AutoFill Destination:=Range("G2:G" & lastRow)

方法2：批量赋值公式（更高效，无需AutoFill） #

直接给目标区域批量设置公式，跳过AutoFill步骤，代码更简洁且执行效率更高：

Dim lastRow As Long
lastRow = Cells(Rows.Count, "F").End(xlUp).Row

' 给G2到G[lastRow]批量设置公式
Range("G2:G" & lastRow).Formula = "=IF(F2<>"""",F2/E2,"""")"

关键说明 #

• Cells(Rows.Count, "F").End(xlUp).Row：从F列最底部向上查找第一个非空单元格，精准定位实际数据的最后一行，完美适配每月变化的行数。
• 两种方法均不会在无数据的行写入公式，彻底解决多余空白公式的问题。
• 避免使用Select和固定行数范围是VBA编写的最佳实践，能提升代码稳定性与执行效率。

内容的提问来源于stack exchange，提问作者Skylar Smoot