excelvba多列加权求取平均值

在Excel VBA中，计算多列加权求取平均值可以通过数组公式和循环结构实现。以下是一个简单的步骤和示例代码：

1. **准备工作**：
首先，你需要有一列权重（w1, w2, ..., wn）和若干列数值（A1, A2, ..., An），并且权重和数值的行数要一致。

2. **创建数组**：
在新的单元格（例如D1）中，输入公式来计算加权平均，例如`=SUMPRODUCT(A1:n, w1:w)`，这里假设权重在列W，数值在A到N列。然后按`Ctrl + Shift + Enter`组合键输入数组公式，这样系统会自动用大括号{}将公式括起来。

3. **VBA代码示例**：

Sub WeightedAverage()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim weights() As Double
    Dim values() As Double
    Dim weightedAverage As Double
    Dim i As Long
    
    ' 选择工作表
    Set ws = ThisWorkbook.Sheets("Sheet1") '请替换为你的工作表名
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '获取最后一行数据

    ' 假设权重在W列，数据在A列到N列
    ReDim weights(lastRow - 1) As Double
    ReDim values(lastRow - 1, 1 To 4) As Double '假设最多有4列数据，根据实际调整
    
    ' 将权重和数据填充到数组中
    For i = 1 To lastRow
        weights(i - 1) = ws.Cells(i, "W").Value
        values(i - 1, 0) = ws.Cells(i, "A").Value '第一列数据
        values(i - 1, 1) = ws.Cells(i, "B").Value '第二列数据等...
    Next i
    
    ' 计算加权平均
    weightedAverage = WorksheetFunction.SumProduct(values, weights)
    
    ' 输出结果
    ws.Cells(lastRow + 1, 1).Value = "Weighted Average"
    ws.Cells(lastRow + 1, 2).Value = weightedAverage
End Sub