如何在VBA中将已知数均匀分布在一个范围内

Sub DistributeNumbers()
    Dim startValue As Double
    Dim endValue As Double
    Dim count As Integer
    Dim interval As Double
    Dim numbers() As Double
    Dim i As Integer
    
    ' 设置已知数的范围和数量
    startValue = 1
    endValue = 10
    count = 5
    
    ' 计算间隔
    interval = (endValue - startValue) / (count - 1)
    
    ' 重新调整数组大小
    ReDim numbers(1 To count)
    
    ' 分配已知数到数组中
    For i = 1 To count
        numbers(i) = startValue + (i - 1) * interval
    Next i
    
    ' 将数组中的值输出到单元格A1到A5
    For i = 1 To count
        Range("A" & i).Value = numbers(i)
    Next i
End Sub