Fazer referência a vários intervalos

Usando o método apropriado, você pode facilmente se referir a vários intervalos. Use os métodos Range e Union para referir-se a qualquer grupo de intervalos. Use a propriedade Areas para referir-se ao grupo de intervalos selecionado em uma planilha.

Usar a propriedade Range

Consulte vários intervalos com a propriedade Range inserindo vírgulas entre duas ou mais referências. O exemplo a seguir limpa o conteúdo de três intervalos na Planilha1.

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

Os intervalos nomeados tornam o uso da propriedade Range mais fácil ao trabalhar com vários intervalos. O exemplo seguinte funciona quando todos os três intervalos nomeados se encontram na mesma planilha.

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

Usar o método Union

Você pode combinar vários intervalos em um objeto Alcance usando o método União. O exemplo seguinte cria um objeto Range chamado myMultipleRange, define-o com os intervalos A1:B2 e C3:D4 e, em seguida, formata com negrito os intervalos 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 a propriedade Areas

Use a propriedade Areas para fazer referência ao intervalo selecionado ou à coleção de intervalos em uma seleção de várias áreas. O procedimento seguinte conta as áreas da seleção. Se houver mais de uma área, uma mensagem de aviso será exibida.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.