XenoZ Gold Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Код: Sub TestDic() Dim wDic As Object Dim n As Object, c As Variant, a As Long, t As Variant       Set wDic = CreateObject("Scripting.Dictionary")     a = 0     t = Time     For Each n In Range(Cells(1, 1), Cells(Rows.Count, 1))         c = Cells(n.Row, 1).Value         If wDic.Exists(c) Then             a = a + 1         Else             wDic.Add Key:=c, Item:=""         End If     Next     t = Time - t     MsgBox "Duplicates: " & CStr(a) & vbCrLf & "Count: " & CStr(wDic.Count) & " of " & CStr(Rows.Count) & vbCrLf & "Time:" & Format(t, "hh:nn:ss")     Set wDic = Nothing End Sub Всего записей: 5445 | Зарегистр. 29-03-2006 | Отправлено: 15:26 03-08-2021

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA (часть 3)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование