ошибка при фильтрации

[motorway]

По-моему, здесь сравнивается уникальность строк между собой, то есть одинаковые ли они или нет. Все строки после 4-ой совпадают с ней, то есть не уникальны. 4-ая и остается, так как она отлична от остальных - уникальна. Уникальность в данном случае - это отличие по каким-то значениям во всех колонках. Если во всех колонках (от B до J) данные одинаковы, строки одинаковы. Ведь даже по колонке "Имя товара" она отлична от других!

Предположим, у Вас были бы 2 строки:
121 Соус для макарон Фирма 1 1 1 01.01.2009 1 2 3,00
121 Соус для пиццы Фирма 1 1 1 01.01.2009 1 2 3,00

Ведь видно, что они уникальны; то же было бы, если будет так:

121 Соус для макарон Фирма 1 1 1 01.01.2009 1 2 3,00
122 Соус для макарон Фирма 1 1 1 01.01.2009 1 2 3,00

[Screame]

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

[motorway]

Это определяет фильтр (оставляет уникальные строки). Если кроме их уникальности нужен другой критерий (наличие в ячейках чего-то и т.п.), все это можно сделать тоже. Но Вы можете объяснить, чем Вас не устраивает 4-ая строка, а 3-ая, к примеру, устраивает? Что там в ней такого? Пустая колонка артикул? Или нулевые значения? Вы можете выложить скриншот, чтобы я посмотрел, что в ней находится?

[Screame]

Хорошо тогда вот так:

[motorway]

Т.е. не устраивает последняя строка на листе 2, где одни нули и дата 00.01.1900, и нет артикула?

[Screame]

не устраивает!

[motorway]

Попробуйте изменить код на этот:

Private Sub Main()
    Application.ScreenUpdating = False
Range("B1:J1066").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
lastrow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
     For i = 2 To lastrow
    If (Trim(Cells(i, 2)) = "" Or Trim(Cells(i, 3)) = "" Or Cells(i,3)="0") Then
    Rows(i).Select
    Selection.EntireRow.Hidden = True
    
    End If
    Next i

ActiveSheet.UsedRange.Cells.SpecialCells(xlVisible).Copy
Sheets("Лист2").Select
ActiveSheet.Paste
    Application.ScreenUpdating = True
  End Sub

[Screame]

я не вижу изменений, а Вы?

[motorway]

Посмотрите на код (обновите эту страницу) и исправьте, если не так.

[Screame]

прошу извинить меня, просто устал, скопировал код и вставил не туда, жму на старт и нифига не получается, спасибо большое за помощь надеюсь что больше у меня с этим проблем не будет!