Comparando múltiples columnas en Excel y elimina dups

Tengo 3 columnas en Excel 2010 con direcciones de correo electrónico. Necesito poder restringir las 3 columnas para que solo tengan valores únicos. No necesariamente necesito fusionar los valores restantes en una sola columna, pero definitivamente necesito eliminar los duplicates. Encontré otra publicación que tenía un VB, pero no pareció funcionar. Eliminó solo unos pocos duplicates:

Sub removeDuplicates() Dim lastCol As Integer lastCol = 5 'col 5 is column E Dim wks As Worksheet Set wks = Worksheets("Sheet1") Dim searchRange As Range Set searchRange = wks.Range("A1:A" & wks.Cells(Rows.Count, "A").End(xlUp).Row) Dim compareArray As Variant Dim searchArray As Variant 'Get all values from Col A to search against compareArray = searchRange.Value For col = lastCol - 1 To 1 Step -1 'Set values to search for matches searchArray = searchRange.Offset(0, col - 1).Value 'Set values to last column to compare against compareArray = searchRange.Offset(0, col).Value For i = 1 To UBound(compareArray) If compareArray(i, 1) = searchArray(i, 1) Then 'Match found, delete and shift left Cells(i, col).Delete Shift:=xlToLeft End If Next i Next col End Sub 

¡Gracias!

Aquí es cómo propongo hacer esto si se trata de una tarea única que no tiene que hacer muy a menudo.

En lugar de tipear todo el process en detalle, hice un screencast de cómo lo hice (y el process completo me tomó apenas un minuto hacerlo).

La descripción rápida:
Necesitará agregar algunas columnas auxiliares temporales para valores únicos de cada list de correo electrónico (una para cada list), una columna de 'list fusionada' y luego una columna final. Filtre los correos electrónicos únicos usando la opción de filter 'Avanzado' una columna a la vez. Pegue esos valores en la columna temporal para esa list de correo electrónico y luego borre el filter. Repita hasta que haya revisado cada columna y cada columna temporal tenga los valores únicos en ella de cada list. Una vez que tenga los únicos de cada list, péguelos de uno en uno en la columna 'list combinada' (combinando los resultados en una larga list) y luego haga un filter único sobre eso. Copie / pegue los únicos de esa list en su columna final, borre el filter y listo.

Screencast está a continuación:

http://screencast.com/t/zL8VmUut

¡Aclamaciones!

Dado que la primera columna es la que ya contactó, cambie la primera columna por la segunda y en la 3 escriba un valor SÍ o NO si el correo electrónico se encontró en la segunda columna (las que ya contactó).

Fórmula.

 =IF(ISERROR(VLOOKUP(A2,$B$2:$B$11,1,FALSE)),"Not Contacted","Yes") 

Ejemplo

Como puede ver, el que tiene el estado Sí está en la list contactada, solo filtra el No contactado y tendrá una nueva list pendiente en la columna A. Simple.