Удаление одинаковых строк на листе Excel 2003

[vfv]

Всё! Удаляет.
Осталось убрать пустую строку.
Посмотри вложение.

[vfv]

Разобрался сам!
Смотреть вложение.
Можно сделать ещё удаление одинаковых диапазонов,
идущих вподряд с разрывом в одну строку?
Пример во вложении.

[vfv]

Сообщение от vfv

Разобрался сам!
Смотреть вложение.
Можно сделать ещё удаление одинаковых диапазонов,
идущих вподряд с разрывом в одну строку?
Пример во вложении.

Так всётаки возможно удаление одинаковых диапазонов,
идущих вподряд вниз с разрывом в одну строку?Оставлять нужно из одинаковых по одному.

[VictorM]

Вопрос в тему, хотя у меня немного другая задача.
Найти на одном листе код, который присутствует на другом листе и удалить строку на этом листе.
У меня-то оно сделано, но сделано циклом, смотрит код в столбце на одном листе, сравнивает с кодом на втором, если находит такой - удаляет строку.
Но, как уже говорилось, цикл - жутко медленная вешь.
Может можно решить мою задачу как-то по другому?
Спасибо.
p.s. Списки на первом и втором листе формируются программно, и могут содержать разное кол-во строк.

[Hugo121]

Так вот один в один: http://www.planetaexcel.ru/forum.php?thread_id=23700
Там я правда тоже делал перебором, но в массивах, и удаление строк по одной, а не сразу весь Union. Но зато на больших объёмах не глючит. А Union можно и встроить, если доли секунды важны, и не нужно удялять более 1000 строк.
Хотя 1000 - это не проверено, но 4000 уже не объединилось.

[VictorM]

Так вот один в один

Да, именно оно!))
Спасибо!

[ВЭдуардВ]

Сообщение от SAS888

Посмотрите вложение.

Искал что то подобное и нашел, но вот в версии с выбором диапазона более подходящее!!! Если можно выложите пример с версией выбора диапазона и с удалением дублеров. Заранее Спасибо

[SAS888]

пример с версией выбора диапазона и с удалением дублеров.

Можно так:

Sub Main()
    Dim x As Range, y As New Collection, z As Range, i As Long, a(), s As String
    Set z = Application.InputBox("Ввод/выбор", "Диапазон", Type:=8)
    If z.Count = 1 Then Exit Sub Else a = z.Value
    For i = 1 To UBound(a, 1)
        s = Join(Application.Index(a, i, 0), "|")
        On Error Resume Next: y.Add s, s
        If Err <> 0 Then
            If x Is Nothing Then Set x = z.Rows(i) Else Set x = Union(x, z.Rows(i))
            On Error GoTo 0
    End If: Next: x.EntireRow.Delete
End Sub

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

[Hom_1985]

Сообщение от SAS888

Можно так:

Sub Main()
    Dim x As Range, y As New Collection, z As Range, i As Long, a(), s As String
    Set z = Application.InputBox("Ввод/выбор", "Диапазон", Type:=8)
    If z.Count = 1 Then Exit Sub Else a = z.Value
    For i = 1 To UBound(a, 1)
        s = Join(Application.Index(a, i, 0), "|")
        On Error Resume Next: y.Add s, s
        If Err <> 0 Then
            If x Is Nothing Then Set x = z.Rows(i) Else Set x = Union(x, z.Rows(i))
            On Error GoTo 0
    End If: Next: x.EntireRow.Delete
End Sub

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

Здравствуйте. А не могли бы вы подсказать для чего здесь используется коллекция y

[Hugo121]

If Err <> 0 Then -> значит не добавилось в коллекцию -> значит повтор -> значит добавляем в диапазон для удаления.

Но на большом количестве удаляемых будут тормоза именно при внесении в Union.