我有一个包含重复项的数据集，想要循环遍历数据并在键不存在时添加。
Dim SSBIds As New Scripting.Dictionary
Dim key As Variant
For i = 2 To endSSB
For Each key In SSBIds
If Not SSBIds.Exists(key) Then
SSBIds.Add SSB.Cells(i, 1).Value2, i
End If
Next
Next i
endSSB 只是数据集的最后一行。我只是一直盯着这个，不明白为什么它不起作用。
With:
Dim SSBIds As New Scripting.Dictionary
你正在定义一个全新的Dictionary，然后用：
For Each key In SSBIds
您正在尝试循环遍历它的键，但它们是空的......
也许你正在追求这个
Dim SSBIds As New Scripting.Dictionary
Dim i As Long
With SSB
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
If Not SSBIds.Exists(.Cells(i, 1).Value2) Then SSBIds.Add .Cells(i, 1).Value2, i
Next
End With
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
