Я создаю уникальные коллекции из каждого столбца в моем листе под заголовками столбцов, используя словарь. Заголовки столбцов приведены в строке 1.VBA Словарь словарей?
Проблема заключается в том, что мои словари содержат уникальные элементы из предыдущих столбцов. например, если вызывать словарь из столбца 4, он содержит все уникальные элементы и заголовки из столбцов 1,2,3. Мне нужны только уникальные предметы из этой столбчатой колонны. Любая идея, как исправить этот код ?.
Sub cre_Dict()
Dim fulArr As Variant
Set d = CreateObject("scripting.dictionary")
With Sheets("Database")
fulArr = .Range("A1:IO27") 'assign whole table to array
For j = 1 To UBound(fulArr, 2) 'looping from 1st column to last column
For i = 2 To UBound(fulArr, 1) 'looping from row2 to last row
If Len(fulArr(i, j)) > 0 Then 'if not blank cell
d00 = d.Item(fulArr(i, j)) 'add to dictionary
End If
Next i
d(fulArr(1, j)) = d.keys 'create dictionary under column heading
Next j
End With
End Sub
Благодаря
Вы должны добавить некоторые комментарии, как для нас, так и самостоятельно; трудно точно сказать, что вы пытаетесь сделать здесь. –
Почти такой же код, что и некоторые предыдущие вопросы, нет четких объяснений, и вы все еще работаете с пустым словарем ... – R3uK
Как мой словарь пуст ?. d - глобальный объект. – Shan