Excel - удалить строки с одинаковым значением

вопрос

Мне нужна формула для решения этой проблемы. Я хочу, чтобы он находил похожие клетки и удалял их из листа.

Вот образец:

 ABCD Дата транзакции Ссылка на транзакцию Описание Сумма 25.01.2010 STD0182 13993 (108.16) 1/25/2010 STD0182 - Гленн Смит 13933 - первый квартал 2010 года 773 99.00 1/25/2010 STD0182 - Гленн Смит 13933 - первый квартал 2010 года налог 773 9.16 9.16 25.01.2010 STD0268 1974 (423, 72) 25.01.2010 STD0268 - Консультативная служба Adv 1974 - I квартал 2010 года 773 396, 00 1/25/2010 STD0268 - Консультационная служба Adv 1974 - I квартал 4 кв. 2010 Налог 773 27, 72 1/25 / 2010 STD0431 7206 (108.16) 25.01.2010 STD0431 - Justplan Etc 7206 - первый квартал 2010 года 773 99, 00 1/25/2010 STD0431 - Just планов Etc 7206 - первый квартал 2010 года налог 773 9.16 25.01.2010 STD0690 16670 (107, 66) 25.01.2010 STD0690 - Решение по планированию активов 16670 - первый квартал 2010 года 773 99.00 1/25/2010 STD0690 - Решение по планированию активов 16670 - первый квартал 2010 года Налог 773 8.66

Поэтому я хочу, чтобы формула искала похожие STD # (STD0182 - Transaction Ref) и удаляла, если они содержат один и тот же STD #.

Решение

Не совсем ясно об этой части "STD0182 - Transaction Ref"

Предположения.

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

2. Данные отсортированы по столбцу B

3. Столбец B не содержит пустую ячейку

 Sub removeDups () Dim myRow As Long Dim sTRef As String sTRef = Cells (2, 2) myRow = 3 Do While (Cells (myRow, 2) "") If (sTRef Cells (myRow, 2)) Тогда sTRef = Cells ( myRow, 2) myRow = myRow + 1 Else Row (myRow). Выбрать Selection.Delete Shift: = xlUp End If Loop End Sub