Propriedade Range.Range (Excel)

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

Sintaxe

expressão. Intervalo (Cell1, Cell2)

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. Use um nome definido local 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 usada sem um qualificador de objeto, essa propriedade é um atalho para ActiveSheet.Range (ela retorna um intervalo da planilha ativa; se a planilha ativa não for uma planilha, a propriedade falhará).

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 Planilha1 da pasta de trabalho ativa, ou seja, a da célula B2, para 3,14159.

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

Este exemplo faz loops nas quatro células no canto superior esquerdo do intervalo B2:Z22 na Planilha1 da pasta de trabalho ativa. 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 de fonte nas células B2:D6 na Planilha1 da pasta de trabalho ativa 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.