Propriedade Application.Rows (Excel)

Retorna um objeto Range que representa todas as linhas na planilha ativa. Se o documento ativo não for uma planilha, a propriedade Rows falhará. Objeto Range somente leitura.

Sintaxe

expressão. Linhas

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

Comentários

O uso dessa propriedade sem um qualificador de objeto é equivalente ao uso de ActiveSheet.Rows.

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 Range tiver duas áreas: A1:B2 e C3:D4, Selection.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. Nesse caso, faça um loop sobre cada área no intervalo, como mostrado no terceiro exemplo.

Exemplo

Este exemplo exclui a linha três da Planilha1.

Worksheets("Sheet1").Rows(3).Delete

Este exemplo exclui linhas da região atual da planilha onde o valor da célula um na linha é igual ao 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.

Worksheets("Sheet1").Activate 
areaCount = Selection.Areas.Count 
If areaCount <= 1 Then 
 MsgBox "The selection contains " & _ 
 Selection.Rows.Count & " rows." 
Else 
 i = 1 
 For Each a In Selection.Areas 
 MsgBox "Area " & i & " of the selection contains " & _ 
 a.Rows.Count & " rows." 
 i = i + 1 
 Next a 
End If

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.