Приватное 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
Подводная лодка конца
|