Excel - видалення рядків з однаковим значенням

Проблема

Мені потрібна формула для вирішення цієї проблеми. Я хочу, щоб вона знаходила подібні клітини і видаляла ці клітини з робочого аркуша.

Ось приклад:

 Дата транзакції Дата посилання на операцію Опис Сума 1/25/2010 STD0182 13993 (108.16) 1/25/2010 STD0182 - Glenn D Smith 13933 - Q1 2010 773 99.00 1/25/2010 STD0182 - Glenn D Smith 13933 - Q1 2010 Податок 773 9.16 1/25/2010 STD0268 1974 (423.72) 1/25/2010 STD0268 - Консультативна служба 1974 - 1-го кварталу 2010 773 396.00 1/25/2010 STD0268 - Консультативна служба 1974 - 1-го кварталу 2010 року / 2010 STD0431 7206 (108.16) 1/25/2010 STD0431 - Плани тощо 7206 - Q1 2010 773 99.00 1/25/2010 STD0431 - Плани тощо 7206 - Q1 2010 Податок 773 9.16 1/25/2010 STD0690 16670 (107.66) 1/25/2010 STD0690 - Планування активів Sol 16670 - Q1 2010 773 99.00 1/25/2010 STD0690 - Планування активів Sol 16670 - Q1 2010 Податок 773 8.66

Тому я хочу, щоб формула шукала або подібні STD # (STD0182 - Transaction Ref) і видаляла, якщо вони містять один STD #.

Рішення

Не зовсім зрозуміло про цю частину "STD0182 - Transaction Ref"

Припущення.

1. Ви хочете видалити рядок, якщо його значення стовпця B буде таким же, як значення в рядку над ним

2. Дані сортуються по колонці В

3. Колонка B Не містить пусту клітинку

 Sub deleteDups () Dim myRow As Long sTRef As String sTRef = Клітинки (2, 2) myRow = 3 Do While (Клітинки (myRow, 2) "") Якщо (sTRef Cells (myRow, 2)) Тоді sTRef = Cells myRow, 2) myRow = myRow + 1 Ще рядки (myRow) .Select Selection.Delete Shift: = xlUp Закінчити, якщо Loop End Sub