用vba写个自定义函数。举例说明，例如有表格数据如图：
第一步：编制代码如下：
Function myH(myrange As Range)
myH = 0
For Each MYC In myrange
Pi = MYC.Value
myH = myH + Pi * Application.WorksheetFunction.Ln(Pi)
Next MYC
myH = myH * (-1)
End Function
第二步：在I2输入公式：=myh（G2：G13）.结果如图：
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024