上次写了扩展功能的代码，最佳给了用if笨办法的别人，伤心，这次怎么又问差不多同样的问题呢同样的如下代码可以判别任意多数量的大小顺序，在紧接着后面的单元格内输出序列一定要采纳好评啊，打那么多字Sub compare()
n = 3
‘改变这个数字，就可以设定你需要比较多少个数字
Dim b()
ReDim b(n)
For i = 1 To n Step 1
b(i) = Cells(9, i + 1)
Next i
For j = 1 To n Step 1
For k = 1 To n - j Step 1
...
