如何用字典ADD方法对数据进行查询

ycan

求教一下字典查询，VBA几乎忘记完了，上网查也搞不懂字典方法了，向大家求教一下：


如何通过字典方法求第一次赋值和最后一次赋值的位置，谢谢大家！
          Dim nDate
          ReDim nDate(1 To 31, 1 To 50)
          Dim nDate_i1, nDate_i2
          'nDate(nDate_i1, 16)16列中的数不确定，通过判断小于3后新赋值为3，如何通过字典方法求第一次赋值和最后一次赋值的位置

          Dim dict1
          Set dict1 = CreateObject("Scripting.Dictionary")

                    For nDa_i1 = 1 To 30 Step 1
                      If nDate(nDate_i1, 16)) < 3 Then
                      '如果小于3，将该行的数据存入字典
                     
                      nDate(nDate_i1, 16) = 3 '赋值
                      dict1.Add nDate_i1, nDate()
                      End If
                    Next nDate_i1

不知道为什么

参考该帖子 ，需求一样。

1. https://club.excelhome.net/thread-1663588-1-1.html

复制代码

mmwwdd

这种问题用collection比较好，它是有前后顺序的方法,字典只能是辅助列

ycan

多谢两位老师！