Если убирать дубли не из большого количества столбцов, то можно словарем [vba]
Код
Sub tt() Set slov = CreateObject("Scripting.Dictionary") With Range("Diap_") For Row = 1 To .Rows.Count Key = .Cells(Row, 1).Value Item = .Cells(Row, 2).Value slov.Item(Key) = Item 'при совпадении первое значение заменяется вторым Next End With End Sub
[/vba] Если много, то в Итем можно собирать остальные столбцы, а потом их разбирать. Но способ Славика мне больше нравится, я и сам им иногда пользуюсь
Если убирать дубли не из большого количества столбцов, то можно словарем [vba]
Код
Sub tt() Set slov = CreateObject("Scripting.Dictionary") With Range("Diap_") For Row = 1 To .Rows.Count Key = .Cells(Row, 1).Value Item = .Cells(Row, 2).Value slov.Item(Key) = Item 'при совпадении первое значение заменяется вторым Next End With End Sub
[/vba] Если много, то в Итем можно собирать остальные столбцы, а потом их разбирать. Но способ Славика мне больше нравится, я и сам им иногда пользуюсь_Boroda_
Значений в таблице от 16 000 до 50 000. Не знаю, много это или не очень. Столбцов - 4. Для себя сделал заметку: сделать дополнительный пронумерованный столбец (1,2,3,4,5......), его легко перевернуть, удалить дубли и перевернуть обратно. Вполне возможно, что Славик это и предлагал. Но в макрос пока ещё это не воплощал. И кажется, что способ со словарём будет более корректным.
Значений в таблице от 16 000 до 50 000. Не знаю, много это или не очень. Столбцов - 4. Для себя сделал заметку: сделать дополнительный пронумерованный столбец (1,2,3,4,5......), его легко перевернуть, удалить дубли и перевернуть обратно. Вполне возможно, что Славик это и предлагал. Но в макрос пока ещё это не воплощал. И кажется, что способ со словарём будет более корректным.emkub
Сколько в высоту - это без разницы (в особенности для словаря). Для словаря важно сколько в ширину и по скольким столбцам удаляем дубликаты. В идеале - если по всем, тогда Итемы вообще не нужны.
И да, Славик именно об этом говорил (а я поддакивал)
Сколько в высоту - это без разницы (в особенности для словаря). Для словаря важно сколько в ширину и по скольким столбцам удаляем дубликаты. В идеале - если по всем, тогда Итемы вообще не нужны.
И да, Славик именно об этом говорил (а я поддакивал)_Boroda_