Как установить размер динамического массива во время выполнения?

Question

Я удаляю дублированные строки из массива, и я почти уверен, что мне нужно использовать оператор Redim для динамического изменения размера массива, но я не могу заставить его работать правильно.

Вот что я попробовал:

Dim temp() as String
Dim vetOrg as Variant

vetOrg = Array(contRows)
ReDim vetOrg(1 To contRows)


'populates the array
For i = 1 To contRows
    vetOrg(i) = wsDeals.Cells(i + 1, 2).Value
Next i


 j = 1
    For i = 1 To contRows
        ReDim temp(1 To j)
        If vetOrg(i) <> vetOrg(i + 1) Then
            temp(j = j + 1) = vetOrg(i)
        End If
        temp(j = j + 1) = vetOrg(contRows - 1)
    Next i

Answer 1

С Scripting.Dictionary вам не нужно беспокоиться об изменении размера или поиске повторяющихся значений; Ключи словаря по своей сути уникальны:

Dim vetOrg As Scripting.Dictionary
Set vetOrg = New Scripting.Dictionary

For i = 1 To contRows
    vetOrg(wsDeals.Cells(i + 1, 2).Value) = i ' value is bogus, it's the key we want.
Next i

'done. vetOrg.Keys has the unique values.