Estoy tratando de eliminar los duplicados y, después de eliminarlos, necesito desplazar las celdas hacia arriba. Lo siguiente funciona, pero desafortunadamente no cambia nada. Deja las filas vacías.
Alguien dijo que reemplazara Columns:=Array(1) con Columns:=1, pero eso no funcionó.
Sub Macro3() Range("A15").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.RemoveDuplicates Columns:=1, Header:=xlYes End SubParece que está seleccionando varias columnas y luego solo pasa una columna en el argumento de eliminación de duplicados. Aquí hay un ejemplo que elimina más de una columna, se duplica y se desplaza hacia arriba.
ActiveSheet.Range("A:C").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYesSi solo desea eliminar una columna, su código funciona menos xlToRight:
Range("A15").Select Range(Selection, Selection.End(xlDown)).Select Selection.RemoveDuplicates Columns:=1, Header:=xlYes