[已解决]取一组数据中的倒数3名并列出

zuo8250

请看下附件，谢谢各位！！！

99Leeseg.rar (3.42 KB, 下载次数: 4)

2010-1-19 19:48 上传

点击文件名下载附件
取一组数据中的倒数3名并列出

[此贴子已经被作者于2010-1-19 19:48:21编辑过]

最佳答案

月排行榜 / 总排行榜

bigbird_p

2010-1-19 20:36

用一个二维数组写了个程序，看看

mimHTY4d.rar (8.74 KB, 下载次数: 8)

2010-1-19 20:36 上传

点击文件名下载附件
取一组数据中的倒数3名并列出

跳转到最佳答案楼层

bigbird_p

用一个二维数组写了个程序，看看

mimHTY4d.rar (8.74 KB, 下载次数: 8)

2010-1-19 20:36 上传

点击文件名下载附件
取一组数据中的倒数3名并列出

喜多多

For i = 1 To 6
   ReDim Preserve num(1, i)
   num(0, i) = Cells(i + 4, 2)
   num(1, i) = Cells(i + 4, 3)
   Next i

这样写运行起来很费时。

num=.range("B5:C10")

这样不是更快了吗

zuo8250

请问下，下边代码中什么地方间传递了C4这个变量的，如果变量的单元格改变应该如何改啊，谢谢！

Sub test()
   Dim i As Integer
   Dim num() As Variant
   Dim res As Variant, res1 As String
   Dim n As Integer
  
   For i = 1 To 6
   ReDim Preserve num(1, i)
   num(0, i) = Cells(i + 4, 2)
   num(1, i) = Cells(i + 4, 3)
   Next i
  
   '冒泡法对数组排序
   For i = 1 To 6
     For ii = i To 6
     If num(1, i) > num(1, ii) Then
     res = num(1, i)
     num(1, i) = num(1, ii)
     num(1, ii) = res
     res1 = num(0, i)
     num(0, i) = num(0, ii)
     num(0, ii) = res1
     End If
     Next ii
  Next i
 
  n = Cells(4, 3)
 
  For i = 1 To n
   
  Cells(i + 11, 2) = num(0, i)
  Cells(i + 11, 3) = num(1, i)
  Next i
    
End Sub

amulee

Sub test()
   Dim i As Integer
   Dim num() As Variant
   Dim res As Variant, res1 As String
   Dim n As Integer
  
   For i = 1 To 6
   ReDim Preserve num(1, i)
   num(0, i) = Cells(i + 4, 2)
   num(1, i) = Cells(i + 4, 3)
   Next i
  
   '冒泡法对数组排序
   For i = 1 To 6
     For ii = i To 6
     If num(1, i) > num(1, ii) Then
     res = num(1, i)
     num(1, i) = num(1, ii)
     num(1, ii) = res
     res1 = num(0, i)
     num(0, i) = num(0, ii)
     num(0, ii) = res1
     End If
     Next ii
  Next i
 
  n = Cells(4, 3)
 
  For i = 1 To n
   
  Cells(i + 11, 2) = num(0, i)
  Cells(i + 11, 3) = num(1, i)
  Next i
    
End Sub

bigbird_p

多谢喜多多提醒，刚开始学习VBA，对数组还不是很熟。继续学习