Hoe verwijdert u de inhoud van meerdere samengevoegde cellen in Excel?
Als u een groot werkblad hebt met meerdere samengevoegde cellen en u wilt nu de inhoud van al die samengevoegde cellen wissen — maar de samenvoeging intact laten — probeert u normaal gesproken eerst alle samengevoegde cellen te selecteren met de functie Zoeken en Vervangen, waarna u op de toets Delete drukt om de waarden te verwijderen. U krijgt dan echter een waarschuwingsbericht: „Dat kan niet bij een samengevoegde cel”. Hoe wist u in dat geval snel de waarden in samengevoegde cellen, zonder de samenvoeging te verliezen in Excel?
De inhoud van meerdere Samengevoegd wissen met VBA-code
De inhoud van meerdere Samengevoegd wissen met Kutools voor Excel
De inhoud van meerdere Samengevoegd wissen met VBA-code
In dit gedeelte stel ik een VBA-code voor u op om deze taak op te lossen; volg de onderstaande stappen.
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 code in het Module-venster.
VBA: De inhoud van meerdere Samengevoegd wissen
Sub ClearMerged()
'updateby Extendoffice
Dim Rg As Range, Rg1 As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select the range of cells:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
For Each Rg1 In Rg
If Rg1.MergeCells Then Rg1.MergeArea.ClearContents
Next
End Sub
3. Druk vervolgens op de toets F5 om deze code uit te voeren. Er verschijnt dan een dialoogvenster waarin u wordt gevraagd het bereik te selecteren waarvan u de samengevoegde cellen wilt wissen. Zie afbeelding:
4. Klik daarna op OK. De inhoud van de samengevoegde cellen wordt dan in één keer gewist en er blijven lege samengevoegde cellen achter. Zie afbeelding:
De inhoud van meerdere Samengevoegd wissen met Kutools voor Excel
Als u Kutools voor Excel hebt geïnstalleerd, kunt u met het hulpprogramma Selecteer samengevoegde cellen alle samengevoegde cellen in een selectie met één klik selecteren en direct verwijderen.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:
1. Selecteer het celbereik met de samengevoegde cellen waarvan u de inhoud wilt wissen.
2. Klik op Kutools > Selecteren > Selecteer samengevoegde cellen. Zie afbeelding:
3. Alle samengevoegde cellen zijn nu direct geselecteerd. Zie afbeelding:
4. Druk daarna op de Delete-toets op het toetsenbord. Alle waarden in de samengevoegde cellen zijn nu verwijderd, maar de samenvoeging blijft behouden, zoals u dat wenst.
Klik hier voor meer informatie over dit Selecteer samengevoegde cellen-hulpprogramma…
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
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