请问字典keys\items括号中的值怎么求

sxhsf

请问字典keys\items括号中的值怎么求？

Qs18

Sub aa()
   Set d = CreateObject("scripting.dictionary")
   With Sheets("sheet1")
      arr = .[a1].CurrentRegion
   End With
   For j = 1 To UBound(arr, 2)
      For i = 2 To UBound(arr)
         If Len(arr(i, j)) = 0 Then Exit For
         If Not d.exists(arr(1, j)) Then
            Set d(arr(1, j)) = CreateObject("scripting.dictionary")
         End If
         d(arr(1, j))(arr(i, j)) = "" 'd(arr(j, 1))(arr(i, j)) + 1
      Next
   Next
   kk = d("B组").keys
   s = kk(2)
End Sub

Qs18

试试..........

smuuwl

1. For Each k In 字典.Keys
   
2.     n= n + 1
   
3.     If k = "指定值" Then
   
4.         Exit For
   
5.     End If
   
6. Next k
   
7. msgbox n‘ n就是序号值

复制代码

Qs18

试试.........

sxhsf

Qs18 发表于 2024-8-14 17:52
试试.........

是求“2”这个值，不是“3单元”

sxhsf

smuuwl 发表于 2024-8-14 17:52

不循环，直接得出结果有没有办法？

ynzsvt

要这个序号也没啥实用之处呀。

quqiyuan

加了这部分，仅供参考。。。

zxsea_7426

sxhsf 发表于 2024-8-14 18:08
是求“2”这个值，不是“3单元”

可以采用双字典对应法