如何精简50行重复Excel VBA SUMIFS代码并适配有效行数？

当然可以！你现在写的50行重复代码不仅冗余，还做了不少无用功——毕竟大部分时候只有10-20行有效数据。咱们完全可以让VBA自动检测J列的有效数据行数，只对有数据的行执行公式填充，既高效又灵活。

核心思路 #

首先用VBA的End(xlUp)方法找到J列最后一个非空单元格的行号，这样不管你的有效数据是10行、20行还是偶尔到50行，都能精准识别。然后直接给对应范围的L列单元格批量写入公式，不用逐行重复写代码。

优化后的完整代码 #

Sub FillSumFormula()
    Dim lastRow As Long
    ' 获取J列最后一个非空单元格的行号
    lastRow = Cells(Rows.Count, "J").End(xlUp).Row
    
    ' 给L2到LlastRow的单元格批量设置公式
    Range("L2:L" & lastRow).Formula = "=IF(J2="""","""",SUMIFS(E:E,D:D,J2))"
End Sub

为什么这比原代码更好？ #

• 自动适配数据量：不管有效数据行数怎么变，代码都能自动识别，不用手动修改行号
• 效率更高：批量赋值公式比逐行Select再写快得多，而且尽量避免在VBA中使用Select——这种操作不仅慢，还容易因工作表切换等情况出错
• 更简洁：几行代码就替代了原来50行重复内容，维护起来超方便

补充说明 #

公式里的双引号""是VBA里的转义写法，对应Excel公式里的单个双引号"，所以最终写入单元格的公式和你原来的逻辑完全一致，不用担心计算结果变化。

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