[已解决]数组求解：求large的第1到3次

xdwy81129 · 发表于 2011-1-23 04:47

如：arr = [A2:BA400],注明：是用数组求，不是单元格循环求解

需要用到arr(i,j)来求各行的第1大，第2大，第3大数字，即large（数据，1），相同大小的同large结果一样，即第1，第2都是一样的

不可以用公式求，因为我测试了下，速度慢，想数据循环快。谢谢

最佳答案

月排行榜 / 总排行榜

amulee

2011-1-24 13:48

Sub MLarge1()
Dim ArrYS
Dim ArrJG
Dim iCount%
'初始化数组
iCount = 3
ReDim ArrJG(1 To iCount)
ReDim ArrYS(1 To 100)
For i = 1 To UBound(ArrYS)
ArrYS(i) = Int(Rnd * 100)
Next i
'开始遍历原始数组
For i = 1 To UBound(ArrYS)
'依次与结果数组中的元素比较
For j = 1 To iCount
If IsEmpty(ArrJG(j)) Then
ArrJG(j) = ArrYS(i)
Exit For
End If
If ArrJG(j) <= ArrYS(i) Then
'找到比原始数组中小的数，就替换
For k = iCount To j + 1 Step -1
ArrJG(k) = ArrJG(k - 1)
Next
ArrJG(j) = ArrYS(i)
Exit For
End If
Next
Next i
MsgBox "原始数组" & Join(ArrYS, ",") & "中最大的三个数为:" & Join(ArrJG, ",")
End Sub

复制代码

跳转到最佳答案楼层

djyjysxxs · 发表于 2011-1-23 08:22

你有几个帖子涉及排序，坛子中有好几个网友都写有排序的主题贴（http://www.excelpx.com/forum.php ... ghlight=&page=1是我07年写的）可以找来参考参考。
不过排序不建议另写代码，因为excel本身带有排序功能，他的速度应该是最快的（以前见过彭大师的排序，应该是我见过的排序中最优秀的，但似乎也没有快过excel）。当然做为练技术则除外哈

开辆小富康 · 发表于 2011-1-23 09:05

不排序的话，设三个变量呗，逐个比较

djyjysxxs · 发表于 2011-1-23 09:27

按开车的说法写了个仅供参考（数据源是c1:c100，为整数，最后的结果仅为一句msgbox，按自己的需求改吧）
Sub test()
ar = [c1:c100]
lar1% = ar(1, 1): k1% = 1
lar2% = ar(1, 1): k2% = 1
lar3% = ar(1, 1)
For i% = 2 To UBound(ar)
  If lar1 < ar(i, 1) Then
   lar3 = lar2
   lar2 = lar1: k2 = k1
   lar1 = ar(i, 1): k1 = 1
  ElseIf lar1 = ar(i, 1) Then
   k1 = k1 + 1
  Else
   If lar2 < ar(i, 1) Then
      lar3 = lar2
      lar2 = ar(i, 1): k2 = 1
   ElseIf lar2 = ar(i, 1) Then
      k2 = k2 + 1
   Else
      If lar3 < ar(i, 1) Then lar3 = ar(i, 1)
   End If
  End If
Next
MsgBox "最大值" & lar1 & "出现" & k1 & "次，第二大值" & lar2 & "出现" & k2 & "次，第三大值" & lar3
End Sub

TTTTT · 发表于 2011-1-23 09:29

学习，真棒！

轩辕轼轲 · 发表于 2011-1-23 09:48

你最好上传附件，大家帮你解决

放浪形骸 · 发表于 2011-1-23 19:12

其实我感觉还是自带的东西最快了。。。

xdwy81129 · 发表于 2011-1-23 19:17

提问只是个比喻，因为实际的数组，是我求出来的，又没有想让单元格过度的意思

zitongye2384 · 发表于 2011-1-23 19:25

学习

amulee · 发表于 2011-1-24 13:48

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

单击隐藏图章

Sub MLarge1()
Dim ArrYS
Dim ArrJG
Dim iCount%
'初始化数组
iCount = 3
ReDim ArrJG(1 To iCount)
ReDim ArrYS(1 To 100)
For i = 1 To UBound(ArrYS)
ArrYS(i) = Int(Rnd * 100)
Next i
'开始遍历原始数组
For i = 1 To UBound(ArrYS)
'依次与结果数组中的元素比较
For j = 1 To iCount
If IsEmpty(ArrJG(j)) Then
ArrJG(j) = ArrYS(i)
Exit For
End If
If ArrJG(j) <= ArrYS(i) Then
'找到比原始数组中小的数，就替换
For k = iCount To j + 1 Step -1
ArrJG(k) = ArrJG(k - 1)
Next
ArrJG(j) = ArrYS(i)
Exit For
End If
Next
Next i
MsgBox "原始数组" & Join(ArrYS, ",") & "中最大的三个数为:" & Join(ArrJG, ",")
End Sub

复制代码

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