Hoe maakt u een lijst van unieke waarden uit meerdere werkbladen in Excel?
Wanneer u werkt met gegevens die verspreid zijn over meerdere werkbladen in Excel, wilt u die informatie mogelijk consolideren en een lijst van unieke waarden genereren. Hoewel Excel hiervoor geen directe ingebouwde functie biedt, zijn er verschillende slimme methoden om dit voor elkaar te krijgen. In dit artikel begeleiden we u stap voor stap door drie praktische benaderingen om eenvoudig een lijst van unieke waarden uit meerdere werkbladen te maken.
Maak een lijst van unieke waarden uit meerdere werkbladen
Maak een lijst van unieke waarden uit meerdere werkbladen met VBA-code
Om alle unieke waarden uit alle werkbladen weer te geven, helpt de volgende VBA-code u op weg. Volg deze stappen:
1. Druk op „ALT + F11” om het venster „Microsoft Visual Basic for Applications” te openen.
2. Klik op 'Invoegen' > 'Module' en plak de volgende macro in het modulevenster.
VBA-code: Maak een lijst van unieke waarden uit meerdere werkbladen:
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. Nadat u de bovenstaande code hebt geplakt, drukt u op F5 om deze uit te voeren. Er wordt automatisch een nieuw werkblad met de naam **Unieke waarde** aangemaakt, waarop de unieke namen uit kolom A van alle werkbladen worden weergegeven, zoals in de onderstaande afbeelding te zien is:
Maak een lijst van unieke waarden uit meerdere werkbladen met KUTOOLS AI Aide
In dit gedeelte laten we u zien hoe u moeiteloos een lijst van unieke waarden uit meerdere werkbladen maakt met Kutools AI Aide.
Klik op „Kutools” > „AI-assistent” om het venster „KUTOOLS AI Aide” te openen en voer daarin de volgende handelingen uit:
- Typ de vereiste in het chatvenster: bijvoorbeeld:
Haal alle unieke waarden uit kolom A van alle werkbladen in deze werkmap en vermeld de unieke waarden in een nieuw blad - Druk daarna op Enter of klik op de knop „Verzenden”. KUTOOLS AI analyseert uw vraag; zodra dit is voltooid, klikt u op de knop „Uitvoeren”. Alle unieke waarden uit meerdere bladen verschijnen direct in een nieuw blad – zie de demo:
Maak een lijst van unieke waarden uit meerdere werkbladen met formule (Excel 365)
Wilt u een lijst van unieke waarden samenstellen uit meerdere werkbladen in Excel? In Excel 365 kunt u dat eenvoudig doen door de dynamische matrixfuncties UNIQUE en VSTACK te combineren.
Voer de volgende formule in een lege cel in en druk op Enter om unieke waarden van meerdere bladen in één kolom samen te voegen. Zie afbeelding:
=UNIQUE(VSTACK(Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet4!A1:A11))
- VSTACKCombineert meerdere bereiken (bijv. Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet3!A1:A11) tot één enkele verticale matrix.
- UNIQUEFiltert duplicaten eruit en retourneert alleen unieke waarden uit de gecombineerde lijst.
- A1:A11Pas het bereik aan zodat uw werkelijke gegevensbereik wordt meegenomen.
In dit artikel hebben we drie effectieve methoden besproken om een lijst van unieke waarden uit meerdere werkbladen in Excel te maken. Elke methode heeft zijn eigen voordelen, zodat u de methode kunt kiezen die het beste aansluit bij uw Excel-versie, vaardigheidsniveau en specifieke behoeften. Wilt u nog meer Excel-tips en -trucs ontdekken?Onze website biedt duizenden tutorials.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins