5 maneiras diferentes para encontrar/contar a última coluna usando VBA

Olá amigos,

Muitas vezes nos deparamos com a necessidade de contar as colunas que temos em nossas planilhas, em diversos momentos esta que parece ser uma tarefa simples para muitos torna-se algo muito difícil e embaraçoso.

Percebendo esta necessidade compartilho algumas maneiras de contarmos quantas colunas temos na planilha, lembrando que podem existir outras maneiras na qual aqui ainda não foram citadas, caso conheça outras maneiras pedimos que compartilhe conosco.

Abaixo temos 5 formas de conseguir saber quantas colunas temos em determinada planilha/folha de dados:

[codigo]

Sub Encontrar_qtd_colunas()

Dim Planilha As Worksheet
Dim Ultima_coluna As Long
Dim Linha As String

Linha = 1

Set Planilha = ThisWorkbook.Worksheets(Plan1.Name)

‘ Usando Ctrl + Shift + End
Ultima_coluna = Planilha.Cells(Linha, Planilha.Columns.Count).End(xlToLeft).Column

‘ Usando UsedRange
Ultima_coluna = Planilha.UsedRange.Columns.Count

‘ Usando intervalo de colunas de uma tabela
Ultima_coluna = Planilha.ListObjects(“Tabela1”).Range.Columns.Count

‘ Usando um intervalo nomeado
Ultima_coluna = Planilha.Range(“Meu_Intervalo_Nomeado”).Columns.Count

‘ Ctrl + Shift + Right (Selecionar a primeira célula do intervalo)
Ultima_coluna = Planilha.Range(“A1”).CurrentRegion.Columns.Count

End Sub
[/codigo]

Caso conheça mais alguma forma de fazer algo deste tipo sua colaboração será muito importante.

Fico no aguardo de seus comentários e sugestões.

Um abraço.

Douglas Godoy

Comentários