Can'；t使用vba使用字典的键从字典中检索值

在这个问题上我完全被难住了。我创建了一个宏，它将读取当前电子表格中的值，使用行号作为键将这些值放入字典，创建一个新的电子表格，从这些字典中获取值，然后将它们添加到新的电子表格中。有三本字典已经填好了。我可以从两个字典中获取值，甚至可以从有问题的字典中获取前两个值。但是，当我尝试在last For Next循环中检索最后两个值时，这些值被读取为“”，而不是实际值。下图是我通过循环问题字典构建的消息

我有一个调试循环，它在最后一个For Next循环中生成了这个消息。正如您所看到的，每个键都有一个值，但当我仅对最后两个值使用dataN.Exist（键）时，我得到“”作为值。我不明白。完全相同的代码用于提取前两个值，而不是最后一个值。我甚至将这些值移到了不同的行，但仍然得到了相同的“”。下面是完整的代码：

Sub Transfer2NewWorkbook()
Dim currentsheet As String
Dim newsheet As String
Dim analysisDate As String
Dim initial As String
Dim aInitial() As String
Dim analystInit As String
Dim aBatch() As String
Dim batch As String
Dim batchNo As String
Dim key As Variant
Dim ikey As Variant

Dim SrowN As String
Dim rowN As Integer
Dim rowD As String
Dim wb As Object
Dim dataRangeN As Range, dataRangeB As Range, dataRangeI As Range
Dim dataN As Object
Set dataN = CreateObject("Scripting.Dictionary")
Dim dataB As Object
Set dataB = CreateObject("Scripting.Dictionary")
Dim dataI As Object
Set dataI = CreateObject("Scripting.Dictionary")
Dim teststring As String



' Grab and Create filenames
currentsheet = ActiveWorkbook.Name
newsheet = currentsheet & "-" & "uploadable"

' Grab data from original spreadsheet
analysisDate = ActiveWorkbook.Sheets(1).Cells(1, 9).Value

initial = ActiveWorkbook.Sheets(1).Cells(1, 2).Value
aInitial = Split(initial, "/")
analystInit = aInitial(1)

batch = ActiveWorkbook.Sheets(1).Cells(1, 4).Value
aBatch = Split(batch, ":")
batchNo = aBatch(1)

Set dataRangeN = Range("A:A")
Set dataRangeB = Range("B:B")
Set dataRangeI = Range("I:I")


For i = 4 To dataRangeB.Rows.Count
    If Not IsEmpty(dataRangeB(i, 1)) Then
        If StrComp(ActiveWorkbook.Sheets(1).Cells(i, 2).Value, "End") = 0 Then
            Exit For
        ElseIf StrComp(ActiveWorkbook.Sheets(1).Cells(i, 2).Value, "Blank") = 0 Then
             If StrComp(ActiveWorkbook.Sheets(1).Cells(i, 1).Value, "Unseeded") = 0 Or StrComp(ActiveWorkbook.Sheets(1).Cells(i, 1).Value, "Seeded") = 0 Then
                If Not IsEmpty(dataRangeI(i, 1)) Then
                    dataN.Add i, ActiveWorkbook.Sheets(1).Cells(i, 1).Value
                    dataB.Add i, ActiveWorkbook.Sheets(1).Cells(i, 2).Value
                    dataI.Add i, ActiveWorkbook.Sheets(1).Cells(i, 9).Value
                End If
             End If
        ElseIf StrComp(ActiveWorkbook.Sheets(1).Cells(i, 2).Value, "Check") = 0 Then
            If StrComp(ActiveWorkbook.Sheets(1).Cells(i, 1).Value, "Std") = 0 Then
                If Not IsEmpty(dataRangeI(i, 1)) Then
                    dataN.Add i, ActiveWorkbook.Sheets(1).Cells(i, 1).Value
                    dataB.Add i, ActiveWorkbook.Sheets(1).Cells(i, 2).Value
                    dataI.Add i, ActiveWorkbook.Sheets(1).Cells(i, 9).Value
                End If
            End If
        ElseIf StrComp(ActiveWorkbook.Sheets(1).Cells(i, 2).Value, "DUP") = 0 Then
            rowD = dataB.Keys()(dataB.Count - 1)
            If StrComp(ActiveWorkbook.Sheets(1).Cells(i - 1, 1).Value, "CBOD") = 0 Then
                dataN.Add rowD, "DUP-CBOD"
            ElseIf StrComp(ActiveWorkbook.Sheets(1).Cells(i - 1, 1).Value, "BOD") = 0 Then
                dataN.Add rowD, "DUP-BOD"
            End If
        Else
            dataB.Add i, ActiveWorkbook.Sheets(1).Cells(i, 2).Value
            dataI.Add i, ActiveWorkbook.Sheets(1).Cells(i, 9).Value
        End If
    Else
        If StrComp(ActiveWorkbook.Sheets(1).Cells(i, 1).Value, "DUP") = 0 Then
            rowD = dataB.Keys()(dataB.Count - 1)
            If StrComp(ActiveWorkbook.Sheets(1).Cells(i - 1, 1).Value, "CBOD") = 0 Then
                dataN.Add rowD, "DUP-CBOD"
            ElseIf StrComp(ActiveWorkbook.Sheets(1).Cells(i - 1, 1).Value, "BOD") = 0 Then
                dataN.Add rowD, "DUP-BOD"
            End If
        End If
    End If
Next i

' Open new spreadsheet
Set wb = Workbooks.Add("C:\Users\dalythe\documents\uploadtemp.xlsx")

ActiveWorkbook.Sheets(1).Cells(2, 2).Value = analysisDate
ActiveWorkbook.Sheets(1).Cells(2, 4).Value = analystInit
ActiveWorkbook.Sheets(1).Cells(3, 5).Value = batchNo

rowN = 4
For Each key In dataB.Keys
    If dataI.Exists(key) Then
        SrowN = CStr(rowN)
        If dataN.Exists(key) Then
            ActiveWorkbook.Sheets(1).Cells(SrowN, 1).Value = dataN(key)
        End If
        ActiveWorkbook.Sheets(1).Cells(SrowN, 2).Value = dataB(key)
        ActiveWorkbook.Sheets(1).Cells(SrowN, 3).Value = dataI(key)
        rowN = CInt(SrowN)
        rowN = rowN + 1
    End If
Next

ActiveWorkbook.SaveAs (newsheet & ".xlsx")

End Sub

---

哪一本是“有问题的”词典？isEmpty不等于“”。因此，不是“Not IsEmpty（dataRangeB（i，1））”而是“code dataRangeB（i，1）”。或者将

更改为
如果不是IsEmpty（dataRangeB（i，1）），则
为
如果Len（Trim（dataRangeB（i，1.Value）），则
有问题的字典是dataN。宏中的所有其他内容都有效，除了执行这部分代码外：
如果存在dataN.Exists（key），那么ActiveWorkbook.Sheets（1）.Cells（SrowN，1）.Value=dataN（key）结束，如果参考我添加的图像，检查是否存在key 65（如您在上面看到的，它在那里）语句“dataN（key）”在应返回DUP-CBOD值时返回值“”。