Propriedade Range.Rows (Excel)
Retorna um objeto Range que representa as células no intervalo especificado.
expressão. Linhas
expressão Uma variável que representa um objeto de Intervalo.
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 someRange
Range 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 .
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
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.