请教各位高人：关于在数组里对日期排序的问题？

FJT1966

请教各位高人：

有一数组arr数据如Range("a2:g7)

如何用VBA，对F列的时间进行排序，找出最大值2014-1-10

所对应B列的值DD1401801。

先谢谢了

时间排序.rar (8.19 KB, 下载次数: 20)

2014-1-17 21:43 上传

点击文件名下载附件

dsmch

1. Sub Macro1()
   
2. Dim arr, i&, j&, k&
   
3. arr = [a2:g7]
   
4. For i = 1 To UBound(arr) - 1
   
5.     For j = i + 1 To UBound(arr)
   
6.         If arr(i, 6) > arr(j, 6) Then
   
7.             p = ""
   
8.             For k = 1 To UBound(arr, 2)
   
9.                 p = arr(i, k): arr(i, k) = arr(j, k): arr(j, k) = p
   
10.             Next
    
11.         End If
    
12.     Next
    
13. Next
    
14. MsgBox arr(UBound(arr), 6) & String(5, "-") & arr(UBound(arr), 2)
    
15. End Sub
    
16. 
    

复制代码

dsmch

1. Sub Macro2()
   
2. MsgBox Application.Evaluate("INDEX(B2:B7,MATCH(MAX(F2:F7),F2:F7,0))")
   
3. End Sub
   

复制代码

dsmch

………………

yaozong

Sub Macro3()
  Dim ar, br, t, i%, j&, k&, m&, n&
  Columns("F:F").NumberFormatLocal = "G/通用格式"
  ar = Range("a2:g7").Value
  br = ar: m = UBound(ar): n = UBound(ar, 2)
  With Application
    t = .Index(ar, 0, 6)
    For i = 1 To m
      k = .Match(.Min(t), t, 0)
      For j = 1 To n
        br(i, j) = ar(k, j)
      Next j
      t(k, 1) = ""
    Next i
  End With
  [a21].Resize(m, n) = br '赋值单元格
  '[a2].Resize(m, n) = br  ''复盖原数据时
  Columns("F:F").NumberFormatLocal = "yyyy-m-d"
  MsgBox "最大日期 : " & CDate(br(m, 6)) & vbLf & "B列对应值: " & br(m, 2)
End Sub

FJT1966

可能是大家没理解我的意思，arr 是我程序中的一部分不返回单元格 ，所以只能在数组排序，《有一数组arr数据如Range("a2:g7)》Range("a2:g7）内容是打个比方
希望大家能提个简单而有效的方法，

lcjy11185

好                     

yjh_27

FJT1966 发表于 2014-1-18 16:19
可能是大家没理解我的意思，arr 是我程序中的一部分不返回单元格 ，所以只能在数组排序，《有一数组arr数据 ...

参见多Key数组排序-自定义函数

bluexuemei

yaozong 发表于 2014-1-18 09:03
Sub Macro3()
  Dim ar, br, t, i%, j&, k&, m&, n&
  Columns("F:F").NumberFormatLocal = "G/通用格式" ...

弄复杂了，完全可以用MAX直接求出最大值