Ошибка выполнения 424 Словарь объекта не найден - PullRequest
Новая
       33

Ошибка выполнения 424 Словарь объекта не найден

0 голосов
/ 10 июня 2019

Я пытаюсь перебрать набор данных, добавляя ключи в словарь, чтобы определить, являются ли они дублирующимися записями.Однако при попытке проверить, существует ли ключ в словаре, я получаю ошибку времени выполнения 424

Я пытался перейти с раннего на позднее связывание, я ввел переменную 'Triton' для текущегомодуль.И я гарантировал, что все переменные объявлены.

Sub DupeCheckRec()

Dim TritonData As Variant
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
Dim tempArr()
Dim i As Long
Dim KeyVal As String

    TritonData = Triton.Sheets(1).UsedRange

    For i = 2 To UBound(TritonData, 1)

        KeyVal = TritonData(i, 2) & TritonData(i, 3) & TritonData(i, 5) & TritonData(i, 6) & TritonData(i, 7) & TritonData(i, 10) & TritonData(i, 20)

        If dict(KeyVal).Exists = True Then

            tempArr(i, 1) = TritonData(i, 2)
            tempArr(i, 2) = TritonData(i, 3)
            tempArr(i, 3) = TritonData(i, 5)
            tempArr(i, 4) = TritonData(i, 7)
        Else
            dict.Add Key, i
        End If

    Next i

End Sub

Ожидаемый результат - добавление любых дуплей в tempArr

...