удаление строки с ячейкой, которая повторяется

[Aneli]

Возможно этот вопрос уже расматривался и я не внимательна, но подскажите пожалуйста макрос,который бы удалял строку, в которой есть ячейка с повторением. тобишь не вся строка повторяется. а только данные одной ячейки. к примеру:
0 5748756 22 87
0 6583098 22 78
0 6543098 21 78
1 5748756 21 87
по результатам макроса должна удалиться последняя строка. тобишь на повторения проверяется только один столбец, а удаляться -вся строка.
спасибо.(Еxel 2003)

[EducatedFool]

Наберите в поиске по разделу "удаление дубликатов" (или просто слово дубликатов)

Найдёте несколько десятков подобных макросов.

[Aneli]

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

Наберите в поиске по разделу "удаление дубликатов" (или просто слово дубликатов)

Найдёте несколько десятков подобных макросов.

подобных-да, они удаляют дубликаты строк. но либо я не так что то поняла, но в данном случае строки то не однаковые, тоесть фактически это не дубликат. повторяется только значение в одном столбце. объясните плиз в чем я ошибаюсь.

[doober]

файл на операционный стол

[Aneli]

вот примерный вид. в оригинале строк конечно больше. суть в том чтобы в столбце F удалились строки, которые имеют дубли ячеек F101-F105. спасибо .

[Dophin]

поясните фразу "в столбце F удалились строки", а лучше приложите пример строк на 20, и лист "хочу вот так"

[Aneli]

Есть первый список с необходимыми для работы данными-лист1(file-primer). и есть второй список-лист2, который содержит лишь один столбец. необходимо чтобы макрос с первого листа удалил строки, в ячейках которых в стоблце F имеются такие же данные, как в столбце А листа2.надеюсь так может быть понятней чего я хочу)))

[Dophin]

возможно, но лист2 в Вашем примере пустой

[Aneli]

каюсь. вот ,исправила. и добавила файлик -result -то что должно біть в результате

[Dophin]

Sub pp()
Dim i As Long
Dim iL As Long, il2 As Long
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Sheets("лист1") 'лист с базой
Set sh2 = Sheets("Лист2") ' лист со списком
iL = sh1.Cells(Rows.Count, 1).End(xlUp).Row
il2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row
For i = iL To 1 Step -1
If Not sh2.Range(sh2.Cells(1, 1), sh2.Cells(il2, 1)).Find(what:=sh1.Cells(i, 6), LookIn:=xlValues, lookat:=xlWhole) Is Nothing Then
sh1.Range(sh1.Cells(i, 1), sh1.Cells(i, 17)).Delete shift:=xlUp
End If
Next i
End Sub