Excel VBA +查找与词典

Question

我想用字典做查找。但是，我无法提取密钥的offset。

我检查过我的字典已经加载了我想要的所有数据，包括必要的offset值。 （为评论的下一个循环）

我现在的问题是，如何找到Dic.Exists(profitCentre)找到offset值？

Dim cl As Range, Dic As Object 
Set Dic = CreateObject("Scripting.Dictionary"): Dic.Comparemode = vbTextCompare 
With Workbooks(wbPropListing).Sheets("Residential") 
    For Each cl In .Range("E3:E" & .Cells(Rows.Count, "E").End(xlUp).row) 
     If Not Dic.Exists(cl.Value) Then Dic.Add cl.Value, cl.Offset(, 1).Value    
    Next cl 
End With 
With Workbooks(wbPropListing).Sheets("Fund&CoT") 
    For Each cl In .Range("E2:E" & .Cells(Rows.Count, "E").End(xlUp).row) 
     If Not Dic.Exists(cl.Value) Then Dic.Add cl.Value, cl.Offset(, 1).Value 
    Next cl 
End With 

'For i = 0 To Dic.Count - 1 
' Debug.Print Dic.items()(i), Dic.keys()(i) 
'Next i 
i = 0 
For Each profitCentre In myProfitCentreArray 
    If profitCentre <> "" And Not profitCentre Like "####0000" And Dic.Exists(profitCentre) Then 
     lookupFound = Dic.items() 
    End If 
    Debug.Print "Index: " & i & " profit centre: " & profitCentre & " Lookup: " & lookupFound 
    i = i + 1 
Next profitCentre 

Answer 1

我通过vlookup而不是字典找到了。

但是，如果你通过字典知道答案，我也想学习。

下面是我通过VLOOKUP完成的代码

For Each profitCentre In myProfitCentreArray 
    If profitCentre <> "" And Not profitCentre Like "####0000" Then 
    With Workbooks(wbPropListing).Sheets("Residential") 
     Set lookupResRange = .Range("E3:F" & .Cells(Rows.Count, "E").End(xlUp).row) 
    End With 
    With Workbooks(wbPropListing).Sheets("Fund&CoT") 
     Set lookupFundRange = .Range("E2:F" & .Cells(Rows.Count, "E").End(xlUp).row) 
    End With 

    lookupResult = Application.VLookup(CStr(profitCentre), lookupResRange, 2, False) 
    If IsError(lookupResult) Then 
     lookupResult = Application.VLookup(CStr(profitCentre), lookupFundRange, 2, False) 
     If IsError(lookupResult) Then MsgBox "Profit Centre: " & profitCentre & " Not Found" 
     End If 
    myforecastSheetsIndex = myforecastSheetsIndex + 1 
    End If 
Next profitCentre