Existem várias maneiras de contar células preenchidas no Excel VBA, dependendo do que você está tentando realizar. Aqui estão algumas opções:
Para contar o número de células preenchidas em uma única coluna, use o seguinte código VBA:
``` Dim i As Integer Dim cont As Integer
cont = 0
For i = 1 To Range("A" & Rows.Count).End(xlUp).RowIf Cells(i, "A") <> "" Then cont = cont + 1 Next i
MsgBox "O número de células preenchidas na coluna A é: " & cont ```
Este código conta o número de células preenchidas na coluna A e exibe o resultado em uma mensagem de aviso.
Se você precisa contar o número de células preenchidas em várias colunas, o método acima pode ser bastante trabalhoso. Uma maneira mais eficiente de fazer isso é usar a função CountA, que conta o número de células preenchidas em um intervalo:
``` Dim cont As Integer
cont = Application.WorksheetFunction.CountA(Range("A1:C10"))
MsgBox "O número de células preenchidas no intervalo A1:C10 é: " & cont ```
Este código conta o número de células preenchidas no intervalo A1:C10 e exibe o resultado em uma mensagem de aviso.
Se você precisa contar o número de células preenchidas em uma tabela, você pode usar o seguinte código VBA:
``` Dim tbl As ListObject Dim cont As Integer
Set tbl = ActiveSheet.ListObjects("Table1") cont = tbl.DataBodyRange.SpecialCells(xlCellTypeConstants).Count
MsgBox "O número de células preenchidas na tabela é: " & cont ```
Este código conta o número de células preenchidas na tabela chamada "Tabela1" e exibe o resultado em uma mensagem de aviso.
Independentemente de qual método você escolher, é importante ter em mente que contar células preenchidas pode ser complicado quando há fórmulas ou outros tipos de dados nas células. Se você precisar contar apenas células com valores específicos (por exemplo, células que contêm "sim" ou "não"), pode ser necessário usar uma fórmula ou condição if no seu código VBA para filtrar as células apropriadas.