Hoe maak je een van de twee celinhoud in Excel
Excel biedt de mogelijkheid om cellen samen te vatten. Met de functie FORMAAT - CELLEN - UITLIJNING - COMBINEER CELLEN, kunt u twee cellen combineren tot één eenheid. Maar wat doe je als er inhoud in beide cellen zit die je niet kwijt wilt? Gebruik VBA om het probleem op te lossen.
Het voorbeeld in de volgende afbeelding toont een korte lijst met namen:
U wilt de twee inhoud van kolommen A en B in de eerste kolom A combineren en vervolgens de twee cellen uit kolommen A en B in één cel combineren. De volgende macro doet dit:
Subcellen samenvoegen ()
Dim lijn als geheel getal
Rij = 1
Terwijl niet (IsEmpty (Cellen (lijn, 1)))
Cellen (rij, 1) = Cellen (rij, 1) & "" & Cellen (rij, 2)
Cellen (regel, 2) .ClearContents
Bereik (cellen (rij, 1), cellen (rij, 2)). Samenvoegen
Lijn = lijn + 1
Wend
Kolommen (1) .AutoAanpassen
Einde sub
De macro loopt door de regels van regel 1 tot kolom A leeg is. Voor elke niet-lege inhoud wordt de inhoud van A en B aan elkaar gekoppeld (gescheiden door een spatie). Dan zijn de twee cellen A en B verbonden om één cel te vormen. De volgende afbeelding laat het resultaat zien:
