Hacer referencia a varios rangos

Al usar el método adecuado, puede hacer referencia a varios rangos fácilmente. Use los métodos Range y Union para hacer referencia a cualquier grupo de rangos. Use la propiedad Areas para hacer referencia al grupo de rangos seleccionado en una hoja de cálculo.

Usar la propiedad Range

Haga referencia a varios rangos con la propiedad Rango insertando comas entre dos o más referencias. El ejemplo siguiente borra el contenido de tres rangos en Hoja1.

Sub ClearRanges() 
 Worksheets("Sheet1").Range("C5:D9,G9:H16,B14:D18"). _ 
 ClearContents 
End Sub

Los rangos con nombre facilita el uso de la propiedad Range con varios rangos. El siguiente ejemplo funciona cuando los tres rangos con nombre están en la misma hoja.

Sub ClearNamed() 
 Range("MyRange, YourRange, HisRange").ClearContents 
End Sub

Usar el método Union

Puede combinar varios rangos en un objeto Range utilizando el método Union. El siguiente ejemplo crea un objeto Range denominado myMultipleRange, lo define como A1:B2 y C3:D4 y, después, asigna el formato de negrita a los rangos combinados.

Sub MultipleRange() 
 Dim r1 As Range, r2 As Range, myMultipleRange As Range 
 Set r1 = Sheets("Sheet1").Range("A1:B2") 
 Set r2 = Sheets("Sheet1").Range("C3:D4") 
 Set myMultipleRange = Union(r1, r2) 
 myMultipleRange.Font.Bold = True 
End Sub

Usar la propiedad Areas

Use la propiedadAreas para hacer referencia al rango seleccionado o a la colección de rangos de una selección de varias áreas. El siguiente procedimiento cuenta las áreas de la selección. Si existe más de un área, se muestra un mensaje de advertencia.

Sub FindMultiple() 
 If Selection.Areas.Count > 1 Then 
 MsgBox "Cannot do this to a multiple selection." 
 End If 
End Sub

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.