Fusionner des cellules Excel sans perdre de contenu

Table des matières

Comment créer un contenu de cellule sur deux dans Excel

Excel offre la possibilité de résumer des cellules. Avec la fonction FORMAT - CELLULES - ALIGNEMENT - COMBINE CELLULES, vous pouvez combiner deux cellules en une seule unité. Mais que faites-vous lorsqu'il y a du contenu dans les deux cellules que vous ne voulez pas perdre ? Utilisez VBA pour résoudre le problème.

L'exemple de la figure suivante montre une courte liste de noms :

Vous souhaitez combiner les deux contenus des colonnes A et B dans la première colonne A, puis combiner les deux cellules des colonnes A et B en une seule cellule. La macro suivante fait ce travail :

Fusionner les sous-cellules ()

Dim line As Integer

Ligne = 1

Tant que non (IsEmpty (Cellules (ligne, 1)))

Cellules (ligne, 1) = Cellules (ligne, 1) & "" & Cellules (ligne, 2)

Cellules (ligne, 2) .ClearContents

Plage (Cellules (ligne, 1), Cellules (ligne, 2)).

Ligne = ligne + 1

Wende

Colonnes (1) .AutoFit

Fin du sous-marin

La macro parcourt les lignes de la ligne 1 jusqu'à ce que la colonne A soit vide. Pour chaque contenu non vide, les contenus de A et B sont attachés l'un à l'autre (séparés par un espace). Ensuite, les deux cellules A et B sont connectées pour former une seule cellule. La figure suivante montre le résultat :

Vous contribuerez au développement du site, partager la page avec vos amis

wave wave wave wave wave