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
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:
- 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 - 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))
- VSTACK: Combina múltiplos intervalos (por exemplo, Planilha1!A1:A11, Planilha2!A1:A11, Planilha3!A1:A11, Planilha3!A1:A11) em uma única matriz vertical.
- UNIQUE: Filtra duplicatas e retorna apenas valores únicos da lista combinada.
- A1:A11: Ajuste o intervalo para incluir seu intervalo de dados real.
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.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins