用SMALL对数组进行排序出现不能取得类worksheetfunction属性

ArcaneJ

Dim Rng
Dim TimedicH As Object
Dim TimerngH As Variant，DateH

Set TimedicH = CreateObject("scripting.dictionary")
Rng = Range("A2:O" & rw)
For i = 1 To UBound(Rng)
    If Rng(i, 2) = "H" And TimedicH.exists(Rng(i, 11)) = False Then TimedicH.Add Rng(i, 11), ""
Next i
ReDim TimerngH(0 To TimedicH.Count)
TimerngH = TimedicH.keys
ReDim DateH(1, 1 To TimedicH.Count + 1)
For i = 1 To UBound(TimerngH) + 1
    DateH(1, i + 1) = Application.WorksheetFunction.Small(TimerngH, i)
Next i

走到worksheetfunction.small就报“不能取得类worksheetfunction的属性，不知道哪里错了，百思不得其解

ArcaneJ

附件如上

不知道为什么

ArcaneJ 发表于 2018-7-19 22:02
附件如上

略看了，你的TimerngH = TimedicH.keys ，这里的key  是文本格式的，所以出错

ArcaneJ

不知道为什么 发表于 2018-7-19 22:16
略看了，你的TimerngH = TimedicH.keys ，这里的key  是文本格式的，所以出错

啊，是啊，明白了，我加了一个val，好了，谢谢

huang1314wei

If Rng(i, 2) = "H" And TimedicH.exists(Rng(i, 11)) = False Then TimedicH(Val(Rng(i, 11))) = "" 'H状态的时段