VBA脚本，用于使用Excel列中非空单元格的平均值填充Excel列中的空白单元格

Sub FillBlankCells()
    Dim rng As Range
    Dim cell As Range
    Dim sum As Double
    Dim count As Integer
    Dim average As Double
    
    ' 选择要操作的列范围
    Set rng = Range("A1:A10") ' 这里假设要操作的列是A列，可以根据实际情况进行修改
    
    ' 初始化变量
    sum = 0
    count = 0
    
    ' 遍历每个单元格
    For Each cell In rng
        ' 判断单元格是否为空
        If Not IsEmpty(cell) Then
            ' 累加非空单元格的值
            sum = sum + cell.Value
            count = count + 1
        End If
    Next cell
    
    ' 计算平均值
    If count > 0 Then
        average = sum / count
    Else
        average = 0
    End If
    
    ' 填充空白单元格
    For Each cell In rng
        If IsEmpty(cell) Then
            cell.Value = average
        End If
    Next cell
End Sub