Hugo Barreto

James Bond respondió: Prueba esta macro, las celdas en blanco son eliminadas en un solo paso Sub elimina_vacio() filas = Range("a" & Rows.Count).End(xlUp).Row col = Range("a6").currentregion.Columns.Count Set datos = Range("a6").Resize(filas, col) With datos .Sort...

James Bond respondió: Usa esta macro, solo cambia la celda a1 por aquella donde comiencen tus datos Option Base 1 Sub borrar_numeros() Set datos = Range("a1").CurrentRegion With datos f = .Rows.Count ReDim matriz(f, 1) x = 1 For i = 1 To .Rows.Count numero = .Cells(i, 1)...