Classe ListColumns (Excel VBA)

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

Dim lcs as ListColumns
Set lcs = ActiveCell.ListObject.ListColumns

For Each

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

Dim lstcol As ListColumn
For Each lstcol In ActiveCell.ListObject.ListColumns
	
Next lstcol

Add

Adiciona uma nova coluna ao objeto de lista.

Se Position não for especificado, será adicionada uma nova coluna à extrema direita. Um nome é gerado automaticamente para a coluna. O nome da nova coluna pode ser alterado após a adição da coluna.

Add (Position)

Position: Número inteiro. Especifica a posição relativa da nova coluna que começa em 1. A coluna anterior nessa posição é deslocada para fora.

Dim lstcol As ListColumn
Set lstcol = ActiveCell.ListObject.ListColumns.Add()

Count

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

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

Item

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

Item (Index)

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

Dim lstcolItem As ListColumn
Set lstcolItem = ActiveCell.ListObject.ListColumns(Index:=1)