Para contar o número de células preenchidas no Excel VBA, você pode usar a função COUNTA. Essa função conta o número de células em uma faixa que contém algum tipo de dado. Aqui está um exemplo de código que conta o número de células preenchidas em uma determinada coluna:
Sub contarcelulaspreenchidas()
Dim contador As Integer Dim ultima_linha As Long
' Define a coluna a ser verificada coluna = "A"
' Encontra a última linha da coluna ultima_linha = Range(coluna & Rows.Count).End(xlUp).Row
' Conta o número de células preenchidas na coluna contador = Application.WorksheetFunction.CountA(Range(coluna & "1:" & coluna & ultima_linha))
' Exibe o resultado na janela de mensagens MsgBox "O número de células preenchidas na coluna " & coluna & " é " & contador
End Sub
Este código define a coluna A como a coluna a ser verificada e encontra a última linha preenchida nessa coluna. Em seguida, ele usa a função COUNTA para contar o número de células preenchidas na coluna e exibe o resultado em uma mensagem na janela de mensagens.
Você pode alterar a coluna a ser verificada mudando a linha "coluna = "A"" para qualquer outra letra de coluna.