Список !!!

[Rom213]

Народ подскажите пожалуста, есть вопросик: существует файл со списком который нужно отсортировать и убрать уникальные значения, все бы ничего да только но мешает. Вся проблема в том что список постоянно меняется + данные необходимо разместить на другом листе, что бы на на чальном это никак не отобразилось.

[KL]

Может что-нибудь такое (в модуль первого листа):

Код: Выделить всё

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
   
    Dim Dest As Range
    Set Dest = Sheets(2).[A1]
   
    Dest.CurrentRegion.ClearContents
   
    Range([A1], [A65536].End(xlUp)).Resize(, 2).AdvancedFilter _
        Action:=xlFilterCopy, _
        CopyToRange:=Dest, _
        Unique:=True
   
    With Dest.CurrentRegion
        .Sort Key1:=Dest
        .EntireColumn.AutoFit
    End With
End Sub

[Rom213]

а не подскажете как удалить от туда допустим 0 значения.

[KL]

А что значит "удалить...0 значения"???

а. стереть нули превратив их в пустые ячейки
б. удалить строки, где есть хоть одна ячейка с 0
в. удалить строки, где есть 2 ячейки с 0
г. удалить строки, где есть хоть одна пустая ячейка
д. другое

[Rom213]

скорее всего убрать строки в которых храняться 0 значения(либо же значения <0 , то есть отрицательные): допустим ячейка с16 и d16.

Приношу извинения за неточность.