Classe ListRows (Excel VBA)

Uma coleção de todos os objetos ListRow no objeto ListObject especificado. Para usar uma variável de classe ListRows, ela primeiro precisa ser instanciada por exemplo

Dim lrs as ListRows
Set lrs = ActiveCell.ListObject.ListRows

For Each

Aqui está um exemplo de processamento dos itens ListRows em uma coleção.

Dim lstrw As ListRow
For Each lstrw In ActiveCell.ListObject.ListRows
	
Next lstrw

Add

Adiciona uma nova linha à tabela representada pelo ListObject especificado.

Se Position não for especificado, uma linha inferior será adicionada. Se AlwaysInsert não for especificado, as células abaixo da tabela serão deslocadas uma linha para baixo (equivale a especificar True).

Add (Position, AlwaysInsert)

Dim lstrw As ListRow
Set lstrw = ActiveCell.ListObject.ListRows.Add

Arguments

Optional arguments

Os seguintes argumentos são opcionais

Position (Integer) - Número inteiro. Especifica a posição relativa da nova linha.

AlwaysInsert (Boolean) - Especifica se os dados em células abaixo da última linha da tabela sempre devem ser deslocados quando a nova linha é inserida, mesmo que a linha abaixo dessa tabela esteja vazia. Se for True, as células abaixo da tabela serão deslocadas uma linha para baixo. Se false, se a linha abaixo da tabela estiver vazia, a tabela será expandida para ocupar essa linha sem deslocar as células abaixo dela, mas se a linha abaixo da tabela contiver dados, essas células serão deslocadas para baixo quando a nova linha for inserida.

Count

Retorna um valor Integer que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveCell.ListObject.ListRows.Count

Item

Retorna um único objeto de uma coleção.

Item (Index)

Index: O nome ou número de índice do objeto.

Dim lstrwItem As ListRow
Set lstrwItem = ActiveCell.ListObject.ListRows(Index:=1)