eliminar aquellos numeros que se repiten mas de diez veces en una hoja

[jhon6666]

Se puede crear un codigo que elimine aquellos numeros que se repiten mas de diez veces en una hoja excel

 

[Adrian]

Hola, si se puede, pero sería bueno que subas un archivo, así identificar los números, si están en filas o en columnas, es decir ver su distribución en la hoja.

 

[jhon6666]

El rango de mis numeros van de a1:sx42

Hola, si se puede, pero sería bueno que subas un archivo, así identificar los números, si están en filas o en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Algo muy rudimentario, pero efectivo es hacerlo a través de sentencias repetitivas, lo que hará que se demore (según los recursos de la pc).

Sub EliminarNros()
Dim Celda As Range, Fila As...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jhon6666]

Algo muy rudimentario, pero efectivo es hacerlo a través de sentencias repetitivas, lo que hará que se demore (según los recursos de la pc).

Sub...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

quellas celdas donde el numero se repite mas de 10 veces en ese rango sin desplazar esa información a una columna

No te entiendo, si la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jhon6666]

no he probado el codigo aun
Pero este codigo

 

[jhon6666]

elimina las celdas de los numeros repetido dejando la celda vacia?

 

[jhon6666]

Muchas gracias funciona a la perfeccion

 

[Cacho R]

Hola! jhon (y Adrián). Adjunto otro enfoque:

Sub Eliminar_repetidos()
Dim Mat, Q%, i%, R%, j%, Dic, Rng As Range, Valor, iniTime!
iniTime = Timer
Set Dic =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jhon6666]

GRACIAS

 

[Cacho R]

GRACIAS

Tras haber recibido un código que te resuelve el tema en menos de 2 segundos, pudiste haber sido "más generoso": ¡Te faltó el Click...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Jajjjajaja... ¡Fuiste vos más rápido dando el Click que yo enviando el mensaje!... Jajjjjajaja