求助

请大佬们指点迷津

太平均怎么界定，有个指标叫方差，可以限定平均程度。比如所有数相同，这就是最平均的情况，方差等于0，或者用标准差

Sub 随机()
Range("a1:a100") = "=RANDBETWEEN(100+5000*MOD(ROW(),2),10000)/100"
Do While True
Calculate
a = WorksheetFunction.Sum(Range("a1:a100"))
Range("c1:c100") = Range("a1:a100").Value
b = WorksheetFunction.Max(Range("c1:c100"))
c = a - 6529.3
For i = 1 To 100
If Cells(i, 3) = b Then
d = i
GoTo m
End If
Next
m:
If c > 0 And c < b Then
GoTo n
End If
Loop
n:
Range("c" & d) = b - c
Range("a1:a100").ClearContents
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("C1:C100")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub