计算均数

xing_chen

老师，有表，为计算均价的，写有代码，但感觉不爽，1是出错；2是我的方法觉得又点繁琐，应该有其它方法。敬请老师赐教。谢谢！

xing_chen

有老师赐教吗？

今日123

猜一个看看是不是
Sub ºÏ¼Æ()
Dim arr, i, r
With Sheet1
    r = .[h65536].End(3).Row
    arr = .Range("h2:p" & r)
    For i = 2 To UBound(arr)
        arr(i, 2) = arr(i, 3) / arr(i, 1)
        arr(i, 5) = arr(i, 2)
        arr(i, 6) = arr(i, 5) * arr(i, 4)
        arr(i, 8) = arr(i, 9) / arr(i, 7)
    Next i
    .[h2].Resize(UBound(arr), UBound(arr, 2)) = arr
End With
End Sub

xing_chen

今日123 发表于 2023-5-29 21:34
猜一个看看是不是
Sub ºÏ¼Æ()
Dim arr, i, r

谢谢老师！运行如愿！不过我昨日在解此题时，发现漏了1个重大问题，就是除数为0的，后加On Error Resume Next，老师你有其它更好方法吗?
抱歉！花在旅途，明日献上