Como extrair dinamicamente uma lista de valores únicos de um intervalo de coluna no Excel?

Para um intervalo de coluna cujos valores mudam regularmente, e você sempre precisa obter todos os valores únicos do intervalo, independentemente de como ele tenha mudado. Como criar uma lista dinâmica de valores únicos? Este artigo mostrará como lidar com isso.

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

Como mostrado na captura de tela abaixo, você precisa extrair dinamicamente uma lista de valores únicos do intervalo B2:B9. Por favor, tente a seguinte fórmula de matriz.

1. Selecione uma célula em branco, como D2, insira a fórmula abaixo nela e pressione simultaneamente as teclas Ctrl + Shift + Enter. (B2:B9 é o dado da coluna do qual você deseja extrair os valores únicos, D1 é a célula acima onde sua fórmula está localizada)

=SEERRO(ÍNDICE($B$2:$B$9; CORRESP(0;CONT.SE($D$1:D1; $B$2:$B$9); 0));"")

2. Continue selecionando a célula D2, depois arraste a Alça de Preenchimento para baixo para obter todos os valores únicos do intervalo especificado.

Agora, todos os valores únicos no intervalo de coluna B2:B9 foram extraídos. Quando os valores neste intervalo mudarem, a lista de valores únicos será alterada dinamicamente imediatamente.

Extrair dinamicamente uma lista de valores únicos de um intervalo de coluna com código VBA

Você também pode extrair uma lista de valores únicos dinamicamente de um intervalo de coluna com o seguinte código VBA.

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA abaixo na janela 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 Sub

Observação: No código, D2 é a célula onde você localizará a lista de valores únicos. Você pode alterá-la conforme necessário.

3. Volte para a planilha, clique em Inserir > Formas > Retângulo. Veja a captura de tela:

4. Desenhe um retângulo na sua planilha, depois insira algumas palavras que você precisa exibir nele. Depois, clique com o botão direito do mouse e selecione Atribuir Macro no menu de clique com o botão direito. Na caixa de diálogo Atribuir Macro, selecione CreateUniqueList na caixa Nome da Macro e, em seguida, clique no botão OK. Veja a captura de tela:

5. Agora, clique no botão retângulo, uma caixa de diálogo Kutools para Excel aparece, por favor, selecione o intervalo que contém os valores únicos que você precisa extrair e, em seguida, clique no botão OK.

A partir de agora, você pode repetir a etapa 5 acima 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 figura dinamicamente em uma célula com base no valor da célula no Excel?
• Como criar um hiperlink dinâmico para outra planilha no Excel?