筛选出不同的日期 从近到远排列

whb2008cool

data.rar (5.43 KB, 下载次数: 23)

2014-1-17 16:12 上传

点击文件名下载附件

蓝桥玄霜

1. Sub yy()
   
2. Dim Arr, Myc%, d, i&
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Myc = [iv1].End(xlToLeft).Column
   
5. Arr = Range("a1").Resize(1, Myc)
   
6. Range("a3").Resize(1, Myc) = Arr
   
7. Range("a3").Resize(1, Myc).Sort Key1:=Range("a3"), Order1:=xlAscending, Header:=xlNo, Orientation:=xlLeftToRight
   
8. Arr = Range("a3").Resize(1, Myc)
   
9. For i = 1 To UBound(Arr, 2)
   
10.     d(Arr(1, i)) = ""
    
11. Next
    
12. Rows(3).ClearContents
    
13. Range("a3").Resize(1, d.Count) = d.keys
    
14. End Sub
    

复制代码

蓝桥玄霜

请见附件。

whb2008cool

好的谢谢 老师  我学习一下

bluexuemei

1. Sub test()
   
2. Dim ojs
   
3. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
   
4. ojs.eval ("def aa(aa);$aa=aa.flatten!;end")
   
5. arr = [a1].CurrentRegion
   
6. y = ojs.Run("aa", arr)
   
7. brr = ojs.eval("$aa.sort().uniq")
   
8. [a5].Resize(1, UBound(brr) + 1) = brr
   
9. Set ojs = Nothing
   
10. Stop
    
11. End Sub

复制代码