以下Excel VBA代码存在什么问题？RoasPercentageGenerator过程故障排查

核心运行异常原因 #

• 区域引用父对象缺失：代码中Sheet1.Range(Cells(2, 3), Cells(2, 25))部分的Cells未指定所属工作表，默认会读取当前活动工作表的单元格，若运行时活动表不是Sheet1，会触发跨表区域错误（1004号运行时错误），所有归属Sheet1的单元格对象都需要显式指定父对象为Sheet1。
• SumIf调用无容错机制：直接使用Application.WorksheetFunction.SumIf时，如果表头行未匹配到Ad Revenue字段，会直接抛出运行时错误中断程序，替换为Application.SumIf即可，无匹配时会返回错误值写入单元格，不会中断程序运行。
• 变量声明不严谨：原代码未声明循环变量i，若开启了Option Explicit强制显式声明规则，会直接触发编译错误。

修正后完整代码 #

Sub RoasPercentageGenerator()
    Dim lastrow As Long
    Dim i As Long
    ' 补充Rows的父对象声明，避免活动表切换时计数错误
    lastrow = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row
        
    For i = 3 To lastrow
        If Sheet1.Cells(i, 2) > 50 And Not IsEmpty(Sheet1.Cells(i, 184)) Then
            Sheet2.Cells(i, 1) = Sheet1.Cells(i, 1)
            ' 所有Cells显式指定Sheet1为父对象，SumIf改用容错写法
            Sheet2.Cells(i, 2) = Application.SumIf(Sheet1.Range(Sheet1.Cells(2, 3), Sheet1.Cells(2, 25)), "Ad Revenue", Sheet1.Range(Sheet1.Cells(i, 3), Sheet1.Cells(i, 25)))
        End If
    Next i
End Sub

可选优化建议 #

如果不需要Sheet2中保留和Sheet1一致的行位置、希望避免中间出现空行，可以新增一个行计数器变量，每匹配到符合条件的数据就按顺序写入Sheet2的连续行。

内容的提问来源于stack exchange，提问作者Ömer Kadıoğlu