Colección de citas famosas - Slogan de motivación - ¿Cómo obtiene Excel elementos únicos en una columna a través de VB?
¿Cómo obtiene Excel elementos únicos en una columna a través de VB?
La forma más rápida y sencilla es utilizar un diccionario.
El código y los comentarios son los siguientes:
Deputy Manager()
set DIC = createobject("scripting.Dictionary")' diccionario de enlace tardío.
arr = Range("A 1:A" Range("A65536"). end(3)."Row" copia todas las celdas no vacías de la columna A en la matriz arr.
For i = 1 al bucle UBound(arr)'
DIC(arr(I,1)) = ""' Poner todas las matrices de columnas A en un diccionario
Siguiente. i
[b1].resize(DIC.count,1) = application.translate(DICkeys) en la columna b
p>
Conector final