Como extrair dinamicamente uma lista de valores únicos a partir de um intervalo numa coluna no Excel?
Num intervalo de coluna cujos valores mudam regularmente, precisa sempre de obter todos os valores únicos desse intervalo, independentemente das alterações efetuadas. Como criar uma lista dinâmica de valores únicos? Este artigo mostra-lhe exatamente como resolver esta situação.
Extrair dinamicamente uma lista de valores únicos de um intervalo de coluna com fórmula
Extrair dinamicamente uma lista de valores únicos de um intervalo de coluna com código VBA
Extrair dinamicamente uma lista de valores únicos de um intervalo de coluna com fórmula
Conforme ilustrado na imagem seguinte, precisa de extrair dinamicamente uma lista de valores únicos do intervalo B2:B9. Experimente a seguinte fórmula matricial.
1. Selecione uma célula vazia, por exemplo D2, introduza a fórmula seguinte e prima simultaneamente as teclas Ctrl+Shift+Enter (B2:B9 é o intervalo de dados da coluna do qual pretende extrair os valores únicos; D1 é a célula imediatamente acima da localização da sua fórmula).
=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),«»)
2. Mantenha a célula D2 selecionada e arraste a alça de preenchimento para baixo para obter todos os valores únicos do intervalo limitado.
Agora, todos os valores únicos no intervalo B2:B9 foram extraídos. Sempre que os valores nesse intervalo forem alterados, a lista de valores únicos será atualizada dinamicamente em tempo real.
Selecione e destaque facilmente todos os valores únicos num intervalo no Excel:
A utilidade Selecionar Células Duplicadas/Únicas do Kutools para Excel permite-lhe selecionar e destacar facilmente todos os valores únicos (incluindo as primeiras ocorrências de duplicados), apenas os valores que aparecem uma única vez ou os valores duplicados, conforme as suas necessidades — tal como ilustrado na imagem seguinte.
Transfira já o Kutools para Excel! (teste gratuito de 30 dias)
Extrair dinamicamente uma lista de valores únicos de um intervalo de coluna com código VBA
Também pode extrair dinamicamente uma lista de valores únicos de um intervalo de coluna com o seguinte código VBA.
1. Prima simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA seguinte na janela do Módulo.
Código VBA: Extrair uma lista de valores únicos de um intervalo
Sub CreateUniqueList()
Dim xRng As Range
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
xRng.Copy Range("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
For I = 1 To xLastRow2
If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then
ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
End If
Next
End SubNota: No código, D2 é a célula onde irá inserir a lista de valores únicos. Pode alterá-la conforme necessário.
3. Regresse à folha de cálculo e clique em Inserir > Formas > Retângulo. Veja a imagem:
4. Desenhe um retângulo na sua folha de cálculo, introduza nele o texto pretendido e, em seguida, clique com o botão direito do rato e selecione Atribuir Macro no menu de contexto. Na caixa de diálogo Atribuir Macro, selecione CreateUniqueList na caixa Nome da macro e clique no botão OK. Veja a imagem:
5. Agora, clique no botão retangular. Aparecerá uma caixa de diálogo Kutools para Excel, onde deverá indicar o intervalo que contém os valores únicos a extrair e, em seguida, clicar no botão OK.
A partir de agora, pode repetir o passo anterior 5 para atualizar automaticamente a lista de valores únicos.
Artigos relacionados:
- Como criar um calendário mensal dinâmico no Excel?
- Como inserir uma imagem ou imagem dinâmica numa célula com base no valor dessa célula no Excel?
- Como criar uma hiperligação dinâmica para outra folha no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos