VBA UserForm：如何使用数组计算列表框第二列的平均值

核心步骤：提取数据→计算平均值→显示结果 #

1. 提取列表框第二列数据到数组（同时计算总和）

列表框的列索引从0开始，第二列对应List(i, 1)。遍历所有行，筛选有效数值存入数组，同时累加总和：

Dim dataArray() As Variant
Dim i As Integer
Dim validCount As Integer
Dim totalValue As Double
Dim avgResult As Double

validCount = 0
totalValue = 0

' 遍历列表框所有行
For i = 0 To Me.ListBox1.ListCount - 1
    ' 跳过非数值内容，避免报错
    If IsNumeric(Me.ListBox1.List(i, 1)) Then
        validCount = validCount + 1
        totalValue = totalValue + CDbl(Me.ListBox1.List(i, 1))
        ' 动态扩展数组并存入数据
        ReDim Preserve dataArray(1 To validCount)
        dataArray(validCount) = CDbl(Me.ListBox1.List(i, 1))
    End If
Next i

2. 计算平均值（处理空数据情况）

必须判断有效数据数量，防止除以0的错误：

If validCount > 0 Then
    avgResult = totalValue / validCount
Else
    avgResult = 0 ' 或者设置为""显示无数据
End If

3. 显示到圆形区域

假设你的圆形区域是圆形Label控件（已设置Shape = msoShapeOval）：

' 格式化平均值后显示，这里保留两位小数
Me.Label_Circle.Caption = Format(avgResult, "0.00")

如果是UserForm上的Shape图形（比如命名为Circle_Result）：

Me.Shapes("Circle_Result").TextFrame.Characters.Text = Format(avgResult, "0.00")

注意事项 #

• 确保列表框的ColumnCount属性设置为≥2，否则无法访问第二列数据
• 如果不需要复用数组，也可以跳过数组存储，直接累加总和计算平均值，节省内存
• 可以根据需求调整平均值的格式，比如"0"显示整数，"0.000"显示三位小数

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