0019-Função para contar ocorrências de uma palavra num intervalo

O exemplo abaixo de UDF (Função Definida pelo Usuário), permite com que sejam contadas ocorrências de uma palavra no conjunto de todas as células fornecidas de um intervalo:

Function CONTARPALAVRAS(Intervalo As Range, Palavra As String) As Long
'Declarar variáveis
Dim Célula  As Range
Dim i       As Integer
'Zerar a contagem
CONTARPALAVRAS = 0
'Percorrer todas as células do intervalo
For Each Célula In Intervalo
    'Percorrer todos os caracteres da célula
    For i = 1 To Len(Célula)
        'Fazer a comparação sem diferenciar maiúsculas e minúsculas
        If UCase(Mid(Célula, i, Len(Palavra))) = UCase(Palavra) Then _
        CONTARPALAVRAS = CONTARPALAVRAS + 1
    Next i
Next Célula
Anúncios

In Excel We Trust

Marcado com: , ,
Publicado em Nível: Avançado
Um comentário em “0019-Função para contar ocorrências de uma palavra num intervalo
  1. José Augusto disse:

    Boa tarde! Tentei fazer a função e não havia dado certo, então vi que falta um “End If” antes da penúltima linha (“Next i”). Muito obrigado por tudo. Suas aulas têm me ajudado e ensinado muito. Deus o abençoe!

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: