Como criar uma lista de valores únicos a partir de múltiplas folhas de cálculo no Excel?
Ao trabalhar com dados distribuídos por várias folhas de cálculo no Excel, poderá precisar consolidar essas informações e gerar uma lista de valores únicos. Embora o Excel não inclua uma funcionalidade integrada especificamente para essa finalidade, existem diversas formas eficazes de a concretizar. Este artigo apresenta-lhe três abordagens práticas para criar uma lista de valores únicos provenientes de múltiplas folhas de cálculo.
Criar uma lista de valores únicos a partir de múltiplas folhas de cálculo
Criar uma lista de valores únicos a partir de múltiplas folhas de cálculo com código VBA
Para listar todos os valores únicos de todas as folhas de cálculo, o código VBA seguinte poderá ser útil. Siga estes passos:
1. Mantenha premidas as teclas «ALT + F11» para abrir a janela do Microsoft Visual Basic para Aplicações.
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 múltiplas folhas de cálculo:
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, prima F5 para executá-lo. Será criada uma nova folha denominada «Unique value», com os nomes únicos da coluna A de todas as folhas listados, conforme ilustrado na imagem seguinte:
Criar uma lista de valores únicos a partir de múltiplas folhas de cálculo com o KUTOOLS AI Aide
Nesta secção, mostramos como criar facilmente uma lista de valores únicos a partir de múltiplas folhas de cálculo com o KUTOOLS AI Aide.
Clique em «Kutools» > «Assistente de IA» para abrir o painel «KUTOOLS AI Aide». No painel, realize as seguintes operações:
- Escreva o requisito na caixa de chat: por exemplo:
Extrair todos os valores únicos da coluna A de todas as folhas de cálculo deste livro e listar os valores únicos numa nova folha - Em seguida, prima a tecla Enter ou clique no botão «Enviar». O KUTOOLS AI analisará a sua questão; assim que concluir, clique no botão «Executar» e todos os valores únicos das várias folhas serão apresentados numa nova folha. Veja a demonstração:
Criar uma lista de valores únicos a partir de múltiplas folhas de cálculo com fórmula (Excel 365)
Se pretender criar uma lista de valores únicos a partir de múltiplas folhas de cálculo no Excel utilizando uma fórmula, basta combinar funções de matriz dinâmica, como UNIQUE e VSTACK, disponíveis no Excel 365.
Introduza a seguinte fórmula numa célula vazia e prima Enter para extrair os valores únicos de várias folhas para uma única coluna. Veja a imagem:
=UNIQUE(VSTACK(Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet4!A1:A11))
- VSTACKCombina vários intervalos (por exemplo, Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet3!A1:A11) num único array vertical.
- UNIQUEFiltra os valores duplicados e devolve apenas os valores únicos da lista combinada.
- A1:A11: ajuste o intervalo para incluir os seus dados reais.
Neste artigo, explorámos três métodos eficazes para criar uma lista de valores únicos a partir de múltiplas folhas de cálculo no Excel. Cada método tem as suas vantagens, permitindo-lhe escolher o que melhor se adapta à sua versão do Excel, ao seu nível de competência e às suas necessidades específicas. Se quer descobrir ainda mais dicas e truques do Excel, o nosso site oferece milhares de tutoriais.
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