Propriedade Range.Cells (Excel)

Retorna um objeto Range que representa as células no intervalo especificado.

Observação

Interessado em desenvolver soluções que ampliem a experiência do Office em várias plataformas? Confira o novo modelo de Suplementos do Office. Os suplementos do Office ocupam um pequeno espaço em comparação com os suplementos e as soluções do VSTO, e você pode criá-los usando quase qualquer tecnologia de programação da Web, como o HTML5, JavaScript, CSS3 e XML.

Sintaxe

expressão.Células

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

Comentários

O valor de retorno é um Intervalo que consiste em células únicas, que permite usar a versão do Item com dois parâmetros e permite que loops For Each iterem sobre células únicas.

Como o membro padrão do Intervalo encaminha chamadas com parâmetros para a propriedade Item, você pode especificar o índice de linha e de coluna logo após a palavra-chave Células em vez de uma chamada explícita para Item.

Usar Células sem um qualificador de objeto é equivalente a ActiveSheet.Cells.

Exemplo

Este exemplo define o estilo de fonte para as células B2:D6 na Planilha1 da pasta de trabalho ativa como itálico.

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

Este exemplo examina uma coluna de dados chamada myRange. Se uma célula tiver o mesmo valor que a célula imediatamente anterior a ela, o exemplo exibirá o endereço da célula que contém os dados duplicados.

Set r = Range("myRange") 
For n = 2 To r.Rows.Count 
    If r.Cells(n-1, 1) = r.Cells(n, 1) Then 
        MsgBox "Duplicate data in " & r.Cells(n, 1).Address 
    End If 
Next

Este exemplo demonstra como Células altera o comportamento do membro Item.

Public Sub PrintRangeAdresses
   Dim columnsRange As Excel.Range
   Set columnsRange = ThisWorkBook.Worksheets("exampleSheet").Range("B2:Z100").Columns
   
   Debug.Print columnsRange.Item(2).Address         'Prints "$C$2:$C$100" 
   Debug.Print columnsRange.Cells.Item(2).Address   'Prints "$C$2" 
   Debug.Print columnsRange.Cells.Item(2,1).Address 'Prints "$B$3"   
End Sub

Este exemplo demonstra como Células altera o comportamento de enumeração.

Public Sub PrintAllRangeAdresses
   Dim columnsRange As Excel.Range
   Set columnsRange = ThisWorkBook.Worksheets("exampleSheet").Range("B2:C3").Columns
   
   Dim columnRange As Excel.Range
   For Each columnRange In columnsRange
      Debug.Print columnRange.Address   'Prints "$B$2:$B$3", "$C$2:$C$3"
   Next
   
   Dim cell As Excel.Range
   For Each cell In columnsRange.Cells
      Debug.Print cell.Address          'Prints "$B$2", "$C$2", "$B$3", "$C$3"
   Next  
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.