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