Como criar uma lista de valores únicos em várias planilhas no Excel?

Ao trabalhar com dados distribuídos em várias planilhas no Excel, você pode precisar consolidar as informações e gerar uma lista de valores únicos. Embora o Excel não ofereça um recurso embutido direto para essa tarefa, existem vários métodos para alcançá-la. Este artigo irá guiá-lo por três abordagens práticas para criar uma lista de valores únicos a partir de várias planilhas.

Criar uma lista de valores únicos a partir de várias planilhas

• Com código VBA
• Usando o Assistente AI do KUTOOLS
• Com Fórmula (Excel 365)

Criar uma lista de valores únicos a partir de várias planilhas com código VBA

Para listar todos os valores únicos de todas as planilhas, o seguinte código VBA pode ajudá-lo, por favor, faça o seguinte:

1. Pressione e segure as teclas "ALT + F11" para abrir a janela "Microsoft Visual Basic for Applications".

2. Clique em "Inserir" > "Módulo", e cole a seguinte macro na Janela do Módulo.

Código VBA: Criar uma lista de valores únicos a partir de várias planilhas:

Sub SheelsUniqueValues()
Dim xObjNewWS As Worksheet
Dim xObjWS As Worksheet
Dim xStrAddress As String
Dim xIntRox As Long
Dim xIntN As Long
Dim xFNum As Integer
Dim xMaxC, xColumn As Integer
Dim xR As Range
xStrName = "Unique value"
Application.ScreenUpdating = False
xMaxC = 0
Application.DisplayAlerts = False
For Each xObjWS In Sheets
    If xObjWS.Name = xStrName Then
        xObjWS.Delete
        Exit For
    End If
Next
Application.DisplayAlerts = True
For xFNum = 1 To Sheets.Count
    xColumn = Sheets(xFNum).Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xMaxC < xColumn Then
        xMaxC = xColumn
    End If
Next xFNum
Application.DisplayAlerts = True
Set xObjNewWS = Sheets.Add(after:=Sheets(Sheets.Count))
xObjNewWS.Name = xStrName
For xColumn = 1 To xMaxC
    xIntN = 1
    For xFNum = 1 To Sheets.Count - 1
        Set xR = Sheets(xFNum).Columns(xColumn)
        If TypeName(Sheets(xFNum).Columns(xColumn).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)) <> "Nothing" Then
            xIntRox = xR.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            Sheets(xFNum).Range(Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address).Copy
            Cells(xIntN, xColumn).PasteSpecial xlValues
            xIntN = xIntRox + xIntN + 1
        End If
    Next xFNum
    If xIntRox - 1 > 0 Then
    xIntRox = xIntN - 1
    xStrAddress = Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address
    Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Range(xStrAddress).Copy
    Cells(1, xColumn + 1).PasteSpecial xlValues
    Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    Columns(xColumn).Delete
    Range(xStrAddress).Sort key1:=Cells(1, xColumn), Header:=xlNo
    End If
Next xColumn
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Após colar o código acima, pressione F5 para executar este código, e uma nova planilha chamada Valor Único será criada e os nomes únicos na coluna A de todas as planilhas serão listados conforme mostrado na captura de tela a seguir:

Criar uma lista de valores únicos a partir de várias planilhas com o Assistente AI do KUTOOLS

Nesta seção, mostraremos como criar facilmente uma lista de valores únicos a partir de várias planilhas usando o Assistente AI do KUTOOLS.

Clique em "Kutools" > "AI Aide" para abrir o painel "Assistente AI do KUTOOLS", no painel, por favor, faça as seguintes operações:

1. Digite o requisito na caixa de chat: por exemplo:
   Extraia todos os valores únicos na Coluna A de todas as planilhas deste livro e liste os valores únicos em uma nova planilha
2. E então, pressione a tecla Enter ou clique no botão "Enviar". O Kutools AI analisará a questão, após finalizar, clique no botão "Executar", todos os valores únicos de várias planilhas são exibidos em uma nova planilha, veja a demonstração:
   

Criar uma lista de valores únicos a partir de várias planilhas com fórmula (Excel 365)

Se você deseja criar uma lista de valores únicos a partir de várias planilhas no Excel usando fórmulas, isso pode ser alcançado combinando funções de matriz dinâmica como UNIQUE e VSTACK no Excel 365.

Por favor, insira a seguinte fórmula em uma célula em branco e, em seguida, pressione a tecla Enter para extrair valores únicos em uma única coluna de várias planilhas. Veja a captura de tela:

=UNIQUE(VSTACK(Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet4!A1:A11))

Neste artigo, exploramos três métodos eficazes para criar uma lista de valores únicos a partir de várias planilhas no Excel. Cada método tem suas vantagens, permitindo que você escolha aquele que melhor se adapta à sua versão do Excel, nível de habilidade e necessidades específicas. Se você estiver interessado em explorar mais dicas e truques do Excel, nosso site oferece milhares de tutoriais.