Colección de citas famosas - Slogan de motivación - EXCEL utiliza funciones y VBA para encontrar valores únicos y duplicados en múltiples filas y columnas.

EXCEL utiliza funciones y VBA para encontrar valores únicos y duplicados en múltiples filas y columnas.

Si el contenido de sus datos está en la hoja 1, cree un botón de comando en la hoja 1, haga doble clic para copiar el código a continuación, haga clic en el botón, la columna A de la hoja 2 mostrará el contenido de cada celda en la hoja 1 y la columna B mostrará el tiempo correspondiente. , a pesar de que las 60.000 filas de la tabla se llenaron con datos en 1 minuto.

¿Privado? ¿Sub? CommandButton1_Click()

¿Activado? ¿error? CV? Entonces

¿atenuado? ¿dic? ¿Como? Objetivo

¿Oscuro? ¿Rng? ¿Como? Alcance

¿Configuración? ¿dic? =?CreateObject(" scripting . diccionario ")

¿Para qué? ¿Cada? ¿Rng? ¿existir? Hoja Activa. Ámbito de uso

¿Y si? ¿Rng? ¿Es gt? ""?Entonces

dic(valor Rng.)? =?dic(valor.Rng)? ?1

¿Fin? Si

entonces

¿qué usar? este libro de trabajo. Hoja de trabajo("Hoja2")

. columna("a:b"). Borrar contenido

. rango("a1"). cambiar el tamaño (dic.count,?1)?=?aplicar. Transponer(dic.keys)

. rango(" b1 "). cambiar el tamaño (dic.count,?1)?=?aplicar. Transponer(dic.items)

¿Fin? ¿Con

el final? Submarino