Propriedade Range.Range (Excel)

Retorna um objeto Range que representa uma célula ou um intervalo de células.

Sintaxe

expressão. Intervalo (Célula1, Célula2)

expressão Uma variável que representa um objeto de Intervalo.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Cell1	Obrigatório	Variant	O nome do intervalo. Deve ser uma referência ao estilo A1 na linguagem da macro. Pode incluir o operador de intervalo (dois pontos), o operador de interseção (um espaço) ou o operador de união (uma vírgula). Além disso, pode incluir sinais de dólar, mas eles são ignorados. Utilize um nome definido localmente em qualquer parte do intervalo. Se você usar um nome, será considerado que o nome estará na linguagem da macro.
Cell2	Opcional	Variant	A célula no canto superior esquerdo ou no canto inferior direito do intervalo. Pode ser um objeto Range que contém uma única célula, uma coluna inteira ou uma linha inteira, ou pode ser uma cadeia de caracteres que nomeia uma única célula na linguagem da macro.

Comentários

Quando utilizada sem um qualificador de objeto, esta propriedade é um atalho para ActiveSheet.Range (devolve um intervalo da folha ativa; se a folha ativa não for uma folha de cálculo, a propriedade falha).

Quando aplicada a um objeto Range, a propriedade é relativa ao objeto Range. Por exemplo, se a seleção é a célula C3, Selection.Range("B1") retorna a célula D3, porque é relativa ao objeto Range retornado pela propriedade Selection. Por outro lado, o código ActiveSheet.Range("B1") sempre retorna a célula B1.

Exemplo

Este exemplo define o valor da célula superior esquerda do intervalo B2:C4 na Folha1 do livro ativo, ou seja, o da célula B2, para 3,14159.

With Worksheets("Sheet1").Range("B2:C4")
   .Range("A1").Value = 3.14159
End With

Este exemplo dá um ciclo nas quatro células no canto superior esquerdo do intervalo B2:Z22 na Folha1 do livro ativo. Se uma das células tiver um valor menor do que 0,001, o código substituirá esse valor por 0 (zero).

Public Sub TruncateSmallValues()
   Dim exampleRange As Excel.Range
   Set exampleRange = Worksheets("Sheet1").Range("B2:Z22") 

   Dim cell As Excel.Range
   For Each cell in exampleRange.Range("A1:B2") 
      If cell.Value < .001 Then 
         cell.Value = 0 
      End If 
   Next cell
End Sub

Este exemplo define o estilo do tipo de letra nas células B2:D6 na Folha1 do livro ativo como itálico. O exemplo usa a Sintaxe 2 da propriedade Range.

With Worksheets("Sheet1").Range("B2:Z22")
   .Range(.Cells(1, 1), .Cells(5, 3)).Font.Italic = True 
End With

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.