Neste artigo, criaremos uma função personalizada para contar os valores exclusivos no intervalo definido.
Os dados brutos para este exemplo consistem em números aleatórios nas linhas. Neste exemplo, queremos contar o número de números exclusivos em cada linha.
Criamos a função personalizada “CountUniqueValues” para encontrar a contagem de números únicos na linha. Esta função usa intervalo como entrada e retorna a contagem única de números.
Explicação lógica
Criamos a função personalizada “CountUniqueValues” para obter a contagem de números únicos. Nesta função personalizada, criamos o objeto do objeto de coleção. Este objeto de coleção é usado para criar a lista de números únicos. Assim que tivermos a lista de números únicos, obtemos a contagem de itens na coleção.
Explicação do código
Application.Volatile é usado porque será recalculado sempre que um valor de célula for alterado na pasta de trabalho.
On Error Resume Next é usado para tratar erros.
Siga abaixo para o código
Opção Explicit Função CountUniqueValues (InputRange As Range) As Integer Dim CellValue As Variant, UniqueValues As New Collection Application.Volatile 'For error Handling On Error Resume Next' Looping por toda a célula no intervalo definido For Each CellValue In InputRange UniqueValues.Add CellValue , CStr (CellValue) 'add the unique item Next' Retornando a contagem do número de valores exclusivos CountUniqueValues = UniqueValues.Count End Function
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail