Método Application.Intersect (Excel)

Devuelve un objeto Range que representa la intersección rectangular de dos o más intervalos. Si se especifican uno o varios rangos de una hoja de cálculo diferente, se devuelve un error.

Sintaxis

expresión. Intersect (Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27 , Arg28, Arg29, Arg30)

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Arg1	Obligatorio	Range	Rangos de intersección. Se deben especificar al menos dos objetos Range.
Arg2	Obligatorio	Range	Rangos de intersección. Se deben especificar al menos dos objetos Range.
Arg3–Arg30	Opcional	Variant	Intervalo de intersección.

Valor devuelto

Rango

Ejemplo:

En el ejemplo siguiente se selecciona la intersección de dos rangos con nombre, rg1 y rg2, en Sheet1. Si los rangos no se intersectan, se muestra un mensaje.

Worksheets("Sheet1").Activate 
Set isect = Application.Intersect(Range("rg1"), Range("rg2")) 
If isect Is Nothing Then 
 MsgBox "Ranges don't intersect" 
Else 
 isect.Select 
End If

En el ejemplo siguiente se comparan la propiedad Worksheet.Range , el método Application.Union y el método Intersect .

Range("A1:A10").Select                            'Selects cells A1 to A10.
Range(Range("A1"), Range("A10")).Select           'Selects cells A1 to A10.
Range("A1, A10").Select                           'Selects cells A1 and A10.
Union(Range("A1"), Range("A10")).Select           'Selects cells A1 and A10.
Range("A1:A5 A5:A10").Select                      'Selects cell A5.
Intersect(Range("A1:A5"), Range("A5:A10")).Select 'Selects cell A5.

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.