¿Cómo crear una lista de valores únicos a partir de varias hojas de Excel?
Al trabajar con datos distribuidos en varias hojas de Excel, es posible que necesite consolidar la información y obtener una lista de valores únicos. Aunque Excel no incluye una función integrada específica para esta tarea, existen varios métodos eficaces para lograrlo. En este artículo le presentamos tres enfoques prácticos para crear una lista de valores únicos procedentes de múltiples hojas.
Crear una lista de valores únicos a partir de varias hojas
Crear una lista de valores únicos a partir de varias hojas con código VBA
Para obtener una lista con todos los valores únicos de todas las hojas, el siguiente código VBA le resultará muy útil. Siga estos sencillos pasos:
1. Mantenga pulsadas las teclas «ALT + F11» para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en «Insertar» > «Módulo» y pegue la siguiente macro en la ventana del módulo.
Código VBA: crear una lista de valores únicos a partir de varias hojas:
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. Tras pegar el código anterior, pulse F5 para ejecutarlo. Se creará una nueva hoja llamada «Unique value» y en ella se mostrarán los nombres únicos de la columna A de todas las hojas, tal como se ilustra en la siguiente captura de pantalla:
Crear una lista de valores únicos a partir de varias hojas con KUTOOLS AI Aide
En esta sección, le mostraremos cómo crear sin esfuerzo una lista de valores únicos procedentes de múltiples hojas con KUTOOLS AI Aide.
Haga clic en «Kutools» > «Asistente de IA» para abrir el panel «KUTOOLS AI Aide» y, en dicho panel, realice las siguientes operaciones:
- Escriba el requisito en el cuadro de chat, por ejemplo:
Extraer todos los valores únicos de la columna A de todas las hojas de este libro y listarlos en una hoja nueva - A continuación, pulse la tecla Entrar o haga clic en el botón «Enviar». KUTOOLS AI analizará su pregunta; una vez finalizado el análisis, haga clic en el botón «Ejecutar» y todos los valores únicos de las distintas hojas aparecerán en una nueva hoja, tal como se muestra en la demostración:
Crear una lista de valores únicos a partir de varias hojas con fórmula (Excel 365)
Si desea crear una lista de valores únicos a partir de varias hojas en Excel, puede lograrlo combinando funciones de matrices dinámicas como UNIQUE y VSTACK en Excel 365.
Introduzca la siguiente fórmula en una celda vacía y pulse la tecla Entrar para extraer los valores únicos de varias hojas en una sola columna. Véase la captura de pantalla:
=UNIQUE(VSTACK(Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet4!A1:A11))
- VSTACKCombina varios rangos (por ejemplo, Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet3!A1:A11) en una única matriz vertical.
- UNIQUEFiltra los valores duplicados y devuelve solo los valores únicos de la lista combinada.
- A1:A11Ajuste el rango para incluir su rango de datos reales.
En este artículo hemos explorado tres métodos eficaces para crear una lista de valores únicos procedentes de múltiples hojas en Excel. Cada método tiene sus ventajas, lo que le permite elegir el que mejor se adapte a su versión de Excel, nivel de competencia y necesidades específicas. Si desea descubrir más consejos y trucos sobre Excel, nuestra web ofrece miles de tutoriales.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos