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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de