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 retornar uma única linha, use a propriedade Item ou inclua equivalentemente um índice em parênteses. Por exemplo, ambos Selection.Rows(1) e Selection.Rows.Item(1) retornam a primeira linha da seleção.

Quando aplicada a um objeto Range que é uma seleção múltipla, essa propriedade retorna linhas apenas da primeira área do intervalo. Por exemplo, se o objeto someRangeRange tiver duas áreas: A1:B2 e C3:D4,someRange.Rows.Count retornará 2, 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, consulte a propriedade Item .

Usar a propriedade Rows sem um qualificador de objeto é equivalente ao uso de ActiveSheet.Rows. Para obter mais informações, consulte a propriedade Worksheet.Rows .

Exemplo

Este exemplo exclui o intervalo B4:Z4 na Planilha1 da pasta de trabalho ativa.

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

Este exemplo exclui linhas na região atual na planilha de uma das pastas de trabalho ativas 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.