Dante Amor respondió:
H o l a: Te anexo la macro Sub FiltroNumeros() 'Por.Dante Amor Dim nums() ActiveWindow.ScrollRow = 1 digs = "1234567890,.°|¬#$%&/()=[]{}_-<>'?¿!¡" For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If InStr(1, digs, Left(Cells(i, "A"), 1)) > 0 Then n...