Propriedade Range.Rows (Excel)

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

Sintaxe

expressão. Linhas

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

Comentários

Para devolver uma única linha, utilize a propriedade Item ou inclua, de forma equivalente, um índice entre parênteses. Por exemplo, e Selection.Rows(1)Selection.Rows.Item(1) devolvem a primeira linha da seleção.

Quando aplicada a um objeto Intervalo que é uma seleção múltipla, esta propriedade devolve linhas apenas da primeira área do intervalo. Por exemplo, se o objeto someRangeIntervalo tiver duas áreas (A1:B2 e C3:D4),someRange.Rows.Count devolve 2 e não 4. Para usar essa propriedade em um intervalo que possa conter uma seleção múltipla, teste Areas.Count para determinar se o intervalo é uma seleção múltipla. Se for, crie um loop sobre cada área do intervalo, como mostra o terceiro exemplo.

O intervalo retornado pode estar fora do intervalo especificado. Por exemplo, Range("A1:B2").Rows(5) retorna as células A5:B5. Para obter mais informações, veja a propriedade Item .

Utilizar a propriedade Linhas sem um qualificador de objeto é equivalente a utilizar ActiveSheet.Rows. Para obter mais informações, consulte a propriedade Folha de Cálculo.Linhas .

Exemplo

Este exemplo elimina o intervalo B4:Z4 na Folha1 do livro ativo.

Worksheets("Sheet1").Range("B2:Z44").Rows(3).Delete

Este exemplo elimina linhas na região atual na folha de cálculo um dos livros ativos em que o valor da célula um na linha é o mesmo que o valor da célula um na linha anterior.

For Each rw In Worksheets(1).Cells(1, 1).CurrentRegion.Rows
   this = rw.Cells(1, 1).Value 
   If this = last Then rw.Delete 
   last = this 
Next

Este exemplo exibe o número de linhas na seleção da Planilha1. Se mais de uma área for selecionada, o exemplo fará o loop por cada área.

Public Sub ShowNumberOfRowsInSheet1Selection
   Worksheets("Sheet1").Activate 
   
   Dim selectedRange As Excel.Range
   Set selectedRange = Selection
   
   Dim areaCount As Long
   areaCount = Selection.Areas.Count 
   
   If areaCount <= 1 Then 
      MsgBox "The selection contains " & _ 
             Selection.Rows.Count & " rows." 
   Else 
      Dim areaIndex As Long
      areaIndex = 1 
      For Each area In Selection.Areas 
         MsgBox "Area " & areaIndex & " of the selection contains " & _ 
                area.Rows.Count & " rows." 
         areaIndex = areaIndex + 1 
      Next 
   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.