Excel - Excluir linhas com o mesmo valor

Questão

Eu estou precisando de uma fórmula para resolver este problema. Quero que ele encontre células semelhantes e exclua essas células da planilha.

Aqui está uma amostra:

 ABCD Data de Transação Referência da Transação Descrição Quantidade 25/01/2010 STD0182 13993 (108.16) 25/1/2010 STD0182 - Glenn D Smith 13933 - 1T 2010 773 99, 00 25/01/2010 STD0182 - Glenn D Smith 13933 - 1T 2010 Imposto 773 9, 16 25/1/2010 STD0268 1974 (423.72) 25/1/2010 STD0268 - Assessoria Adv. 1974 - Q1-Q4 2010 773 396.00 1/25/2010 STD0268 - Assessoria Adv. 1974 - Q1-Q4 Imposto 2010 773 27, 72 1/25 / 2010 STD0431 7206 (108, 16) 25/1/2010 STD0431 - Just Plans Etc 7206 - 1T 2010 773 99, 00 25/01/2010 STD0431 - Just Plans Etc 7206 - 1T 2010 Imposto 773 9, 16 25/01/2010 STD0690 16670 (107, 66) 25/1/2010 STD0690 - Planejamento de Ativos Sol 16670 - Primeiro Trimestre de 2010 773 99, 00 25/01/2010 STD0690 - Planejamento de Ativos Sol 16670 - Primeiro Trimestre de 2010 Imposto 773 8, 66

Então, eu quero que a fórmula procure os STD # 's similares (STD0182 - Refaction Transaction) e exclua se eles contiverem o mesmo STD #.

Solução

Não é totalmente claro sobre esta parte "STD0182 - Ref Transaction"

Suposições.

1. Você deseja excluir uma linha se, seu valor da coluna B for igual ao valor da linha acima dela

2. Os dados são classificados na coluna B

3. Coluna B Não contém célula em branco

 Sub removeDups () Dim myRow Como Long Dim sTRef Como String sTRef = Células (2, 2) myRow = 3 Do While (Células (myRow, 2) "") If (sTref Células (myRow, 2)) Então sTRef = Células ( myRow, 2) myRow = myRow + 1 Else Rows (myRow) .Selecione Selection.Delete Shift: = xlUp End Se o Loop End Sub