Rango incluido en otro rango

Tengo un rango de celdas que llamo "XXX" el cual contiene por decir algo las celdas (A1, A2, A3) y otro que llamo "YYY" el cual contiene las celdas (A2, B2), como se puede ver, comparten la celda A2, en un código de macro hago lo siguiente.

Range("XXX,YYY").select

Selection.Name = "ZZZ"

m = Range("ZZZ").Cells.Count

Lo anterior me da como resultado que m = 5, cuando en realidad son 4 celdas. Entonces en otra variable "n" guarde la dirección del rango y me doy cuenta que repite la celda "A2", quedando asi n="$A$1,$A$2,$A$3,$A$2,$B$2".

Lo que yo quiero saber es como hacer para que este nuevo rango "ZZZ" solo tenga en cuenta una vez la celda A2, la repetida. Pues necesito saber la cantidad real de celdas en el rango, porque un loop depende de ello, y de la manera en que esta el proceso entra en un loop infinito

Respuesta
1

Si solo necesitas saber la cantidad de celdas estas líneas agregadas te servirán:

Range("XXX,YYY").select
Selection.Name = "ZZZ"
m = Range("ZZZ").Cells.Count

n = Intersect(Range("XXX"), Range("YYY")).Count
dif = m - n



Añade tu respuesta

Haz clic para o

Más respuestas relacionadas