数据字典可以里可以查找一对多的数据吗？

feilanga

feilanga

zxx212

在实际VBA应用中，感觉用字典时，应用split这函数时，数据量大的时候，速度比用纯数组时慢，不知道怎么回事。

ykcbf1100

vleexhya 发表于 2024-8-21 16:58
多谢老师帮助！
如何将查找的结果输出到弹窗
输出来形如：A的成绩有：100

改好了。。。

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    arr = Sheet1.[g3].CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    For i = 3 To UBound(arr)
        If Not d.exists(arr(i, 1)) Then
            d(arr(i, 1)) = arr(i, 2)
        Else
            d(arr(i, 1)) = d(arr(i, 1)) & vbCrLf & arr(i, 2)
        End If
    Next
    Item = d(Sheet1.[a2].Value)
    MsgBox Sheet1.[a2].Value & "的成绩有：" & Item
    Set d = Nothing
End Sub

zhangcheng6688

学习一下字典，打扰了
Sub test()
Set d = CreateObject("scripting.dictionary")
arr = [g3].CurrentRegion
For i = 3 To UBound(arr)
   If Not d.exists(arr(i, 1)) Then
      d(arr(i, 1)) = arr(i, 2)
   Else
      d(arr(i, 1)) = d(arr(i, 1)) & "," & arr(i, 2)
   End If
Next
ReDim brr(1 To UBound(arr), 1 To 1)
For Each kk In d.keys
   If kk = [a2] Then
      s = Split(d(kk), ",")
      For i = 0 To UBound(s)
         m = m + 1
         brr(m, 1) = s(i)
      Next
   End If
Next
[b2].Resize(m, 1) = brr
End Sub