|
本帖最后由 zyouong 于 2016-8-29 16:27 编辑
打开文件 alt F11 打开代码编辑界面 菜单--插入 模块 将下面的代码粘贴进去。 回到文件界面,在需要显示结果的单元格输入=js($A$1:$G$9,ROW(A1)) 下拉
!!!注 代码是 gufengaoyue 编写的
Function js(Rng As Range, i)
Dim arr, Dic
Set Dic = CreateObject("scripting.dictionary")
arr = Rng.Value
For a = 1 To UBound(arr)
For b = 1 To UBound(arr, 2)
If arr(a, b) > 1 Then
Dic(arr(a, b)) = Dic(arr(a, b)) + 1
End If
Next
Next
k = Dic.keys
BubbleSort k
js = k(i - 1)
End Function
Sub BubbleSort(ByRef arr)
Dim i&, j&, vSwap
For i = UBound(arr) To LBound(arr) + 1 Step -1
For j = LBound(arr) To i - 1
If arr(j) > arr(j + 1) Then
vSwap = arr(j): arr(j) = arr(j + 1): arr(j + 1) = vSwap
End If
Next
Next
End Sub
|
|