excel自定义函数 两列数据加权合计

可以使用以下自定义函数来实现两列数据的加权合计：

Function WeightedSum(rng1 As Range, rng2 As Range) As Double
    Dim total As Double
    Dim i As Long
    
    For i = 1 To rng1.Cells.Count
        total = total + (rng1.Cells(i).Value * rng2.Cells(i).Value)
    Next i
    
    WeightedSum = total
End Function

这个函数接受两个参数：要进行加权合计的第一列数据（`rng1`）和对应的权重列数据（`rng2`）。函数会将这两列数据逐行相乘，并将结果相加，最后返回加权合计的总和。

你可以将上面的代码复制到 Excel 的“开发人员”选项卡中的“Visual Basic”编辑器中，并将其保存为一个模块。然后，在 Excel 中就可以使用 `WeightedSum` 函数了。例如，如果要计算 A 列数据和 B 列数据的加权合计，可以在另一个单元格中输入以下公式：

=WeightedSum(A1:A10, B1:B10)

这个公式将会返回 A 列数据和 B 列数据的加权合计。你可以根据需要调整参数范围。