Range.Propriedade das linhas (Excel)

• 05/11/2019
• 2 minutos para ler
• ul>
• o
• M
• O
• k
• K
• +2

Retorna um objecto de alcance que representa as linhas no alcance especificado.

Sintaxe

expressão.linhas

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

Observações

Para devolver uma única linha, utilizar a propriedade Item ou incluir de forma equivalente um índice entre parênteses. Por exemplo, tanto Selection.Rows(1) como Selection.Rows.Item(1) devolver a primeira linha da selecção.

Quando aplicada a um objecto de Intervalo que seja uma selecção múltipla, esta propriedade devolve linhas apenas da primeira área do intervalo. Por exemplo, se o objecto Range someRange tiver duas áreas-A1:B2 e C3:D4-,someRange.Rows.Count devolve 2, e não 4. Para utilizar esta propriedade num intervalo que pode conter uma selecção múltipla, testar Áreas.Contagem para determinar se o intervalo é uma selecção múltipla. Se for, faça um laço sobre cada área da gama, como mostrado no terceiro exemplo.

A gama devolvida pode estar fora da gama especificada. Por exemplo, Range("A1:B2").Rows(5) devolve células A5:B5. Para mais informações, ver a propriedade Item.

Usar a propriedade Linhas sem um qualificador de objecto é equivalente a usar ActiveSheet.Rows. Para mais informações, ver a propriedade Worksheet.Rows.

Exemplo

Este exemplo elimina o intervalo B5:Z5 na Folha1 da pasta de trabalho activa.

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

Este exemplo elimina linhas na região actual da folha de trabalho uma da pasta de trabalho activa onde 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 mostra o número de linhas na selecção da Folha1. Se for seleccionada mais do que uma área, o exemplo faz loops através de 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 IfEnd Sub

Suporte e feedback

Deixe perguntas ou feedback sobre o Office VBA ou esta documentação? Por favor, consulte o apoio e feedback do Office VBA para orientação sobre as formas como pode receber apoio e fornecer feedback.