Para contar as linhas preenchidas em uma planilha do Excel usando VBA, você pode usar o seguinte código:
```VBA Function CountFilledRows(sht As Worksheet) As LongDim LastRow As LongDim i As LongDim FilledRows As Long
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row FilledRows = 0 For i = 1 To LastRowIf Not IsEmpty(sht.Range("A" & i)) Then FilledRows = FilledRows + 1End If Next i CountFilledRows = FilledRows End Function ```
Este código define uma função chamada CountFilledRows que recebe uma planilha do Excel como parâmetro e retorna o número de linhas preenchidas na primeira coluna dessa planilha.
O código começa definindo as variáveis LastRow, i e FilledRows. A variável LastRow é a última linha da planilha que contém um valor na coluna "A". A variável FilledRows é o número de linhas que contêm um valor na coluna "A". A variável i é um contador usado em um loop que percorre todas as linhas da planilha.
Em seguida, o código percorre todas as linhas da planilha usando um loop For. Para cada linha, ele verifica se a célula na coluna "A" está vazia usando a função IsEmpty. Se a célula não estiver vazia, ele adiciona 1 à variável FilledRows.
Finalmente, a função retorna o valor de FilledRows.
Para usar essa função em uma planilha do Excel, basta digitar a seguinte fórmula em uma célula:
=CountFilledRows(NomeDaPlanilha)
Substitua "NomeDaPlanilha" pelo nome da planilha que você deseja contar as linhas preenchidas.