Comment fusionner les lignes d'une colonne dans une cellule dans excel?

Je vous présente mon ConcatenateRange fonction VBA (merci Jean pour la désignation des conseils!) . Il faudra une plage de cellules (de toute dimension, de n'importe quelle direction, etc.) et les fusionner ensemble dans une seule chaîne. En tant que troisième paramètre facultatif, vous pouvez ajouter un élément de séparation (comme un espace ou une virgule sererated).

Dans ce cas, vous devez écrire ce à utiliser:

=ConcatenateRange(A1:A4)

Function ConcatenateRange(ByVal cell_range As range, _
                    Optional ByVal separator As String) As String

Dim newString As String
Dim cell As Variant

For Each cell in cell_range
    If Len(cell) <> 0 Then
        newString = newString & (separator & cell))
    End if
Next

If Len(newString) <> 0 Then
    newString = Right$(newString, (Len(newString) - Len(separator)))
End If

ConcatenateRange = newString

End Function

À l'intérieur de CONCATENATE vous pouvez utiliser TRANSPOSE si vous les développez (F9) puis retirez les environs {}des crochets comme cette recommande

=CONCATENATE(TRANSPOSE(B2:B19))

Devient

=CONCATENATE("Oh ","combining ", "a " ...)

Vous devrez peut-être ajouter votre propre séparateur sur la fin, dire créer une colonne C et de la transposition de cette colonne.

=B1&" "
=B2&" "
=B3&" "

L'utilisation de VBA déjà Join fonction. Fonctions VBA ne sont pas exposés dans Excel, j'ai donc envelopper Join dans une fonction définie par l'utilisateur qui expose ses fonctionnalités. La forme la plus simple est:

Function JoinXL(arr As Variant, Optional delimiter As String = " ")
    'arr must be a one-dimensional array.
    JoinXL = Join(arr, delimiter)
End Function

Exemple d'utilisation:

=JoinXL(TRANSPOSE(A1:A4)," ") 

entrée comme une formule de matrice (à l'aide de Ctrl-Maj-Entrée).

---

Maintenant, JoinXL n'accepte que les tableaux unidimensionnels comme entrée. Dans Excel, les plages de retourner les tableaux à deux dimensions. Dans l'exemple ci-dessus, TRANSPOSE convertit le 4×1 tableau à deux dimensions dans un 4-élément du tableau à une dimension (c'est le comportement documenté de TRANSPOSE lorsqu'il est nourri avec une seule colonne de tableau à deux dimensions).

Pour une plage horizontale, il vous suffit de faire un double TRANSPOSE:

=JoinXL(TRANSPOSE(TRANSPOSE(A1:D1)))

L'intérieur TRANSPOSE convertit le 1×4 tableau à deux dimensions dans un 4×1 tableau à deux dimensions, dont l'extérieur TRANSPOSE puis convertit en la 4-élément du tableau à une dimension.

Cette utilisation de TRANSPOSE est une façon que l'on sait de la conversion 2D tableaux en tableaux 1D dans Excel, mais ça a l'air terrible. Une solution plus élégante serait de le cacher loin dans le JoinXL fonction VBA.

Pour Excel 2011 sur Mac, c'est différent. Je l'ai fait comme un processus en trois étapes.

1. Créer une colonne de valeurs dans la colonne A.
2. Dans la colonne B, à droite de la première cellule, de créer une règle qui utilise la fonction concatener sur la valeur de la colonne et de ",". Par exemple, en supposant que A1 est la première ligne, la formule B1 est =B1. Pour la ligne suivante à la ligne N, la formule est =Concatenate(",",A2). Vous vous retrouvez avec:

QA 
,Sekuli 
,Tests 
,Applitools 
,Tests Visuels 
,Automatisation De Test 
,Sélénium 

1. Dans la colonne C de créer une formule qui concatène toutes les valeurs précédentes. Parce qu'il est additif, vous obtiendrez tous à la fin. La formule de la cellule C1 est =B1. Pour toutes les autres lignes à N, la formule est =Concatenate(C1,B2). Et vous obtenez:

QA,Sekuli 
QA,Sekuli,les Tests 
QA,Sekuli,les Tests,Applitools 
QA,Sekuli,les Tests,Applitools,Tests Visuels 
QA,Sekuli,les Tests,Applitools,Tests Visuels,l'Automatisation des tests 
QA,Sekuli,les Tests,Applitools,Test Visuel,Test d'Automatisation,de Sélénium 

La dernière cellule de la liste de ce que vous voulez. Cela est compatible avec Excel sous Windows ou Mac.