[已解决]向高手致敬！

wszbd · 发表于 2013-4-24 04:03

新建 Microsoft Excel 工作表.rar (5.73 KB, 下载次数: 29)

最佳答案

月排行榜 / 总排行榜

1032446692

2013-4-26 00:32

Sub 选择胆码()
Dim arra, arrb(0 To 9, 0 To 9), i, j, m, n, xMax
For i = 0 To 9
Cells(i + 2, 7) = i
Next i
arra = Range("F2:G11")
'排序
For i = 0 To 8
For j = i + 1 To 9
If arra(i + 1, 1) < arra(j + 1, 1) Or (arra(i + 1, 1) = arra(j + 1, 1) And arra(i + 1, 2) > arra(j + 1, 2)) Then
xMax = arra(i + 1, 1)
arra(i + 1, 1) = arra(j + 1, 1)
arra(j + 1, 1) = xMax
xMax = arra(i + 1, 2)
arra(i + 1, 2) = arra(j + 1, 2)
arra(j + 1, 2) = xMax
End If
Next j
'排名次
Next i
arrb(0, 0) = arra(1, 2)
For i = 1 To 9
If arra(i + 1, 1) = arra(i, 1) Then
n = n + 1
m = m + 1
Else
n = 0
End If
arrb(i - m, n) = arra(i + 1, 2)
Next i
Range("B15:K24") = arrb
End Sub
<p> </p>

复制代码

这个更简洁一些

跳转到最佳答案楼层

jxncfxsf · 发表于 2013-4-24 08:51

用个函数就行了，是不是要这样的结果？

wszbd · 发表于 2013-4-24 13:22

对不起，完全不是这样的，可能是我写的不清楚吧，这个只能用vba，不过还是
谢谢你

1032446692 · 发表于 2013-4-24 20:27

Sub 选择胆码()
Dim arra, arrb(0 To 9, 0 To 9), i, j, m, n, xMax
For i = 0 To 9
Cells(i + 2, 7) = i
Next i
arra = Range("F2:G11")
For i = 0 To 8
For j = i + 1 To 9
If arra(i + 1, 1) < arra(j + 1, 1) Then
xMax = arra(i + 1, 1)
arra(i + 1, 1) = arra(j + 1, 1)
arra(j + 1, 1) = xMax
xMax = arra(i + 1, 2)
arra(i + 1, 2) = arra(j + 1, 2)
arra(j + 1, 2) = xMax
End If
Next j
Next i
Range("G1:G11").Clear
arrb(0, 0) = arra(1, 2)
For i = 1 To 9
If arra(i + 1, 1) = arra(i, 1) Then
n = n + 1
m = m + 1
Else
n = 0
End If
arrb(i - m, n) = arra(i + 1, 2)
Next i
Range("B15:K24") = arrb
End Sub

复制代码

小小葡萄 · 发表于 2013-4-25 15:13

眼花

啊啊啊

wszbd · 发表于 2013-4-25 19:17

不好意思，我的电脑刚修好

wszbd · 发表于 2013-4-25 19:19

谢谢，正是我想要的。不过下面的胆码每行没有按顺序排列，还请1032446692 老师给辛苦一下，因为这关系到下面的取值问题。
谢谢！！！

大白梨 · 发表于 2013-4-25 19:31

这代码看的眼花啊-----------

1032446692 · 发表于 2013-4-26 00:29

Sub 选择胆码()
Dim arra, arrb(0 To 9, 0 To 9), i, j, m, n, xMax
For i = 0 To 9
      Cells(i + 2, 7) = i
Next i
arra = Range("F2:G11")
'排序
For i = 0 To 8
For j = i + 1 To 9
      If arra(i + 1, 1) < arra(j + 1, 1) Then
         xMax = arra(i + 1, 1)
         arra(i + 1, 1) = arra(j + 1, 1)
         arra(j + 1, 1) = xMax

         xMax = arra(i + 1, 2)
         arra(i + 1, 2) = arra(j + 1, 2)
         arra(j + 1, 2) = xMax
      End If
Next j
'排名次
Next i
arrb(0, 0) = arra(1, 2)
For i = 1 To 9
      If arra(i + 1, 1) = arra(i, 1) Then
         n = n + 1
         m = m + 1
      Else
         n = 0
      End If
      arrb(i - m, n) = arra(i + 1, 2)
Next i
'调整顺序
For i = 0 To UBound(arrb)
For j = 0 To UBound(arrb, 2)
      For m = j + 1 To UBound(arrb, 2)
         If arrb(i, j) > arrb(i, m) And arrb(i, j) <> "" And arrb(i, m) <> "" Then
            xMax = arrb(i, j)
            arrb(i, j) = arrb(i, m)
            arrb(i, m) = xMax
         End If
      Next m
Next j
Next i
Range("B15:K24") = arrb
End Sub

1032446692 · 发表于 2013-4-26 00:32

这个最佳答案由 1032446692 给出，感谢 1032446692 的回答。

单击隐藏图章

Sub 选择胆码()
Dim arra, arrb(0 To 9, 0 To 9), i, j, m, n, xMax
For i = 0 To 9
Cells(i + 2, 7) = i
Next i
arra = Range("F2:G11")
'排序
For i = 0 To 8
For j = i + 1 To 9
If arra(i + 1, 1) < arra(j + 1, 1) Or (arra(i + 1, 1) = arra(j + 1, 1) And arra(i + 1, 2) > arra(j + 1, 2)) Then
xMax = arra(i + 1, 1)
arra(i + 1, 1) = arra(j + 1, 1)
arra(j + 1, 1) = xMax
xMax = arra(i + 1, 2)
arra(i + 1, 2) = arra(j + 1, 2)
arra(j + 1, 2) = xMax
End If
Next j
'排名次
Next i
arrb(0, 0) = arra(1, 2)
For i = 1 To 9
If arra(i + 1, 1) = arra(i, 1) Then
n = n + 1
m = m + 1
Else
n = 0
End If
arrb(i - m, n) = arra(i + 1, 2)
Next i
Range("B15:K24") = arrb
End Sub
<p> </p>

复制代码

这个更简洁一些

		自动登录	找回密码
密码			注册