Comment fusionner les lignes d'une colonne en une seule cellule dans Excel ?

Microsoft 365 & Office Excel & VBA
1

Comment concaténer les valeurs de plusieurs lignes d’une colonne en une seule cellule ?

2

Excel 365 :

=JOINDRE.TEXTE(", ";VRAI;A1:A10)

(en anglais : TEXTJOIN)

Versions antérieures :

=A1&", "&A2&", "&A3

VBA :

Function Concatener(rng As Range, sep As String) As String
    Dim cell As Range
    For Each cell In rng
        If cell.Value <> "" Then
            Concatener = Concatener & cell.Value & sep
        End If
    Next
    ' Supprimer le dernier séparateur
    If Len(Concatener) > 0 Then
        Concatener = Left(Concatener, Len(Concatener) - Len(sep))
    End If
End Function