[已解决]如何返回地址

danio112

依次返回最大五个数的地址。
见附件里

最佳答案

月排行榜 / 总排行榜

xdragon

2013-11-16 11:09

1. Sub t()
   
2. Dim i As Byte, rn As Range
   
3. Dim tmp(1 To 5)
   
4. For i = 1 To 5
   
5.   tmp(i) = WorksheetFunction.Large(Range("B2:C17"), i) '如果不是太多的单元格，可以把这句放到下面的循环中，取消这个循环
   
6. Next
   
7. For i = 1 To 5
   
8.   For Each rn In Range("B2:C17")
   
9.     If rn = tmp(i) Then tmp(i) = rn.Address
   
10.   Next
    
11. Next
    
12. Range("E2").Resize(5) = Application.Transpose(tmp)
    
13. End Sub

复制代码

跳转到最佳答案楼层

xdragon

1. Sub t()
   
2. Dim i As Byte, rn As Range
   
3. Dim tmp(1 To 5)
   
4. For i = 1 To 5
   
5.   tmp(i) = WorksheetFunction.Large(Range("B2:C17"), i) '如果不是太多的单元格，可以把这句放到下面的循环中，取消这个循环
   
6. Next
   
7. For i = 1 To 5
   
8.   For Each rn In Range("B2:C17")
   
9.     If rn = tmp(i) Then tmp(i) = rn.Address
   
10.   Next
    
11. Next
    
12. Range("E2").Resize(5) = Application.Transpose(tmp)
    
13. End Sub

复制代码

顺⑦.zì繎。

Sub zuida()
my = Application.WorksheetFunction.Large(Range("b2:c17"), 6)
For Each rn In Range("b2:c17")
    If rn > my Then
     n = n + 1
     Cells(n + 1, 5) = rn.Address
     End If
Next

End Sub

danio112

顺⑦.zì繎。 发表于 2013-11-16 11:14
Sub zuida()
my = Application.WorksheetFunction.Large(Range("b2:c17"), 6)
For Each rn In Range("b ...

代码简洁，输出了相应的结果，但不是从最大到最小