Вопрос : Уничтожать двойной входы в 2 по-разному листы

Здравствулте! everyone

I имеет лист Эксел с несколькими листов и я хотел был бы уничтожить двойные входы данные по automatically.


If, котор напечатаны на машинке в листе 1 они должны быть уничтожены в листе 2 если это будет same.

I теперь имеет следующий class= " lineNumbers " >

1 >



Приватное Sub Worksheet_Change (цель ByVal как ряд)

   Для каждого ChkRng в ActiveSheet.Range («CustomerShippedItaly»)
       Если Target.Address = ChkRng.Address после этого
           Для каждого DelRng в OpenItaly.Range («CustomerOpenItaly»)
               Если Target.Value = DelRng.Value после этого
                   DelRng.ClearContents
               Закончитесь если
           Затем
       Закончитесь если
   Затем
Закончите class= " ясное " >

But Sub

Thanks для вашего answers


class= 

Ответ : Уничтожать двойной входы в 2 по-разному листы

попытайтесь это,

Он использует колонку a только, и используемую находку быстро для того чтобы найти и уничтожить macthing рядки (один или больше) в OpenItaly

Быстрое Кодий находки основано на http://www.experts-exchange.com/A_29119.html

Приветственные восклицания

Дэйв

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28:

Приватное Sub Worksheet_Change (цель ByVal как ряд) Тусклый ws как рабочий лист Тусклое rng1 как ряд Тусклое rng2 как ряд Тусклое cel1 как ряд Если Application.Intersect (колонки («a»), цель) ничего после этого, то выходите подводная лодка С применением .ScreenUpdating = ложно Конец с Установите ws = листы («OpenItaly») Установите rng1 = ws. Ряд (ws. [a2], ws. Клетки (Rows.Count, «a»). Конец (xlUp)) Установите cel1 = rng1.Find (Target.Value, xlValues, xlWhole, xlByRows, ложные) Если не cel1 ничего после этого Установите rng2 = cel1 strFirstAddress = cel1.Address Сделайте Установите cel1 = rng1.FindNext (cel1) Установите rng2 = соединение (rng2.EntireRow, cel1) Закрепите петлеть пока strFirstAddress <> cel1.Address Закончитесь если Если не rng2 ничего после этого rng2.EntireRow.Delete Application.ScreenUpdating = True Подводная лодка конца