KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe identificeert en selecteert u alle samengevoegde cellen in Excel?

AuteurTech Support Wijzigingsdatum

Weet u hoe u alle samengevoegde cellen in Excel kunt zoeken en selecteren? Hier zijn drie slimme methodes om snel alle samengevoegde cellen binnen een selectie of bereik in Excel te identificeren en te selecteren.

identificeer en selecteer alle samengevoegde cellen

Identificeer en selecteer alle Samengevoegd met de Zoeken-opdracht

Selecteer en tel snel alle Samengevoegd met Kutools voor Excel

Identificeer alle Samengevoegd met VBA-code


Identificeer en selecteer alle Samengevoegd met de Zoeken-opdracht

U kunt alle Samengevoegd in het actieve werkblad identificeren en selecteren met de Zoeken-opdracht via de volgende stappen:

1. Klik op het tabblad Start > Zoeken en selecteren > Zoeken om het dialoogvenster Zoeken en Vervangen te openen. U kunt het dialoogvenster Zoeken en Vervangen ook openen door op de toetsen Ctrl + F te drukken.

2. Klik op de knop Opmaakin het dialoogvenster. (Als u de knop)Opmaak niet kunt vinden, klikt u op de knop Opties om het dialoogvenster uit te breiden.) Zie schermafbeelding:

Klik op de knop Opmaak in het dialoogvenster

3. Schakel in het verschijnende dialoogvenster Zoekformaat alleen de optie Samengevoegde cellen in onder de sectie Tekstbesturing op het tabblad Uitlijning en klik op OK.

schakel de optie Samenvoegen van cellen in het dialoogvenster in

4. U keert nu terug naar het dialoogvenster Zoeken en Vervangen. Klik op de knop Alles zoeken. Alle samengevoegde resultaten worden onderaan dit dialoogvenster weergegeven. Selecteer alle zoekresultaten door de toets Shift ingedrukt te houden.

Nu worden alle werkbladen met Samengevoegd Actief automatisch geselecteerd wanneer u alle zoekresultaten selecteert. Zie schermafbeelding:

alle samengevoegde cellen zijn geselecteerd wanneer alle zoekresultaten worden geselecteerd

Tips: Als u samengevoegde cellen binnen een selectie wilt identificeren en zoeken, dient u eerst het bereik te selecteren.


Selecteer en tel alle Samengevoegd met Kutools voor Excel

Met het hulpmiddel Selecteer samengevoegde cellen van Kutools voor Excel identificeert, zoekt en selecteert u met één klik alle samengevoegde cellen in een selectie.

Kutools voor Excelbiedt meer dan 300 geavanceerde functies om complexe taken te stroomlijnen en creativiteit en efficiëntie te vergroten.Geïntegreerd met AI-mogelijkheden, automatiseert Kutools taken nauwkeurig, waardoor gegevensbeheer moeiteloos wordt.Gedetailleerde informatie over Kutools voor Excel...         Gratis proefversie...

Na installatie van Kutools voor Excel, gaat u als volgt te werk:()Gratis downloaden Kutools voor Excel nu!)

1. Selecteer het gegevensbereik waarin u de samengevoegde cellen wilt selecteren.

2. Klik op Kutools > Selecteren > Selecteer samengevoegde cellen, zie schermafbeelding:

Klik op Kutools > Selecteren > Samengevoegde cellen selecteren

3. Alle samengevoegde cellen in de selectie zijn nu in één keer geselecteerd en het aantal samengevoegde cellen is ook geteld. Zie schermafbeelding:

alle samengevoegde cellen zijn geselecteerd

Tip: Om deze functie te gebruiken, moet u eerst Kutools voor Excelinstalleren. Klik hier om te downloaden en start direct een gratis proefversie van 30 dagen.

Identificeer alle Samengevoegd met VBA-code

VBA-1: Identificeer en markeer alle Samengevoegd

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de volgende macro in het Module-venster.

Sub FindMergedcells()
'updateby Extendoffice
Dim x As Range
For Each x In ActiveSheet.UsedRange
If x.MergeCells Then
x.Interior.ColorIndex = 8
End If
Next
End Sub

3. Druk op de toets F5 om deze macro uit te voeren. Alle samengevoegde cellen in het actieve werkblad worden geïdentificeerd en gemarkeerd. Zie schermafbeelding:

vba-code om alle samengevoegde cellen te markeren

VBA-2: Identificeer en vermeld alle Samengevoegd

1. Houd de toetsen ALT + F11ingedrukt om het venster Microsoft Visual Basic for Applicationste openen.

2. Klik op Invoegen>Moduleen plak de volgende macro in het Module-venster.

Sub ListMergedcells()
'updateby Extendoffice
Dim x As Range
Dim sMsg As String
sMsg = ""
For Each x In ActiveSheet.UsedRange
If x.MergeCells Then
If sMsg = "" Then
sMsg = "Merged cells:" & vbCr
End If
sMsg = sMsg & Replace(x.Address, "$", "") & vbCr
End If
Next
If sMsg = "" Then
sMsg = "No merged cells."
End If
MsgBox sMsg
End Sub

3. Druk op de toets F5 om deze macro uit te voeren. Alle samengevoegde gegevens worden weergegeven in een verschijnend dialoogvenster. Zie schermafbeelding:

vba-code om alle samengevoegde cellen weer te geven