Дообрый день, уважаемые форумчане
Ситуация следующая: пытаюсь извлечь список уникальних значений диапазона и присвоить его Имени (Names).
Извлекаю уникальные с помощью словаря (см. код), но вот не получаеться корректно передать значения с ".keys" в "Имя".
Прошу помочь
Ситуация следующая: пытаюсь извлечь список уникальних значений диапазона и присвоить его Имени (Names).
Извлекаю уникальные с помощью словаря (см. код), но вот не получаеться корректно передать значения с ".keys" в "Имя".
Код |
---|
Sub test1() Dim i%, s$ With CreateObject("scripting.dictionary") For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row If Not .exists(CStr(Cells(i, 3))) Then .Add (CStr(Cells(i, 3))), 1 Next 's = Join(.keys, ";") 's = "{" & s & "}" Names.Add Name:="test", RefersTo:=.keys End With 's = ThisWorkbook.Names("test").RefersTo 'Debug.Print s End Sub |