excel 把这18个数据均匀分成6个小组，让每组的平均值比较接近， 同时显示出每个小组数据所对应的序号。

Question

最好有宏代码或其他简便的方法

Answer 1

Private Sub Worksheet_Activate()
Dim i, j, k As Integer
Let i = 1
Let j = 18
Let k = 12
While i < 7
Let Cells(i, "D") = (Cells(i, "C") + Cells(k, "C") + Cells(j, "c")/3
Let Cells(i, "e") = i
Let Cells(i, "f") = k
Let Cells(i, "g") = j
Let i = i + 1
Let j = j - 1
Let k = k - 1
Wend

End Sub追问

好像你的宏运行不了哦