我帮你排查了代码里的几个关键问题，尤其是导致Evaluate行报错的核心原因：

1. 变量名与VBA内置函数冲突 #

你把变量命名为Val，但Val()是VBA的内置函数（用于将字符串转换为数值），这种命名冲突会导致代码解析时出现歧义，这大概率就是「参数数量错误或属性赋值无效」的根源。

2. 不必要的Evaluate用法 #

你完全不需要用Evaluate来执行除法运算，直接用VBA的算术运算符/就能完成，既简洁又避免了字符串拼接可能带来的解析问题。

3. SumIf循环的逻辑错误 #

第一个For x循环里，你每次都给Sheet2的整个B2:B250区域赋值，这会导致所有单元格最终都是最后一次循环的计算结果。正确的做法应该是给当前行的B列单元格（即Worksheets("Sheet2").Cells(x, 2)）单独赋值。

4. 错误处理的位置不当 #

On Error Resume Next放在循环末尾，无法覆盖前面可能出错的除法运算（比如GrossWeight为0时的除零错误），应该移到可能出错的代码行之前。

修正后的代码 #

Sub Grossbypercent()
    Dim GrossWeight As Double
    Dim i As Long
    Dim sumVal As Long ' 重命名变量，避免与内置函数Val()冲突
    Dim div(2 To 250) As Variant
    Dim x As Long
    
    GrossWeight = Application.WorksheetFunction.Sum(Range("H2:H250"))
    
    ' 修正SumIf赋值逻辑，仅为当前行的B列单元格赋值
    For x = 2 To 250
        Worksheets("Sheet2").Cells(x, 2) = Application.WorksheetFunction.SumIf( _
            Worksheets("Sheet2").Range("A$2:A$250"), _
            Cells(x, 9), _
            Range("H$2:H$250") _
        )
    Next x
    
    For i = 2 To 250
        sumVal = Worksheets("Sheet2").Cells(i, 2)
        
        ' 用直接算术运算替代Evaluate，同时添加针对性错误处理
        On Error Resume Next
        div(i) = sumVal / GrossWeight
        If Err.Number <> 0 Then
            ' 处理除零或其他计算错误，这里设为0作为示例，可按需调整
            div(i) = 0
            Err.Clear
        End If
        On Error GoTo 0
        
        Worksheets("Sheet2").Cells(i, 3) = div(i) * Range("O2").Value
    Next i
End Sub

额外优化建议 #

• 尽量避免使用与VBA内置函数、关键字重名的变量名（比如Val、Date、Name等），从根源上避免命名冲突。
• 如果GrossWeight可能为0，建议提前做判断（比如If GrossWeight = 0 Then），比依赖On Error Resume Next更可控。
• 给Range对象明确指定工作表（比如ThisWorkbook.Worksheets("Sheet1").Range("H2:H250")），避免因当前活动工作表变化导致的引用错误。

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