In deze zelfstudie gaan we kijken naar de verschillende manieren waarop u cellen kunt samenvoegen met VBA.
Cellen samenvoegen met VBA
U kunt cellen in VBA samenvoegen met behulp van de Range.Merge-methode. De volgende code voegt cellen A1:C1 samen:
12345 | SubmergingCells()Bereik ("A1:C1"). SamenvoegenEinde sub |
Het resultaat is:
Cellen samenvoegen met VBA
U kunt het samenvoegen van een samengevoegd celbereik ongedaan maken met behulp van de Range.UnMerge-methode. Stel dat u het celbereik A1:D1 hebt samengevoegd. U kunt een van de celverwijzingen in het bereik gebruiken om de samenvoeging van de cellen ongedaan te maken. De volgende code laat zien hoe u de cellen A1:D1 ongedaan kunt maken, in dit geval gebruiken we cel B1:
12345 | Sub UnmergeCells()Bereik ("B1"). Samenvoegen opheffenEinde sub |
Meer voorbeelden van samenvoegen
Rijen samenvoegen met VBA
U kunt rijen samenvoegen met VBA door de rijnummers op te geven die u wilt samenvoegen. We hebben de tekst in cel A1 hieronder weergegeven:
De volgende code voegt rijen 1-4 samen:
12345 | Sub samenvoegenRijen()Bereik ("1:4"). SamenvoegenEinde sub |
Het resultaat is:
Kolommen samenvoegen met VBA
U kunt kolommen samenvoegen met VBA en de kolomletters. De volgende code voegt kolommen A:C samen.
12345 | Sub samenvoegkolommen()Bereik ("A:C"). SamenvoegenEinde sub |
Het resultaat is:
Celinhoud horizontaal samenvoegen en centreren
U kunt celinhoud horizontaal over een celbereik samenvoegen en centreren. U moet de cellen van belang samenvoegen en ook de horizontale uitlijningseigenschap van het bereikobject op het midden instellen. We hebben de tekst in cel A1 zoals hieronder weergegeven:
De volgende code voegt het celbereik A1:D1 samen en centreert de inhoud van cel A1 horizontaal over dit celbereik:
123456 | Sub MergeandCenterContentsHorizontaal()Bereik ("A1:D1"). SamenvoegenBereik ("A1:D1"). Horizontale uitlijning = xlCenterEinde sub |
Het resultaat is:
Celinhoud verticaal samenvoegen en centreren
U kunt celinhoud verticaal samenvoegen en centreren over een celbereik. U moet de cellen van belang samenvoegen en ook de verticale uitlijningseigenschap van het bereikobject op het midden instellen. We hebben de tekst in cel A1 zoals hieronder weergegeven:
De volgende code voegt het celbereik A1:A4 samen en centreert de inhoud van cel A1 verticaal over dit celbereik:
123456 | Sub MergeandCenterContentsVertical()Bereik ("A1:A4"). SamenvoegenBereik ("A1:D1").VerticalAlignment = xlCenterEinde sub |
Het resultaat is:
Cellen over een celbereik samenvoegen
U kunt cellen in een celbereik samenvoegen. U moet de optionele parameter Across van de Merge-methode instellen op True. We hebben de tekst in cel A1 zoals hieronder weergegeven:
De volgende code voegt het celbereik A1:D1 samen:
12345 | Sub MergeCellsAcross()Bereik ("A1:D1"). Samenvoegen:=TrueEinde sub |
Het resultaat is: